diff --git a/GI/WebKit2WebExtension.hs b/GI/WebKit2WebExtension.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension.hs +++ /dev/null @@ -1,44 +0,0 @@ - - -{- | -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 , - - - - module Data.GI.Base , - - - ) 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Data.GI.Base - diff --git a/GI/WebKit2WebExtension/Callbacks.hs b/GI/WebKit2WebExtension/Callbacks.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Callbacks.hs +++ /dev/null @@ -1,107 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 userData = do - extension' <- (newObject WebExtension) extension - userData' <- newGVariantFromPtr userData - _cb extension' userData' - 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 - - diff --git a/GI/WebKit2WebExtension/Constants.hs b/GI/WebKit2WebExtension/Constants.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Constants.hs +++ /dev/null @@ -1,369 +0,0 @@ -{-# 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/WebKit2WebExtension/Enums.hs b/GI/WebKit2WebExtension/Enums.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Enums.hs +++ /dev/null @@ -1,228 +0,0 @@ - - -{- | -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(..) , - ConsoleMessageSource(..) , - ConsoleMessageLevel(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- Enum ConsoleMessageSource - -data ConsoleMessageSource = - ConsoleMessageSourceJavascript - | ConsoleMessageSourceNetwork - | ConsoleMessageSourceConsoleApi - | ConsoleMessageSourceSecurity - | ConsoleMessageSourceOther - | AnotherConsoleMessageSource Int - deriving (Show, Eq) - -instance Enum ConsoleMessageSource where - fromEnum ConsoleMessageSourceJavascript = 0 - fromEnum ConsoleMessageSourceNetwork = 1 - fromEnum ConsoleMessageSourceConsoleApi = 2 - fromEnum ConsoleMessageSourceSecurity = 3 - fromEnum ConsoleMessageSourceOther = 4 - fromEnum (AnotherConsoleMessageSource k) = k - - toEnum 0 = ConsoleMessageSourceJavascript - toEnum 1 = ConsoleMessageSourceNetwork - toEnum 2 = ConsoleMessageSourceConsoleApi - toEnum 3 = ConsoleMessageSourceSecurity - toEnum 4 = ConsoleMessageSourceOther - toEnum k = AnotherConsoleMessageSource k - --- Enum ConsoleMessageLevel - -data ConsoleMessageLevel = - ConsoleMessageLevelInfo - | ConsoleMessageLevelLog - | ConsoleMessageLevelWarning - | ConsoleMessageLevelError - | ConsoleMessageLevelDebug - | AnotherConsoleMessageLevel Int - deriving (Show, Eq) - -instance Enum ConsoleMessageLevel where - fromEnum ConsoleMessageLevelInfo = 0 - fromEnum ConsoleMessageLevelLog = 1 - fromEnum ConsoleMessageLevelWarning = 2 - fromEnum ConsoleMessageLevelError = 3 - fromEnum ConsoleMessageLevelDebug = 4 - fromEnum (AnotherConsoleMessageLevel k) = k - - toEnum 0 = ConsoleMessageLevelInfo - toEnum 1 = ConsoleMessageLevelLog - toEnum 2 = ConsoleMessageLevelWarning - toEnum 3 = ConsoleMessageLevelError - toEnum 4 = ConsoleMessageLevelDebug - toEnum k = AnotherConsoleMessageLevel k - - diff --git a/GI/WebKit2WebExtension/Flags.hs b/GI/WebKit2WebExtension/Flags.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Flags.hs +++ /dev/null @@ -1,62 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/WebKit2WebExtension/Interfaces.hs b/GI/WebKit2WebExtension/Interfaces.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Interfaces.hs +++ /dev/null @@ -1,31 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs b/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs +++ /dev/null @@ -1,229 +0,0 @@ - - -{- | -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 - DOMEventTargetAddEventListenerMethodInfo, - dOMEventTargetAddEventListener , - - --- ** dOMEventTargetDispatchEvent - DOMEventTargetDispatchEventMethodInfo , - dOMEventTargetDispatchEvent , - - --- ** dOMEventTargetRemoveEventListener - DOMEventTargetRemoveEventListenerMethodInfo, - dOMEventTargetRemoveEventListener , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMEventTargetMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMEventTargetMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMEventTargetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMEventTargetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMEventTargetMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMEventTargetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMEventTargetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMEventTargetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMEventTargetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMEventTargetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMEventTargetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMEventTargetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMEventTargetMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMEventTargetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMEventTargetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMEventTargetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMEventTargetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMEventTargetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMEventTargetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMEventTargetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMEventTargetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMEventTargetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMEventTargetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMEventTargetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMEventTargetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMEventTargetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMEventTargetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMEventTargetMethod t DOMEventTarget, MethodInfo info DOMEventTarget p) => IsLabelProxy t (DOMEventTarget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMEventTargetMethod t DOMEventTarget, MethodInfo info DOMEventTarget p) => IsLabel t (DOMEventTarget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMEventTarget = DOMEventTargetAttributeList -type DOMEventTargetAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DOMEventTarget = DOMEventTargetSignalList -type DOMEventTargetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- eventName - -> Closure -- handler - -> Bool -- useCapture - -> m Bool -- result -dOMEventTargetAddEventListener _obj eventName handler useCapture = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - eventName' <- textToCString eventName - let handler' = unsafeManagedPtrGetPtr handler - let useCapture' = (fromIntegral . fromEnum) useCapture - result <- webkit_dom_event_target_add_event_listener_with_closure _obj' eventName' handler' useCapture' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr handler - freeMem eventName' - return result' - -data DOMEventTargetAddEventListenerMethodInfo -instance (signature ~ (T.Text -> Closure -> Bool -> m Bool), MonadIO m, DOMEventTargetK a) => MethodInfo DOMEventTargetAddEventListenerMethodInfo a signature where - overloadedMethod _ = dOMEventTargetAddEventListener - --- method DOMEventTarget::dispatch_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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 () - ) - -data DOMEventTargetDispatchEventMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMEventTargetK a, DOMEventK b) => MethodInfo DOMEventTargetDispatchEventMethodInfo a signature where - overloadedMethod _ = dOMEventTargetDispatchEvent - --- method DOMEventTarget::remove_event_listener --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- eventName - -> Closure -- handler - -> Bool -- useCapture - -> m Bool -- result -dOMEventTargetRemoveEventListener _obj eventName handler useCapture = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - eventName' <- textToCString eventName - let handler' = unsafeManagedPtrGetPtr handler - let useCapture' = (fromIntegral . fromEnum) useCapture - result <- webkit_dom_event_target_remove_event_listener_with_closure _obj' eventName' handler' useCapture' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr handler - freeMem eventName' - return result' - -data DOMEventTargetRemoveEventListenerMethodInfo -instance (signature ~ (T.Text -> Closure -> Bool -> m Bool), MonadIO m, DOMEventTargetK a) => MethodInfo DOMEventTargetRemoveEventListenerMethodInfo a signature where - overloadedMethod _ = dOMEventTargetRemoveEventListener - - diff --git a/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot b/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Interfaces.DOMEventTarget where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMEventTargetAddEventListenerMethodInfo -data DOMEventTargetDispatchEventMethodInfo -data DOMEventTargetRemoveEventListenerMethodInfo diff --git a/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs b/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs +++ /dev/null @@ -1,134 +0,0 @@ - - -{- | -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 - DOMNodeFilterAcceptNodeMethodInfo , - dOMNodeFilterAcceptNode , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMNodeFilterMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMNodeFilterMethod "acceptNode" o = DOMNodeFilterAcceptNodeMethodInfo - ResolveDOMNodeFilterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMNodeFilterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMNodeFilterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMNodeFilterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMNodeFilterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMNodeFilterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMNodeFilterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMNodeFilterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMNodeFilterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMNodeFilterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMNodeFilterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMNodeFilterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMNodeFilterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMNodeFilterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMNodeFilterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMNodeFilterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMNodeFilterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMNodeFilterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMNodeFilterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMNodeFilterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMNodeFilterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMNodeFilterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMNodeFilterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMNodeFilterMethod t DOMNodeFilter, MethodInfo info DOMNodeFilter p) => IsLabelProxy t (DOMNodeFilter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMNodeFilterMethod t DOMNodeFilter, MethodInfo info DOMNodeFilter p) => IsLabel t (DOMNodeFilter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMNodeFilter = DOMNodeFilterAttributeList -type DOMNodeFilterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DOMNodeFilter = DOMNodeFilterSignalList -type DOMNodeFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 - -data DOMNodeFilterAcceptNodeMethodInfo -instance (signature ~ (b -> m Int16), MonadIO m, DOMNodeFilterK a, DOMNodeK b) => MethodInfo DOMNodeFilterAcceptNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeFilterAcceptNode - - diff --git a/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot b/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.WebKit2WebExtension.Interfaces.DOMNodeFilter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMNodeFilterAcceptNodeMethodInfo diff --git a/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs b/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs +++ /dev/null @@ -1,137 +0,0 @@ - - -{- | -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 - DOMXPathNSResolverLookupNamespaceUriMethodInfo, - dOMXPathNSResolverLookupNamespaceUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMXPathNSResolverMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMXPathNSResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMXPathNSResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMXPathNSResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMXPathNSResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMXPathNSResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMXPathNSResolverMethod "lookupNamespaceUri" o = DOMXPathNSResolverLookupNamespaceUriMethodInfo - ResolveDOMXPathNSResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMXPathNSResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMXPathNSResolverMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMXPathNSResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMXPathNSResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMXPathNSResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMXPathNSResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMXPathNSResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMXPathNSResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMXPathNSResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMXPathNSResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMXPathNSResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMXPathNSResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMXPathNSResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMXPathNSResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMXPathNSResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMXPathNSResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMXPathNSResolverMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMXPathNSResolverMethod t DOMXPathNSResolver, MethodInfo info DOMXPathNSResolver p) => IsLabelProxy t (DOMXPathNSResolver -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMXPathNSResolverMethod t DOMXPathNSResolver, MethodInfo info DOMXPathNSResolver p) => IsLabel t (DOMXPathNSResolver -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMXPathNSResolver = DOMXPathNSResolverAttributeList -type DOMXPathNSResolverAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DOMXPathNSResolver = DOMXPathNSResolverSignalList -type DOMXPathNSResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMXPathNSResolverLookupNamespaceUriMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMXPathNSResolverK a) => MethodInfo DOMXPathNSResolverLookupNamespaceUriMethodInfo a signature where - overloadedMethod _ = dOMXPathNSResolverLookupNamespaceUri - - diff --git a/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot b/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMXPathNSResolverLookupNamespaceUriMethodInfo diff --git a/GI/WebKit2WebExtension/Objects.hs b/GI/WebKit2WebExtension/Objects.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects.hs +++ /dev/null @@ -1,239 +0,0 @@ - - -{- | -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.WebEditor, - 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.WebEditor -import GI.WebKit2WebExtension.Objects.WebExtension -import GI.WebKit2WebExtension.Objects.WebHitTestResult -import GI.WebKit2WebExtension.Objects.WebPage - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/WebKit2WebExtension/Objects/ContextMenu.hs b/GI/WebKit2WebExtension/Objects/ContextMenu.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/ContextMenu.hs +++ /dev/null @@ -1,619 +0,0 @@ - - -{- | -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 - ContextMenuAppendMethodInfo , - contextMenuAppend , - - --- ** contextMenuFirst - ContextMenuFirstMethodInfo , - contextMenuFirst , - - --- ** contextMenuGetItemAtPosition - ContextMenuGetItemAtPositionMethodInfo , - contextMenuGetItemAtPosition , - - --- ** contextMenuGetItems - ContextMenuGetItemsMethodInfo , - contextMenuGetItems , - - --- ** contextMenuGetNItems - ContextMenuGetNItemsMethodInfo , - contextMenuGetNItems , - - --- ** contextMenuGetUserData - ContextMenuGetUserDataMethodInfo , - contextMenuGetUserData , - - --- ** contextMenuInsert - ContextMenuInsertMethodInfo , - contextMenuInsert , - - --- ** contextMenuLast - ContextMenuLastMethodInfo , - contextMenuLast , - - --- ** contextMenuMoveItem - ContextMenuMoveItemMethodInfo , - contextMenuMoveItem , - - --- ** contextMenuNew - contextMenuNew , - - --- ** contextMenuNewWithItems - contextMenuNewWithItems , - - --- ** contextMenuPrepend - ContextMenuPrependMethodInfo , - contextMenuPrepend , - - --- ** contextMenuRemove - ContextMenuRemoveMethodInfo , - contextMenuRemove , - - --- ** contextMenuRemoveAll - ContextMenuRemoveAllMethodInfo , - contextMenuRemoveAll , - - --- ** contextMenuSetUserData - ContextMenuSetUserDataMethodInfo , - contextMenuSetUserData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveContextMenuMethod (t :: Symbol) (o :: *) :: * where - ResolveContextMenuMethod "append" o = ContextMenuAppendMethodInfo - ResolveContextMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContextMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContextMenuMethod "first" o = ContextMenuFirstMethodInfo - ResolveContextMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContextMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContextMenuMethod "insert" o = ContextMenuInsertMethodInfo - ResolveContextMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContextMenuMethod "last" o = ContextMenuLastMethodInfo - ResolveContextMenuMethod "moveItem" o = ContextMenuMoveItemMethodInfo - ResolveContextMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContextMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContextMenuMethod "prepend" o = ContextMenuPrependMethodInfo - ResolveContextMenuMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContextMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContextMenuMethod "remove" o = ContextMenuRemoveMethodInfo - ResolveContextMenuMethod "removeAll" o = ContextMenuRemoveAllMethodInfo - ResolveContextMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContextMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContextMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContextMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContextMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContextMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContextMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContextMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContextMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContextMenuMethod "getItemAtPosition" o = ContextMenuGetItemAtPositionMethodInfo - ResolveContextMenuMethod "getItems" o = ContextMenuGetItemsMethodInfo - ResolveContextMenuMethod "getNItems" o = ContextMenuGetNItemsMethodInfo - ResolveContextMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContextMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContextMenuMethod "getUserData" o = ContextMenuGetUserDataMethodInfo - ResolveContextMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContextMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContextMenuMethod "setUserData" o = ContextMenuSetUserDataMethodInfo - ResolveContextMenuMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabelProxy t (ContextMenu -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContextMenuMethod t ContextMenu, MethodInfo info ContextMenu p) => IsLabel t (ContextMenu -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContextMenu = ContextMenuAttributeList -type ContextMenuAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContextMenu = ContextMenuSignalList -type ContextMenuSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ContextMenu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -contextMenuNew = liftIO $ do - result <- webkit_context_menu_new - checkUnexpectedReturnNULL "webkit_context_menu_new" result - result' <- (wrapObject ContextMenu) result - return result' - --- method ContextMenu::new_with_items --- method type : Constructor --- Args : [Arg {argCName = "items", argType = TGList (TInterface "WebKit2WebExtension" "ContextMenuItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenu") --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_new_with_items" webkit_context_menu_new_with_items :: - Ptr (GList (Ptr ContextMenuItem)) -> -- items : TGList (TInterface "WebKit2WebExtension" "ContextMenuItem") - IO (Ptr ContextMenu) - - -contextMenuNewWithItems :: - (MonadIO m, ContextMenuItemK a) => - [a] -- items - -> m ContextMenu -- result -contextMenuNewWithItems items = liftIO $ do - let items' = map unsafeManagedPtrCastPtr items - items'' <- packGList items' - result <- webkit_context_menu_new_with_items items'' - checkUnexpectedReturnNULL "webkit_context_menu_new_with_items" result - result' <- (wrapObject ContextMenu) result - mapM_ touchManagedPtr items - g_list_free items'' - return result' - --- method ContextMenu::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -contextMenuAppend _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - webkit_context_menu_append _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ContextMenuAppendMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuAppendMethodInfo a signature where - overloadedMethod _ = contextMenuAppend - --- method ContextMenu::first --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_first" webkit_context_menu_first :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenu" - IO (Ptr ContextMenuItem) - - -contextMenuFirst :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> m ContextMenuItem -- result -contextMenuFirst _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_first _obj' - checkUnexpectedReturnNULL "webkit_context_menu_first" result - result' <- (newObject ContextMenuItem) result - touchManagedPtr _obj - return result' - -data ContextMenuFirstMethodInfo -instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuFirstMethodInfo a signature where - overloadedMethod _ = contextMenuFirst - --- method ContextMenu::get_item_at_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_get_item_at_position" webkit_context_menu_get_item_at_position :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenu" - Word32 -> -- position : TBasicType TUInt - IO (Ptr ContextMenuItem) - - -contextMenuGetItemAtPosition :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> Word32 -- position - -> m ContextMenuItem -- result -contextMenuGetItemAtPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_get_item_at_position _obj' position - checkUnexpectedReturnNULL "webkit_context_menu_get_item_at_position" result - result' <- (newObject ContextMenuItem) result - touchManagedPtr _obj - return result' - -data ContextMenuGetItemAtPositionMethodInfo -instance (signature ~ (Word32 -> m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemAtPositionMethodInfo a signature where - overloadedMethod _ = contextMenuGetItemAtPosition - --- method ContextMenu::get_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "WebKit2WebExtension" "ContextMenuItem")) --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_get_items" webkit_context_menu_get_items :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenu" - IO (Ptr (GList (Ptr ContextMenuItem))) - - -contextMenuGetItems :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> m [ContextMenuItem] -- result -contextMenuGetItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_get_items _obj' - result' <- unpackGList result - result'' <- mapM (newObject ContextMenuItem) result' - touchManagedPtr _obj - return result'' - -data ContextMenuGetItemsMethodInfo -instance (signature ~ (m [ContextMenuItem]), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetItemsMethodInfo a signature where - overloadedMethod _ = contextMenuGetItems - --- method ContextMenu::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -contextMenuGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_get_n_items _obj' - touchManagedPtr _obj - return result - -data ContextMenuGetNItemsMethodInfo -instance (signature ~ (m Word32), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetNItemsMethodInfo a signature where - overloadedMethod _ = contextMenuGetNItems - --- method ContextMenu::get_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just 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 -- result -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' <- newGVariantFromPtr result - touchManagedPtr _obj - return result' - -data ContextMenuGetUserDataMethodInfo -instance (signature ~ (m GVariant), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuGetUserDataMethodInfo a signature where - overloadedMethod _ = contextMenuGetUserData - --- method ContextMenu::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - IO () - - -contextMenuInsert :: - (MonadIO m, ContextMenuK a, ContextMenuItemK b) => - a -- _obj - -> b -- item - -> Int32 -- position - -> m () -- result -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 () - -data ContextMenuInsertMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuInsertMethodInfo a signature where - overloadedMethod _ = contextMenuInsert - --- method ContextMenu::last --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenuItem") --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_last" webkit_context_menu_last :: - Ptr ContextMenu -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenu" - IO (Ptr ContextMenuItem) - - -contextMenuLast :: - (MonadIO m, ContextMenuK a) => - a -- _obj - -> m ContextMenuItem -- result -contextMenuLast _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_last _obj' - checkUnexpectedReturnNULL "webkit_context_menu_last" result - result' <- (newObject ContextMenuItem) result - touchManagedPtr _obj - return result' - -data ContextMenuLastMethodInfo -instance (signature ~ (m ContextMenuItem), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuLastMethodInfo a signature where - overloadedMethod _ = contextMenuLast - --- method ContextMenu::move_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - IO () - - -contextMenuMoveItem :: - (MonadIO m, ContextMenuK a, ContextMenuItemK b) => - a -- _obj - -> b -- item - -> Int32 -- position - -> m () -- result -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 () - -data ContextMenuMoveItemMethodInfo -instance (signature ~ (b -> Int32 -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuMoveItemMethodInfo a signature where - overloadedMethod _ = contextMenuMoveItem - --- method ContextMenu::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -contextMenuPrepend _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - webkit_context_menu_prepend _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ContextMenuPrependMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuPrependMethodInfo a signature where - overloadedMethod _ = contextMenuPrepend - --- method ContextMenu::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -contextMenuRemove _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - webkit_context_menu_remove _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ContextMenuRemoveMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ContextMenuK a, ContextMenuItemK b) => MethodInfo ContextMenuRemoveMethodInfo a signature where - overloadedMethod _ = contextMenuRemove - --- method ContextMenu::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -contextMenuRemoveAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_context_menu_remove_all _obj' - touchManagedPtr _obj - return () - -data ContextMenuRemoveAllMethodInfo -instance (signature ~ (m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuRemoveAllMethodInfo a signature where - overloadedMethod _ = contextMenuRemoveAll - --- method ContextMenu::set_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- userData - -> m () -- result -contextMenuSetUserData _obj userData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let userData' = unsafeManagedPtrGetPtr userData - webkit_context_menu_set_user_data _obj' userData' - touchManagedPtr _obj - return () - -data ContextMenuSetUserDataMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m, ContextMenuK a) => MethodInfo ContextMenuSetUserDataMethodInfo a signature where - overloadedMethod _ = contextMenuSetUserData - - diff --git a/GI/WebKit2WebExtension/Objects/ContextMenu.hs-boot b/GI/WebKit2WebExtension/Objects/ContextMenu.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/ContextMenu.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.WebKit2WebExtension.Objects.ContextMenu where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data ContextMenuAppendMethodInfo -data ContextMenuFirstMethodInfo -data ContextMenuGetItemAtPositionMethodInfo -data ContextMenuGetItemsMethodInfo -data ContextMenuGetNItemsMethodInfo -data ContextMenuGetUserDataMethodInfo -data ContextMenuInsertMethodInfo -data ContextMenuLastMethodInfo -data ContextMenuMoveItemMethodInfo -data ContextMenuPrependMethodInfo -data ContextMenuRemoveMethodInfo -data ContextMenuRemoveAllMethodInfo -data ContextMenuSetUserDataMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs b/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs +++ /dev/null @@ -1,422 +0,0 @@ - - -{- | -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 --- ** contextMenuItemGetAction - ContextMenuItemGetActionMethodInfo , - contextMenuItemGetAction , - - --- ** contextMenuItemGetStockAction - ContextMenuItemGetStockActionMethodInfo , - contextMenuItemGetStockAction , - - --- ** contextMenuItemGetSubmenu - ContextMenuItemGetSubmenuMethodInfo , - contextMenuItemGetSubmenu , - - --- ** contextMenuItemIsSeparator - ContextMenuItemIsSeparatorMethodInfo , - contextMenuItemIsSeparator , - - --- ** contextMenuItemNew - contextMenuItemNew , - - --- ** contextMenuItemNewFromStockAction - contextMenuItemNewFromStockAction , - - --- ** contextMenuItemNewFromStockActionWithLabel - contextMenuItemNewFromStockActionWithLabel, - - --- ** contextMenuItemNewSeparator - contextMenuItemNewSeparator , - - --- ** contextMenuItemNewWithSubmenu - contextMenuItemNewWithSubmenu , - - --- ** contextMenuItemSetSubmenu - ContextMenuItemSetSubmenuMethodInfo , - contextMenuItemSetSubmenu , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveContextMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveContextMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContextMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContextMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContextMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContextMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContextMenuItemMethod "isSeparator" o = ContextMenuItemIsSeparatorMethodInfo - ResolveContextMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContextMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContextMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContextMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContextMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContextMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContextMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContextMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContextMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContextMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContextMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContextMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContextMenuItemMethod "getAction" o = ContextMenuItemGetActionMethodInfo - ResolveContextMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContextMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContextMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContextMenuItemMethod "getStockAction" o = ContextMenuItemGetStockActionMethodInfo - ResolveContextMenuItemMethod "getSubmenu" o = ContextMenuItemGetSubmenuMethodInfo - ResolveContextMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContextMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContextMenuItemMethod "setSubmenu" o = ContextMenuItemSetSubmenuMethodInfo - ResolveContextMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabelProxy t (ContextMenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContextMenuItemMethod t ContextMenuItem, MethodInfo info ContextMenuItem p) => IsLabel t (ContextMenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContextMenuItem = ContextMenuItemAttributeList -type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContextMenuItem = ContextMenuItemSignalList -type ContextMenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ContextMenuItem::new --- method type : Constructor --- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gtk" "Action") --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action :: - Ptr ContextMenuItem -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenuItem" - IO (Ptr Gtk.Action) - - -contextMenuItemGetAction :: - (MonadIO m, ContextMenuItemK a) => - a -- _obj - -> m Gtk.Action -- result -contextMenuItemGetAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_item_get_action _obj' - checkUnexpectedReturnNULL "webkit_context_menu_item_get_action" result - result' <- (newObject Gtk.Action) result - touchManagedPtr _obj - return result' - -data ContextMenuItemGetActionMethodInfo -instance (signature ~ (m Gtk.Action), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetActionMethodInfo a signature where - overloadedMethod _ = contextMenuItemGetAction - --- method ContextMenuItem::get_stock_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ContextMenuItemGetStockActionMethodInfo -instance (signature ~ (m ContextMenuAction), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetStockActionMethodInfo a signature where - overloadedMethod _ = contextMenuItemGetStockAction - --- method ContextMenuItem::get_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ContextMenu") --- throws : False --- Skip return : False - -foreign import ccall "webkit_context_menu_item_get_submenu" webkit_context_menu_item_get_submenu :: - Ptr ContextMenuItem -> -- _obj : TInterface "WebKit2WebExtension" "ContextMenuItem" - IO (Ptr ContextMenu) - - -contextMenuItemGetSubmenu :: - (MonadIO m, ContextMenuItemK a) => - a -- _obj - -> m ContextMenu -- result -contextMenuItemGetSubmenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_item_get_submenu _obj' - checkUnexpectedReturnNULL "webkit_context_menu_item_get_submenu" result - result' <- (newObject ContextMenu) result - touchManagedPtr _obj - return result' - -data ContextMenuItemGetSubmenuMethodInfo -instance (signature ~ (m ContextMenu), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemGetSubmenuMethodInfo a signature where - overloadedMethod _ = contextMenuItemGetSubmenu - --- method ContextMenuItem::is_separator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -contextMenuItemIsSeparator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_context_menu_item_is_separator _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ContextMenuItemIsSeparatorMethodInfo -instance (signature ~ (m Bool), MonadIO m, ContextMenuItemK a) => MethodInfo ContextMenuItemIsSeparatorMethodInfo a signature where - overloadedMethod _ = contextMenuItemIsSeparator - --- method ContextMenuItem::set_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 - -> Maybe (b) -- submenu - -> m () -- result -contextMenuItemSetSubmenu _obj submenu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSubmenu <- case submenu of - Nothing -> return nullPtr - Just jSubmenu -> do - let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu - return jSubmenu' - webkit_context_menu_item_set_submenu _obj' maybeSubmenu - touchManagedPtr _obj - whenJust submenu touchManagedPtr - return () - -data ContextMenuItemSetSubmenuMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ContextMenuItemK a, ContextMenuK b) => MethodInfo ContextMenuItemSetSubmenuMethodInfo a signature where - overloadedMethod _ = contextMenuItemSetSubmenu - - diff --git a/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot b/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2WebExtension.Objects.ContextMenuItem where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data ContextMenuItemGetActionMethodInfo -data ContextMenuItemGetStockActionMethodInfo -data ContextMenuItemGetSubmenuMethodInfo -data ContextMenuItemIsSeparatorMethodInfo -data ContextMenuItemSetSubmenuMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMAttr.hs b/GI/WebKit2WebExtension/Objects/DOMAttr.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMAttr.hs +++ /dev/null @@ -1,475 +0,0 @@ - - -{- | -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 - DOMAttrGetNameMethodInfo , - dOMAttrGetName , - - --- ** dOMAttrGetOwnerElement - DOMAttrGetOwnerElementMethodInfo , - dOMAttrGetOwnerElement , - - --- ** dOMAttrGetSpecified - DOMAttrGetSpecifiedMethodInfo , - dOMAttrGetSpecified , - - --- ** dOMAttrGetValue - DOMAttrGetValueMethodInfo , - dOMAttrGetValue , - - --- ** dOMAttrSetValue - DOMAttrSetValueMethodInfo , - dOMAttrSetValue , - - - - - -- * Properties --- ** IsId - DOMAttrIsIdPropertyInfo , - dOMAttrIsId , - getDOMAttrIsId , - - --- ** Name - DOMAttrNamePropertyInfo , - dOMAttrName , - getDOMAttrName , - - --- ** OwnerElement - DOMAttrOwnerElementPropertyInfo , - dOMAttrOwnerElement , - getDOMAttrOwnerElement , - - --- ** Specified - DOMAttrSpecifiedPropertyInfo , - dOMAttrSpecified , - getDOMAttrSpecified , - - --- ** Value - DOMAttrValuePropertyInfo , - clearDOMAttrValue , - constructDOMAttrValue , - dOMAttrValue , - getDOMAttrValue , - setDOMAttrValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMAttrMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMAttrMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMAttrMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMAttrMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMAttrMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMAttrMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMAttrMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMAttrMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMAttrMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMAttrMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMAttrMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMAttrMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMAttrMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMAttrMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMAttrMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMAttrMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMAttrMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMAttrMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMAttrMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMAttrMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMAttrMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMAttrMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMAttrMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMAttrMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMAttrMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMAttrMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMAttrMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMAttrMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMAttrMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMAttrMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMAttrMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMAttrMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMAttrMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMAttrMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMAttrMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMAttrMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMAttrMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMAttrMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMAttrMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMAttrMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMAttrMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMAttrMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMAttrMethod "getName" o = DOMAttrGetNameMethodInfo - ResolveDOMAttrMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMAttrMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMAttrMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMAttrMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMAttrMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMAttrMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMAttrMethod "getOwnerElement" o = DOMAttrGetOwnerElementMethodInfo - ResolveDOMAttrMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMAttrMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMAttrMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMAttrMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMAttrMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMAttrMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMAttrMethod "getSpecified" o = DOMAttrGetSpecifiedMethodInfo - ResolveDOMAttrMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMAttrMethod "getValue" o = DOMAttrGetValueMethodInfo - ResolveDOMAttrMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMAttrMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMAttrMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMAttrMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMAttrMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMAttrMethod "setValue" o = DOMAttrSetValueMethodInfo - ResolveDOMAttrMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMAttrMethod t DOMAttr, MethodInfo info DOMAttr p) => IsLabelProxy t (DOMAttr -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMAttrMethod t DOMAttr, MethodInfo info DOMAttr p) => IsLabel t (DOMAttr -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "is-id" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "is-id" - attrGet _ = getDOMAttrIsId - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMAttrName :: (MonadIO m, DOMAttrK o) => o -> m (Maybe T.Text) -getDOMAttrName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMAttrNamePropertyInfo -instance AttrInfo DOMAttrNamePropertyInfo where - type AttrAllowedOps DOMAttrNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMAttrNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAttrNamePropertyInfo = DOMAttrK - type AttrGetType DOMAttrNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMAttrNamePropertyInfo = "name" - attrGet _ = getDOMAttrName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "owner-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMAttrOwnerElement :: (MonadIO m, DOMAttrK o) => o -> m DOMElement -getDOMAttrOwnerElement obj = liftIO $ checkUnexpectedNothing "getDOMAttrOwnerElement" $ getObjectPropertyObject obj "owner-element" DOMElement - -data DOMAttrOwnerElementPropertyInfo -instance AttrInfo DOMAttrOwnerElementPropertyInfo where - type AttrAllowedOps DOMAttrOwnerElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMAttrOwnerElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMAttrOwnerElementPropertyInfo = DOMAttrK - type AttrGetType DOMAttrOwnerElementPropertyInfo = DOMElement - type AttrLabel DOMAttrOwnerElementPropertyInfo = "owner-element" - attrGet _ = getDOMAttrOwnerElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "specified" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "specified" - attrGet _ = getDOMAttrSpecified - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m (Maybe T.Text) -getDOMAttrValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> T.Text -> m () -setDOMAttrValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) - -constructDOMAttrValue :: T.Text -> IO ([Char], GValue) -constructDOMAttrValue val = constructObjectPropertyString "value" (Just val) - -clearDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m () -clearDOMAttrValue obj = liftIO $ setObjectPropertyString obj "value" (Nothing :: Maybe T.Text) - -data DOMAttrValuePropertyInfo -instance AttrInfo DOMAttrValuePropertyInfo where - type AttrAllowedOps DOMAttrValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMAttrValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMAttrValuePropertyInfo = DOMAttrK - type AttrGetType DOMAttrValuePropertyInfo = (Maybe T.Text) - type AttrLabel DOMAttrValuePropertyInfo = "value" - attrGet _ = getDOMAttrValue - attrSet _ = setDOMAttrValue - attrConstruct _ = constructDOMAttrValue - attrClear _ = clearDOMAttrValue - -type instance AttributeList DOMAttr = DOMAttrAttributeList -type DOMAttrAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("isId", DOMAttrIsIdPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMAttrNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("ownerElement", DOMAttrOwnerElementPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("specified", DOMAttrSpecifiedPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("value", DOMAttrValuePropertyInfo)] :: [(Symbol, *)]) - -dOMAttrIsId :: AttrLabelProxy "isId" -dOMAttrIsId = AttrLabelProxy - -dOMAttrName :: AttrLabelProxy "name" -dOMAttrName = AttrLabelProxy - -dOMAttrOwnerElement :: AttrLabelProxy "ownerElement" -dOMAttrOwnerElement = AttrLabelProxy - -dOMAttrSpecified :: AttrLabelProxy "specified" -dOMAttrSpecified = AttrLabelProxy - -dOMAttrValue :: AttrLabelProxy "value" -dOMAttrValue = AttrLabelProxy - -type instance SignalList DOMAttr = DOMAttrSignalList -type DOMAttrSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMAttr::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMAttrGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMAttrK a) => MethodInfo DOMAttrGetNameMethodInfo a signature where - overloadedMethod _ = dOMAttrGetName - --- method DOMAttr::get_owner_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMAttrGetOwnerElementMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMAttrK a) => MethodInfo DOMAttrGetOwnerElementMethodInfo a signature where - overloadedMethod _ = dOMAttrGetOwnerElement - --- method DOMAttr::get_specified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMAttrGetSpecified _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_attr_get_specified _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMAttrGetSpecifiedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMAttrK a) => MethodInfo DOMAttrGetSpecifiedMethodInfo a signature where - overloadedMethod _ = dOMAttrGetSpecified - --- method DOMAttr::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMAttrGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMAttrK a) => MethodInfo DOMAttrGetValueMethodInfo a signature where - overloadedMethod _ = dOMAttrGetValue - --- method DOMAttr::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMAttrSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMAttrK a) => MethodInfo DOMAttrSetValueMethodInfo a signature where - overloadedMethod _ = dOMAttrSetValue - - diff --git a/GI/WebKit2WebExtension/Objects/DOMAttr.hs-boot b/GI/WebKit2WebExtension/Objects/DOMAttr.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMAttr.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMAttr where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMAttrGetNameMethodInfo -data DOMAttrGetOwnerElementMethodInfo -data DOMAttrGetSpecifiedMethodInfo -data DOMAttrGetValueMethodInfo -data DOMAttrSetValueMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMBlob.hs b/GI/WebKit2WebExtension/Objects/DOMBlob.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMBlob.hs +++ /dev/null @@ -1,189 +0,0 @@ - - -{- | -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 - DOMBlobGetSizeMethodInfo , - dOMBlobGetSize , - - - - - -- * Properties --- ** Size - DOMBlobSizePropertyInfo , - dOMBlobSize , - getDOMBlobSize , - - --- ** Type - DOMBlobTypePropertyInfo , - dOMBlobType , - getDOMBlobType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMBlobMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMBlobMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMBlobMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMBlobMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMBlobMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMBlobMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMBlobMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMBlobMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMBlobMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMBlobMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMBlobMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMBlobMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMBlobMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMBlobMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMBlobMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMBlobMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMBlobMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMBlobMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMBlobMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMBlobMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMBlobMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMBlobMethod "getSize" o = DOMBlobGetSizeMethodInfo - ResolveDOMBlobMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMBlobMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMBlobMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMBlobMethod t DOMBlob, MethodInfo info DOMBlob p) => IsLabelProxy t (DOMBlob -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMBlobMethod t DOMBlob, MethodInfo info DOMBlob p) => IsLabel t (DOMBlob -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "size" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "size" - attrGet _ = getDOMBlobSize - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMBlobType :: (MonadIO m, DOMBlobK o) => o -> m (Maybe T.Text) -getDOMBlobType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMBlobTypePropertyInfo -instance AttrInfo DOMBlobTypePropertyInfo where - type AttrAllowedOps DOMBlobTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMBlobTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMBlobTypePropertyInfo = DOMBlobK - type AttrGetType DOMBlobTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMBlobTypePropertyInfo = "type" - attrGet _ = getDOMBlobType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMBlob = DOMBlobAttributeList -type DOMBlobAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] :: [(Symbol, *)]) - -dOMBlobSize :: AttrLabelProxy "size" -dOMBlobSize = AttrLabelProxy - -dOMBlobType :: AttrLabelProxy "type" -dOMBlobType = AttrLabelProxy - -type instance SignalList DOMBlob = DOMBlobSignalList -type DOMBlobSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMBlob::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMBlobGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_blob_get_size _obj' - touchManagedPtr _obj - return result - -data DOMBlobGetSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, DOMBlobK a) => MethodInfo DOMBlobGetSizeMethodInfo a signature where - overloadedMethod _ = dOMBlobGetSize - - diff --git a/GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot b/GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMBlob where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMBlobGetSizeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs b/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs +++ /dev/null @@ -1,134 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMCDATASectionMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCDATASectionMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMCDATASectionMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMCDATASectionMethod "appendData" o = DOMCharacterDataAppendDataMethodInfo - ResolveDOMCDATASectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCDATASectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCDATASectionMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMCDATASectionMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMCDATASectionMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMCDATASectionMethod "deleteData" o = DOMCharacterDataDeleteDataMethodInfo - ResolveDOMCDATASectionMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMCDATASectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCDATASectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCDATASectionMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMCDATASectionMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMCDATASectionMethod "insertData" o = DOMCharacterDataInsertDataMethodInfo - ResolveDOMCDATASectionMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMCDATASectionMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMCDATASectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCDATASectionMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMCDATASectionMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMCDATASectionMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMCDATASectionMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMCDATASectionMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMCDATASectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCDATASectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCDATASectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCDATASectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCDATASectionMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMCDATASectionMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMCDATASectionMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMCDATASectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCDATASectionMethod "replaceWholeText" o = DOMTextReplaceWholeTextMethodInfo - ResolveDOMCDATASectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCDATASectionMethod "splitText" o = DOMTextSplitTextMethodInfo - ResolveDOMCDATASectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCDATASectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCDATASectionMethod "substringData" o = DOMCharacterDataSubstringDataMethodInfo - ResolveDOMCDATASectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCDATASectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCDATASectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCDATASectionMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMCDATASectionMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMCDATASectionMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMCDATASectionMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMCDATASectionMethod "getLength" o = DOMCharacterDataGetLengthMethodInfo - ResolveDOMCDATASectionMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMCDATASectionMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMCDATASectionMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMCDATASectionMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMCDATASectionMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMCDATASectionMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMCDATASectionMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMCDATASectionMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMCDATASectionMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMCDATASectionMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMCDATASectionMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMCDATASectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCDATASectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCDATASectionMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMCDATASectionMethod "getWholeText" o = DOMTextGetWholeTextMethodInfo - ResolveDOMCDATASectionMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMCDATASectionMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMCDATASectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMCDATASectionMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMCDATASectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCDATASectionMethod t DOMCDATASection, MethodInfo info DOMCDATASection p) => IsLabelProxy t (DOMCDATASection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCDATASectionMethod t DOMCDATASection, MethodInfo info DOMCDATASection p) => IsLabel t (DOMCDATASection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMCDATASection = DOMCDATASectionAttributeList -type DOMCDATASectionAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DOMCDATASection = DOMCDATASectionSignalList -type DOMCDATASectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMCDATASection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs b/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs +++ /dev/null @@ -1,407 +0,0 @@ - - -{- | -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 - DOMCSSRuleGetCssTextMethodInfo , - dOMCSSRuleGetCssText , - - --- ** dOMCSSRuleGetParentRule - DOMCSSRuleGetParentRuleMethodInfo , - dOMCSSRuleGetParentRule , - - --- ** dOMCSSRuleGetParentStyleSheet - DOMCSSRuleGetParentStyleSheetMethodInfo , - dOMCSSRuleGetParentStyleSheet , - - --- ** dOMCSSRuleGetRuleType - DOMCSSRuleGetRuleTypeMethodInfo , - dOMCSSRuleGetRuleType , - - --- ** dOMCSSRuleSetCssText - DOMCSSRuleSetCssTextMethodInfo , - dOMCSSRuleSetCssText , - - - - - -- * Properties --- ** CssText - DOMCSSRuleCssTextPropertyInfo , - clearDOMCSSRuleCssText , - constructDOMCSSRuleCssText , - dOMCSSRuleCssText , - getDOMCSSRuleCssText , - setDOMCSSRuleCssText , - - --- ** ParentRule - DOMCSSRuleParentRulePropertyInfo , - dOMCSSRuleParentRule , - getDOMCSSRuleParentRule , - - --- ** ParentStyleSheet - DOMCSSRuleParentStyleSheetPropertyInfo , - dOMCSSRuleParentStyleSheet , - getDOMCSSRuleParentStyleSheet , - - --- ** Type - DOMCSSRuleTypePropertyInfo , - dOMCSSRuleType , - getDOMCSSRuleType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMCSSRuleMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCSSRuleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCSSRuleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCSSRuleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCSSRuleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCSSRuleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCSSRuleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCSSRuleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCSSRuleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCSSRuleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCSSRuleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMCSSRuleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCSSRuleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCSSRuleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCSSRuleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCSSRuleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCSSRuleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCSSRuleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCSSRuleMethod "getCssText" o = DOMCSSRuleGetCssTextMethodInfo - ResolveDOMCSSRuleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMCSSRuleMethod "getParentRule" o = DOMCSSRuleGetParentRuleMethodInfo - ResolveDOMCSSRuleMethod "getParentStyleSheet" o = DOMCSSRuleGetParentStyleSheetMethodInfo - ResolveDOMCSSRuleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCSSRuleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCSSRuleMethod "getRuleType" o = DOMCSSRuleGetRuleTypeMethodInfo - ResolveDOMCSSRuleMethod "setCssText" o = DOMCSSRuleSetCssTextMethodInfo - ResolveDOMCSSRuleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMCSSRuleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMCSSRuleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCSSRuleMethod t DOMCSSRule, MethodInfo info DOMCSSRule p) => IsLabelProxy t (DOMCSSRule -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCSSRuleMethod t DOMCSSRule, MethodInfo info DOMCSSRule p) => IsLabel t (DOMCSSRule -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "css-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m (Maybe 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" (Just val) - -constructDOMCSSRuleCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" (Just val) - -clearDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m () -clearDOMCSSRuleCssText obj = liftIO $ setObjectPropertyString obj "css-text" (Nothing :: Maybe T.Text) - -data DOMCSSRuleCssTextPropertyInfo -instance AttrInfo DOMCSSRuleCssTextPropertyInfo where - type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleCssTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMCSSRuleCssTextPropertyInfo = "css-text" - attrGet _ = getDOMCSSRuleCssText - attrSet _ = setDOMCSSRuleCssText - attrConstruct _ = constructDOMCSSRuleCssText - attrClear _ = clearDOMCSSRuleCssText - --- VVV Prop "parent-rule" - -- Type: TInterface "WebKit2WebExtension" "DOMCSSRule" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m (Maybe DOMCSSRule) -getDOMCSSRuleParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule - -data DOMCSSRuleParentRulePropertyInfo -instance AttrInfo DOMCSSRuleParentRulePropertyInfo where - type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleParentRulePropertyInfo = (Maybe DOMCSSRule) - type AttrLabel DOMCSSRuleParentRulePropertyInfo = "parent-rule" - attrGet _ = getDOMCSSRuleParentRule - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parent-style-sheet" - -- Type: TInterface "WebKit2WebExtension" "DOMCSSStyleSheet" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m (Maybe DOMCSSStyleSheet) -getDOMCSSRuleParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMCSSStyleSheet - -data DOMCSSRuleParentStyleSheetPropertyInfo -instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where - type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRuleK - type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = (Maybe DOMCSSStyleSheet) - type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "parent-style-sheet" - attrGet _ = getDOMCSSRuleParentStyleSheet - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSRuleType :: (MonadIO m, DOMCSSRuleK o) => o -> m Word32 -getDOMCSSRuleType obj = liftIO $ getObjectPropertyUInt32 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 = "type" - attrGet _ = getDOMCSSRuleType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMCSSRule = DOMCSSRuleAttributeList -type DOMCSSRuleAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSRuleCssTextPropertyInfo), '("parentRule", DOMCSSRuleParentRulePropertyInfo), '("parentStyleSheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] :: [(Symbol, *)]) - -dOMCSSRuleCssText :: AttrLabelProxy "cssText" -dOMCSSRuleCssText = AttrLabelProxy - -dOMCSSRuleParentRule :: AttrLabelProxy "parentRule" -dOMCSSRuleParentRule = AttrLabelProxy - -dOMCSSRuleParentStyleSheet :: AttrLabelProxy "parentStyleSheet" -dOMCSSRuleParentStyleSheet = AttrLabelProxy - -dOMCSSRuleType :: AttrLabelProxy "type" -dOMCSSRuleType = AttrLabelProxy - -type instance SignalList DOMCSSRule = DOMCSSRuleSignalList -type DOMCSSRuleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMCSSRule::get_css_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSRuleGetCssTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMCSSRuleK a) => MethodInfo DOMCSSRuleGetCssTextMethodInfo a signature where - overloadedMethod _ = dOMCSSRuleGetCssText - --- method DOMCSSRule::get_parent_rule --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSRuleGetParentRuleMethodInfo -instance (signature ~ (m DOMCSSRule), MonadIO m, DOMCSSRuleK a) => MethodInfo DOMCSSRuleGetParentRuleMethodInfo a signature where - overloadedMethod _ = dOMCSSRuleGetParentRule - --- method DOMCSSRule::get_parent_style_sheet --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSRuleGetParentStyleSheetMethodInfo -instance (signature ~ (m DOMCSSStyleSheet), MonadIO m, DOMCSSRuleK a) => MethodInfo DOMCSSRuleGetParentStyleSheetMethodInfo a signature where - overloadedMethod _ = dOMCSSRuleGetParentStyleSheet - --- method DOMCSSRule::get_rule_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMCSSRuleGetRuleType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_css_rule_get_rule_type _obj' - touchManagedPtr _obj - return result - -data DOMCSSRuleGetRuleTypeMethodInfo -instance (signature ~ (m Word16), MonadIO m, DOMCSSRuleK a) => MethodInfo DOMCSSRuleGetRuleTypeMethodInfo a signature where - overloadedMethod _ = dOMCSSRuleGetRuleType - --- method DOMCSSRule::set_css_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMCSSRuleSetCssTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMCSSRuleK a) => MethodInfo DOMCSSRuleSetCssTextMethodInfo a signature where - overloadedMethod _ = dOMCSSRuleSetCssText - - diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMCSSRule where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMCSSRuleGetCssTextMethodInfo -data DOMCSSRuleGetParentRuleMethodInfo -data DOMCSSRuleGetParentStyleSheetMethodInfo -data DOMCSSRuleGetRuleTypeMethodInfo -data DOMCSSRuleSetCssTextMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs b/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs +++ /dev/null @@ -1,197 +0,0 @@ - - -{- | -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 - DOMCSSRuleListGetLengthMethodInfo , - dOMCSSRuleListGetLength , - - --- ** dOMCSSRuleListItem - DOMCSSRuleListItemMethodInfo , - dOMCSSRuleListItem , - - - - - -- * Properties --- ** Length - DOMCSSRuleListLengthPropertyInfo , - dOMCSSRuleListLength , - getDOMCSSRuleListLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMCSSRuleListMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCSSRuleListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCSSRuleListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCSSRuleListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCSSRuleListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCSSRuleListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCSSRuleListMethod "item" o = DOMCSSRuleListItemMethodInfo - ResolveDOMCSSRuleListMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCSSRuleListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCSSRuleListMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCSSRuleListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCSSRuleListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMCSSRuleListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCSSRuleListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCSSRuleListMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCSSRuleListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCSSRuleListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCSSRuleListMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCSSRuleListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCSSRuleListMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMCSSRuleListMethod "getLength" o = DOMCSSRuleListGetLengthMethodInfo - ResolveDOMCSSRuleListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCSSRuleListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCSSRuleListMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMCSSRuleListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMCSSRuleListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCSSRuleListMethod t DOMCSSRuleList, MethodInfo info DOMCSSRuleList p) => IsLabelProxy t (DOMCSSRuleList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCSSRuleListMethod t DOMCSSRuleList, MethodInfo info DOMCSSRuleList p) => IsLabel t (DOMCSSRuleList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMCSSRuleListLength :: (MonadIO m, DOMCSSRuleListK o) => o -> m CULong -getDOMCSSRuleListLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMCSSRuleListLengthPropertyInfo -instance AttrInfo DOMCSSRuleListLengthPropertyInfo where - type AttrAllowedOps DOMCSSRuleListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSRuleListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSRuleListLengthPropertyInfo = DOMCSSRuleListK - type AttrGetType DOMCSSRuleListLengthPropertyInfo = CULong - type AttrLabel DOMCSSRuleListLengthPropertyInfo = "length" - attrGet _ = getDOMCSSRuleListLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMCSSRuleList = DOMCSSRuleListAttributeList -type DOMCSSRuleListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMCSSRuleListLengthPropertyInfo)] :: [(Symbol, *)]) - -dOMCSSRuleListLength :: AttrLabelProxy "length" -dOMCSSRuleListLength = AttrLabelProxy - -type instance SignalList DOMCSSRuleList = DOMCSSRuleListSignalList -type DOMCSSRuleListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMCSSRuleList::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMCSSRuleListGetLength :: - (MonadIO m, DOMCSSRuleListK a) => - a -- _obj - -> m CULong -- result -dOMCSSRuleListGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_css_rule_list_get_length _obj' - touchManagedPtr _obj - return result - -data DOMCSSRuleListGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMCSSRuleListK a) => MethodInfo DOMCSSRuleListGetLengthMethodInfo a signature where - overloadedMethod _ = dOMCSSRuleListGetLength - --- method DOMCSSRuleList::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO (Ptr DOMCSSRule) - - -dOMCSSRuleListItem :: - (MonadIO m, DOMCSSRuleListK a) => - a -- _obj - -> CULong -- index - -> m DOMCSSRule -- result -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' - -data DOMCSSRuleListItemMethodInfo -instance (signature ~ (CULong -> m DOMCSSRule), MonadIO m, DOMCSSRuleListK a) => MethodInfo DOMCSSRuleListItemMethodInfo a signature where - overloadedMethod _ = dOMCSSRuleListItem - - diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMCSSRuleList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMCSSRuleListGetLengthMethodInfo -data DOMCSSRuleListItemMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs b/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs +++ /dev/null @@ -1,634 +0,0 @@ - - -{- | -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 - DOMCSSStyleDeclarationGetCssTextMethodInfo, - dOMCSSStyleDeclarationGetCssText , - - --- ** dOMCSSStyleDeclarationGetLength - DOMCSSStyleDeclarationGetLengthMethodInfo, - dOMCSSStyleDeclarationGetLength , - - --- ** dOMCSSStyleDeclarationGetParentRule - DOMCSSStyleDeclarationGetParentRuleMethodInfo, - dOMCSSStyleDeclarationGetParentRule , - - --- ** dOMCSSStyleDeclarationGetPropertyPriority - DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo, - dOMCSSStyleDeclarationGetPropertyPriority, - - --- ** dOMCSSStyleDeclarationGetPropertyShorthand - DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo, - dOMCSSStyleDeclarationGetPropertyShorthand, - - --- ** dOMCSSStyleDeclarationGetPropertyValue - DOMCSSStyleDeclarationGetPropertyValueMethodInfo, - dOMCSSStyleDeclarationGetPropertyValue , - - --- ** dOMCSSStyleDeclarationIsPropertyImplicit - DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo, - dOMCSSStyleDeclarationIsPropertyImplicit, - - --- ** dOMCSSStyleDeclarationItem - DOMCSSStyleDeclarationItemMethodInfo , - dOMCSSStyleDeclarationItem , - - --- ** dOMCSSStyleDeclarationRemoveProperty - DOMCSSStyleDeclarationRemovePropertyMethodInfo, - dOMCSSStyleDeclarationRemoveProperty , - - --- ** dOMCSSStyleDeclarationSetCssText - DOMCSSStyleDeclarationSetCssTextMethodInfo, - dOMCSSStyleDeclarationSetCssText , - - --- ** dOMCSSStyleDeclarationSetProperty - DOMCSSStyleDeclarationSetPropertyMethodInfo, - dOMCSSStyleDeclarationSetProperty , - - - - - -- * Properties --- ** CssText - DOMCSSStyleDeclarationCssTextPropertyInfo, - clearDOMCSSStyleDeclarationCssText , - constructDOMCSSStyleDeclarationCssText , - dOMCSSStyleDeclarationCssText , - getDOMCSSStyleDeclarationCssText , - setDOMCSSStyleDeclarationCssText , - - --- ** Length - DOMCSSStyleDeclarationLengthPropertyInfo, - dOMCSSStyleDeclarationLength , - getDOMCSSStyleDeclarationLength , - - --- ** ParentRule - DOMCSSStyleDeclarationParentRulePropertyInfo, - dOMCSSStyleDeclarationParentRule , - getDOMCSSStyleDeclarationParentRule , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMCSSStyleDeclarationMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCSSStyleDeclarationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCSSStyleDeclarationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCSSStyleDeclarationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCSSStyleDeclarationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCSSStyleDeclarationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCSSStyleDeclarationMethod "isPropertyImplicit" o = DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo - ResolveDOMCSSStyleDeclarationMethod "item" o = DOMCSSStyleDeclarationItemMethodInfo - ResolveDOMCSSStyleDeclarationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCSSStyleDeclarationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCSSStyleDeclarationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCSSStyleDeclarationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCSSStyleDeclarationMethod "removeProperty" o = DOMCSSStyleDeclarationRemovePropertyMethodInfo - ResolveDOMCSSStyleDeclarationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMCSSStyleDeclarationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCSSStyleDeclarationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCSSStyleDeclarationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCSSStyleDeclarationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCSSStyleDeclarationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCSSStyleDeclarationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCSSStyleDeclarationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getCssText" o = DOMCSSStyleDeclarationGetCssTextMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getLength" o = DOMCSSStyleDeclarationGetLengthMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getParentRule" o = DOMCSSStyleDeclarationGetParentRuleMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getPropertyPriority" o = DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getPropertyShorthand" o = DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getPropertyValue" o = DOMCSSStyleDeclarationGetPropertyValueMethodInfo - ResolveDOMCSSStyleDeclarationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCSSStyleDeclarationMethod "setCssText" o = DOMCSSStyleDeclarationSetCssTextMethodInfo - ResolveDOMCSSStyleDeclarationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMCSSStyleDeclarationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCSSStyleDeclarationMethod t DOMCSSStyleDeclaration, MethodInfo info DOMCSSStyleDeclaration p) => IsLabelProxy t (DOMCSSStyleDeclaration -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCSSStyleDeclarationMethod t DOMCSSStyleDeclaration, MethodInfo info DOMCSSStyleDeclaration p) => IsLabel t (DOMCSSStyleDeclaration -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "css-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m (Maybe 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" (Just val) - -constructDOMCSSStyleDeclarationCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSStyleDeclarationCssText val = constructObjectPropertyString "css-text" (Just val) - -clearDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m () -clearDOMCSSStyleDeclarationCssText obj = liftIO $ setObjectPropertyString obj "css-text" (Nothing :: Maybe T.Text) - -data DOMCSSStyleDeclarationCssTextPropertyInfo -instance AttrInfo DOMCSSStyleDeclarationCssTextPropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMCSSStyleDeclarationCssTextPropertyInfo = "css-text" - attrGet _ = getDOMCSSStyleDeclarationCssText - attrSet _ = setDOMCSSStyleDeclarationCssText - attrConstruct _ = constructDOMCSSStyleDeclarationCssText - attrClear _ = clearDOMCSSStyleDeclarationCssText - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMCSSStyleDeclarationLength :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m CULong -getDOMCSSStyleDeclarationLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMCSSStyleDeclarationLengthPropertyInfo -instance AttrInfo DOMCSSStyleDeclarationLengthPropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = CULong - type AttrLabel DOMCSSStyleDeclarationLengthPropertyInfo = "length" - attrGet _ = getDOMCSSStyleDeclarationLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parent-rule" - -- Type: TInterface "WebKit2WebExtension" "DOMCSSRule" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSStyleDeclarationParentRule :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m (Maybe DOMCSSRule) -getDOMCSSStyleDeclarationParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule - -data DOMCSSStyleDeclarationParentRulePropertyInfo -instance AttrInfo DOMCSSStyleDeclarationParentRulePropertyInfo where - type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSStyleDeclarationK - type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = (Maybe DOMCSSRule) - type AttrLabel DOMCSSStyleDeclarationParentRulePropertyInfo = "parent-rule" - attrGet _ = getDOMCSSStyleDeclarationParentRule - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationAttributeList -type DOMCSSStyleDeclarationAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSStyleDeclarationCssTextPropertyInfo), '("length", DOMCSSStyleDeclarationLengthPropertyInfo), '("parentRule", DOMCSSStyleDeclarationParentRulePropertyInfo)] :: [(Symbol, *)]) - -dOMCSSStyleDeclarationCssText :: AttrLabelProxy "cssText" -dOMCSSStyleDeclarationCssText = AttrLabelProxy - -dOMCSSStyleDeclarationLength :: AttrLabelProxy "length" -dOMCSSStyleDeclarationLength = AttrLabelProxy - -dOMCSSStyleDeclarationParentRule :: AttrLabelProxy "parentRule" -dOMCSSStyleDeclarationParentRule = AttrLabelProxy - -type instance SignalList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationSignalList -type DOMCSSStyleDeclarationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMCSSStyleDeclaration::get_css_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleDeclarationGetCssTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetCssTextMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationGetCssText - --- method DOMCSSStyleDeclaration::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMCSSStyleDeclarationGetLength :: - (MonadIO m, DOMCSSStyleDeclarationK a) => - a -- _obj - -> m CULong -- result -dOMCSSStyleDeclarationGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_css_style_declaration_get_length _obj' - touchManagedPtr _obj - return result - -data DOMCSSStyleDeclarationGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetLengthMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationGetLength - --- method DOMCSSStyleDeclaration::get_parent_rule --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleDeclarationGetParentRuleMethodInfo -instance (signature ~ (m DOMCSSRule), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetParentRuleMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationGetParentRule - --- method DOMCSSStyleDeclaration::get_property_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationGetPropertyPriority - --- method DOMCSSStyleDeclaration::get_property_shorthand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationGetPropertyShorthand - --- method DOMCSSStyleDeclaration::get_property_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleDeclarationGetPropertyValueMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationGetPropertyValueMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationGetPropertyValue - --- method DOMCSSStyleDeclaration::is_property_implicit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationIsPropertyImplicit - --- method DOMCSSStyleDeclaration::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO CString - - -dOMCSSStyleDeclarationItem :: - (MonadIO m, DOMCSSStyleDeclarationK a) => - a -- _obj - -> CULong -- index - -> m T.Text -- result -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' - -data DOMCSSStyleDeclarationItemMethodInfo -instance (signature ~ (CULong -> m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationItemMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationItem - --- method DOMCSSStyleDeclaration::remove_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMCSSStyleDeclarationRemovePropertyMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationRemovePropertyMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationRemoveProperty - --- method DOMCSSStyleDeclaration::set_css_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMCSSStyleDeclarationSetCssTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationSetCssTextMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationSetCssText - --- method DOMCSSStyleDeclaration::set_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMCSSStyleDeclarationSetPropertyMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, DOMCSSStyleDeclarationK a) => MethodInfo DOMCSSStyleDeclarationSetPropertyMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleDeclarationSetProperty - - diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMCSSStyleDeclarationGetCssTextMethodInfo -data DOMCSSStyleDeclarationGetLengthMethodInfo -data DOMCSSStyleDeclarationGetParentRuleMethodInfo -data DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo -data DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo -data DOMCSSStyleDeclarationGetPropertyValueMethodInfo -data DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo -data DOMCSSStyleDeclarationItemMethodInfo -data DOMCSSStyleDeclarationRemovePropertyMethodInfo -data DOMCSSStyleDeclarationSetCssTextMethodInfo -data DOMCSSStyleDeclarationSetPropertyMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs b/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs +++ /dev/null @@ -1,471 +0,0 @@ - - -{- | -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 - DOMCSSStyleSheetAddRuleMethodInfo , - dOMCSSStyleSheetAddRule , - - --- ** dOMCSSStyleSheetDeleteRule - DOMCSSStyleSheetDeleteRuleMethodInfo , - dOMCSSStyleSheetDeleteRule , - - --- ** dOMCSSStyleSheetGetCssRules - DOMCSSStyleSheetGetCssRulesMethodInfo , - dOMCSSStyleSheetGetCssRules , - - --- ** dOMCSSStyleSheetGetOwnerRule - DOMCSSStyleSheetGetOwnerRuleMethodInfo , - dOMCSSStyleSheetGetOwnerRule , - - --- ** dOMCSSStyleSheetGetRules - DOMCSSStyleSheetGetRulesMethodInfo , - dOMCSSStyleSheetGetRules , - - --- ** dOMCSSStyleSheetInsertRule - DOMCSSStyleSheetInsertRuleMethodInfo , - dOMCSSStyleSheetInsertRule , - - --- ** dOMCSSStyleSheetRemoveRule - DOMCSSStyleSheetRemoveRuleMethodInfo , - dOMCSSStyleSheetRemoveRule , - - - - - -- * Properties --- ** CssRules - DOMCSSStyleSheetCssRulesPropertyInfo , - dOMCSSStyleSheetCssRules , - getDOMCSSStyleSheetCssRules , - - --- ** OwnerRule - DOMCSSStyleSheetOwnerRulePropertyInfo , - dOMCSSStyleSheetOwnerRule , - getDOMCSSStyleSheetOwnerRule , - - --- ** Rules - DOMCSSStyleSheetRulesPropertyInfo , - dOMCSSStyleSheetRules , - getDOMCSSStyleSheetRules , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMCSSStyleSheetMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCSSStyleSheetMethod "addRule" o = DOMCSSStyleSheetAddRuleMethodInfo - ResolveDOMCSSStyleSheetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCSSStyleSheetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCSSStyleSheetMethod "deleteRule" o = DOMCSSStyleSheetDeleteRuleMethodInfo - ResolveDOMCSSStyleSheetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCSSStyleSheetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCSSStyleSheetMethod "insertRule" o = DOMCSSStyleSheetInsertRuleMethodInfo - ResolveDOMCSSStyleSheetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCSSStyleSheetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCSSStyleSheetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCSSStyleSheetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCSSStyleSheetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCSSStyleSheetMethod "removeRule" o = DOMCSSStyleSheetRemoveRuleMethodInfo - ResolveDOMCSSStyleSheetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMCSSStyleSheetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCSSStyleSheetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCSSStyleSheetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCSSStyleSheetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCSSStyleSheetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCSSStyleSheetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCSSStyleSheetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCSSStyleSheetMethod "getContentType" o = DOMStyleSheetGetContentTypeMethodInfo - ResolveDOMCSSStyleSheetMethod "getCssRules" o = DOMCSSStyleSheetGetCssRulesMethodInfo - ResolveDOMCSSStyleSheetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMCSSStyleSheetMethod "getDisabled" o = DOMStyleSheetGetDisabledMethodInfo - ResolveDOMCSSStyleSheetMethod "getHref" o = DOMStyleSheetGetHrefMethodInfo - ResolveDOMCSSStyleSheetMethod "getMedia" o = DOMStyleSheetGetMediaMethodInfo - ResolveDOMCSSStyleSheetMethod "getOwnerNode" o = DOMStyleSheetGetOwnerNodeMethodInfo - ResolveDOMCSSStyleSheetMethod "getOwnerRule" o = DOMCSSStyleSheetGetOwnerRuleMethodInfo - ResolveDOMCSSStyleSheetMethod "getParentStyleSheet" o = DOMStyleSheetGetParentStyleSheetMethodInfo - ResolveDOMCSSStyleSheetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCSSStyleSheetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCSSStyleSheetMethod "getRules" o = DOMCSSStyleSheetGetRulesMethodInfo - ResolveDOMCSSStyleSheetMethod "getTitle" o = DOMStyleSheetGetTitleMethodInfo - ResolveDOMCSSStyleSheetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMCSSStyleSheetMethod "setDisabled" o = DOMStyleSheetSetDisabledMethodInfo - ResolveDOMCSSStyleSheetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMCSSStyleSheetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCSSStyleSheetMethod t DOMCSSStyleSheet, MethodInfo info DOMCSSStyleSheet p) => IsLabelProxy t (DOMCSSStyleSheet -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCSSStyleSheetMethod t DOMCSSStyleSheet, MethodInfo info DOMCSSStyleSheet p) => IsLabel t (DOMCSSStyleSheet -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "css-rules" - -- Type: TInterface "WebKit2WebExtension" "DOMCSSRuleList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSStyleSheetCssRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m (Maybe DOMCSSRuleList) -getDOMCSSStyleSheetCssRules obj = liftIO $ getObjectPropertyObject obj "css-rules" DOMCSSRuleList - -data DOMCSSStyleSheetCssRulesPropertyInfo -instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = (Maybe DOMCSSRuleList) - type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "css-rules" - attrGet _ = getDOMCSSStyleSheetCssRules - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "owner-rule" - -- Type: TInterface "WebKit2WebExtension" "DOMCSSRule" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSStyleSheetOwnerRule :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m (Maybe DOMCSSRule) -getDOMCSSStyleSheetOwnerRule obj = liftIO $ getObjectPropertyObject obj "owner-rule" DOMCSSRule - -data DOMCSSStyleSheetOwnerRulePropertyInfo -instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = (Maybe DOMCSSRule) - type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "owner-rule" - attrGet _ = getDOMCSSStyleSheetOwnerRule - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "rules" - -- Type: TInterface "WebKit2WebExtension" "DOMCSSRuleList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSStyleSheetRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m (Maybe DOMCSSRuleList) -getDOMCSSStyleSheetRules obj = liftIO $ getObjectPropertyObject obj "rules" DOMCSSRuleList - -data DOMCSSStyleSheetRulesPropertyInfo -instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where - type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheetK - type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = (Maybe DOMCSSRuleList) - type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "rules" - attrGet _ = getDOMCSSStyleSheetRules - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMCSSStyleSheet = DOMCSSStyleSheetAttributeList -type DOMCSSStyleSheetAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssRules", DOMCSSStyleSheetCssRulesPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("ownerNode", DOMStyleSheetOwnerNodePropertyInfo), '("ownerRule", DOMCSSStyleSheetOwnerRulePropertyInfo), '("parentStyleSheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("rules", DOMCSSStyleSheetRulesPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)]) - -dOMCSSStyleSheetCssRules :: AttrLabelProxy "cssRules" -dOMCSSStyleSheetCssRules = AttrLabelProxy - -dOMCSSStyleSheetOwnerRule :: AttrLabelProxy "ownerRule" -dOMCSSStyleSheetOwnerRule = AttrLabelProxy - -dOMCSSStyleSheetRules :: AttrLabelProxy "rules" -dOMCSSStyleSheetRules = AttrLabelProxy - -type instance SignalList DOMCSSStyleSheet = DOMCSSStyleSheetSignalList -type DOMCSSStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMCSSStyleSheet::add_rule --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selector", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 - CULong -> -- index : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO CLong - - -dOMCSSStyleSheetAddRule :: - (MonadIO m, DOMCSSStyleSheetK a) => - a -- _obj - -> T.Text -- selector - -> T.Text -- style - -> CULong -- index - -> m CLong -- result -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' - ) - -data DOMCSSStyleSheetAddRuleMethodInfo -instance (signature ~ (T.Text -> T.Text -> CULong -> m CLong), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetAddRuleMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleSheetAddRule - --- method DOMCSSStyleSheet::delete_rule --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- index : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO () - - -dOMCSSStyleSheetDeleteRule :: - (MonadIO m, DOMCSSStyleSheetK a) => - a -- _obj - -> CULong -- index - -> m () -- result -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 () - ) - -data DOMCSSStyleSheetDeleteRuleMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetDeleteRuleMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleSheetDeleteRule - --- method DOMCSSStyleSheet::get_css_rules --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleSheetGetCssRulesMethodInfo -instance (signature ~ (m DOMCSSRuleList), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetGetCssRulesMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleSheetGetCssRules - --- method DOMCSSStyleSheet::get_owner_rule --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleSheetGetOwnerRuleMethodInfo -instance (signature ~ (m DOMCSSRule), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetGetOwnerRuleMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleSheetGetOwnerRule - --- method DOMCSSStyleSheet::get_rules --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSStyleSheetGetRulesMethodInfo -instance (signature ~ (m DOMCSSRuleList), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetGetRulesMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleSheetGetRules - --- method DOMCSSStyleSheet::insert_rule --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rule", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 - CULong -> -- index : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO CULong - - -dOMCSSStyleSheetInsertRule :: - (MonadIO m, DOMCSSStyleSheetK a) => - a -- _obj - -> T.Text -- rule - -> CULong -- index - -> m CULong -- result -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' - ) - -data DOMCSSStyleSheetInsertRuleMethodInfo -instance (signature ~ (T.Text -> CULong -> m CULong), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetInsertRuleMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleSheetInsertRule - --- method DOMCSSStyleSheet::remove_rule --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- index : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO () - - -dOMCSSStyleSheetRemoveRule :: - (MonadIO m, DOMCSSStyleSheetK a) => - a -- _obj - -> CULong -- index - -> m () -- result -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 () - ) - -data DOMCSSStyleSheetRemoveRuleMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, DOMCSSStyleSheetK a) => MethodInfo DOMCSSStyleSheetRemoveRuleMethodInfo a signature where - overloadedMethod _ = dOMCSSStyleSheetRemoveRule - - diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMCSSStyleSheetAddRuleMethodInfo -data DOMCSSStyleSheetDeleteRuleMethodInfo -data DOMCSSStyleSheetGetCssRulesMethodInfo -data DOMCSSStyleSheetGetOwnerRuleMethodInfo -data DOMCSSStyleSheetGetRulesMethodInfo -data DOMCSSStyleSheetInsertRuleMethodInfo -data DOMCSSStyleSheetRemoveRuleMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs b/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs +++ /dev/null @@ -1,279 +0,0 @@ - - -{- | -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 - DOMCSSValueGetCssTextMethodInfo , - dOMCSSValueGetCssText , - - --- ** dOMCSSValueGetCssValueType - DOMCSSValueGetCssValueTypeMethodInfo , - dOMCSSValueGetCssValueType , - - --- ** dOMCSSValueSetCssText - DOMCSSValueSetCssTextMethodInfo , - dOMCSSValueSetCssText , - - - - - -- * Properties --- ** CssText - DOMCSSValueCssTextPropertyInfo , - clearDOMCSSValueCssText , - constructDOMCSSValueCssText , - dOMCSSValueCssText , - getDOMCSSValueCssText , - setDOMCSSValueCssText , - - --- ** CssValueType - DOMCSSValueCssValueTypePropertyInfo , - dOMCSSValueCssValueType , - getDOMCSSValueCssValueType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMCSSValueMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCSSValueMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCSSValueMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCSSValueMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCSSValueMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCSSValueMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCSSValueMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCSSValueMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCSSValueMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCSSValueMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCSSValueMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMCSSValueMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCSSValueMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCSSValueMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCSSValueMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCSSValueMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCSSValueMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCSSValueMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCSSValueMethod "getCssText" o = DOMCSSValueGetCssTextMethodInfo - ResolveDOMCSSValueMethod "getCssValueType" o = DOMCSSValueGetCssValueTypeMethodInfo - ResolveDOMCSSValueMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMCSSValueMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCSSValueMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCSSValueMethod "setCssText" o = DOMCSSValueSetCssTextMethodInfo - ResolveDOMCSSValueMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMCSSValueMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMCSSValueMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCSSValueMethod t DOMCSSValue, MethodInfo info DOMCSSValue p) => IsLabelProxy t (DOMCSSValue -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCSSValueMethod t DOMCSSValue, MethodInfo info DOMCSSValue p) => IsLabel t (DOMCSSValue -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "css-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m (Maybe 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" (Just val) - -constructDOMCSSValueCssText :: T.Text -> IO ([Char], GValue) -constructDOMCSSValueCssText val = constructObjectPropertyString "css-text" (Just val) - -clearDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m () -clearDOMCSSValueCssText obj = liftIO $ setObjectPropertyString obj "css-text" (Nothing :: Maybe T.Text) - -data DOMCSSValueCssTextPropertyInfo -instance AttrInfo DOMCSSValueCssTextPropertyInfo where - type AttrAllowedOps DOMCSSValueCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCSSValueCssTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCSSValueCssTextPropertyInfo = DOMCSSValueK - type AttrGetType DOMCSSValueCssTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMCSSValueCssTextPropertyInfo = "css-text" - attrGet _ = getDOMCSSValueCssText - attrSet _ = setDOMCSSValueCssText - attrConstruct _ = constructDOMCSSValueCssText - attrClear _ = clearDOMCSSValueCssText - --- VVV Prop "css-value-type" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCSSValueCssValueType :: (MonadIO m, DOMCSSValueK o) => o -> m Word32 -getDOMCSSValueCssValueType obj = liftIO $ getObjectPropertyUInt32 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 = "css-value-type" - attrGet _ = getDOMCSSValueCssValueType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMCSSValue = DOMCSSValueAttributeList -type DOMCSSValueAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSValueCssTextPropertyInfo), '("cssValueType", DOMCSSValueCssValueTypePropertyInfo)] :: [(Symbol, *)]) - -dOMCSSValueCssText :: AttrLabelProxy "cssText" -dOMCSSValueCssText = AttrLabelProxy - -dOMCSSValueCssValueType :: AttrLabelProxy "cssValueType" -dOMCSSValueCssValueType = AttrLabelProxy - -type instance SignalList DOMCSSValue = DOMCSSValueSignalList -type DOMCSSValueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMCSSValue::get_css_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCSSValueGetCssTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMCSSValueK a) => MethodInfo DOMCSSValueGetCssTextMethodInfo a signature where - overloadedMethod _ = dOMCSSValueGetCssText - --- method DOMCSSValue::get_css_value_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMCSSValueGetCssValueType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_css_value_get_css_value_type _obj' - touchManagedPtr _obj - return result - -data DOMCSSValueGetCssValueTypeMethodInfo -instance (signature ~ (m Word16), MonadIO m, DOMCSSValueK a) => MethodInfo DOMCSSValueGetCssValueTypeMethodInfo a signature where - overloadedMethod _ = dOMCSSValueGetCssValueType - --- method DOMCSSValue::set_css_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMCSSValueSetCssTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMCSSValueK a) => MethodInfo DOMCSSValueSetCssTextMethodInfo a signature where - overloadedMethod _ = dOMCSSValueSetCssText - - diff --git a/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMCSSValue where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMCSSValueGetCssTextMethodInfo -data DOMCSSValueGetCssValueTypeMethodInfo -data DOMCSSValueSetCssTextMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs b/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs +++ /dev/null @@ -1,587 +0,0 @@ - - -{- | -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 - DOMCharacterDataAppendDataMethodInfo , - dOMCharacterDataAppendData , - - --- ** dOMCharacterDataDeleteData - DOMCharacterDataDeleteDataMethodInfo , - dOMCharacterDataDeleteData , - - --- ** dOMCharacterDataGetData - DOMCharacterDataGetDataMethodInfo , - dOMCharacterDataGetData , - - --- ** dOMCharacterDataGetLength - DOMCharacterDataGetLengthMethodInfo , - dOMCharacterDataGetLength , - - --- ** dOMCharacterDataInsertData - DOMCharacterDataInsertDataMethodInfo , - dOMCharacterDataInsertData , - - --- ** dOMCharacterDataReplaceData - DOMCharacterDataReplaceDataMethodInfo , - dOMCharacterDataReplaceData , - - --- ** dOMCharacterDataSetData - DOMCharacterDataSetDataMethodInfo , - dOMCharacterDataSetData , - - --- ** dOMCharacterDataSubstringData - DOMCharacterDataSubstringDataMethodInfo , - dOMCharacterDataSubstringData , - - - - - -- * Properties --- ** Data - DOMCharacterDataDataPropertyInfo , - clearDOMCharacterDataData , - constructDOMCharacterDataData , - dOMCharacterDataData , - getDOMCharacterDataData , - setDOMCharacterDataData , - - --- ** Length - DOMCharacterDataLengthPropertyInfo , - dOMCharacterDataLength , - getDOMCharacterDataLength , - - --- ** NextElementSibling - DOMCharacterDataNextElementSiblingPropertyInfo, - dOMCharacterDataNextElementSibling , - getDOMCharacterDataNextElementSibling , - - --- ** PreviousElementSibling - DOMCharacterDataPreviousElementSiblingPropertyInfo, - dOMCharacterDataPreviousElementSibling , - getDOMCharacterDataPreviousElementSibling, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMCharacterDataMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCharacterDataMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMCharacterDataMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMCharacterDataMethod "appendData" o = DOMCharacterDataAppendDataMethodInfo - ResolveDOMCharacterDataMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCharacterDataMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCharacterDataMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMCharacterDataMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMCharacterDataMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMCharacterDataMethod "deleteData" o = DOMCharacterDataDeleteDataMethodInfo - ResolveDOMCharacterDataMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMCharacterDataMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCharacterDataMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCharacterDataMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMCharacterDataMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMCharacterDataMethod "insertData" o = DOMCharacterDataInsertDataMethodInfo - ResolveDOMCharacterDataMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMCharacterDataMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMCharacterDataMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCharacterDataMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMCharacterDataMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMCharacterDataMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMCharacterDataMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMCharacterDataMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMCharacterDataMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCharacterDataMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCharacterDataMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCharacterDataMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCharacterDataMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMCharacterDataMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMCharacterDataMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMCharacterDataMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCharacterDataMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCharacterDataMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCharacterDataMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCharacterDataMethod "substringData" o = DOMCharacterDataSubstringDataMethodInfo - ResolveDOMCharacterDataMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCharacterDataMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCharacterDataMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCharacterDataMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMCharacterDataMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMCharacterDataMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMCharacterDataMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMCharacterDataMethod "getLength" o = DOMCharacterDataGetLengthMethodInfo - ResolveDOMCharacterDataMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMCharacterDataMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMCharacterDataMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMCharacterDataMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMCharacterDataMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMCharacterDataMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMCharacterDataMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMCharacterDataMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMCharacterDataMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMCharacterDataMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMCharacterDataMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMCharacterDataMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCharacterDataMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCharacterDataMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMCharacterDataMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMCharacterDataMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMCharacterDataMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMCharacterDataMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMCharacterDataMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCharacterDataMethod t DOMCharacterData, MethodInfo info DOMCharacterData p) => IsLabelProxy t (DOMCharacterData -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCharacterDataMethod t DOMCharacterData, MethodInfo info DOMCharacterData p) => IsLabel t (DOMCharacterData -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "data" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m (Maybe T.Text) -getDOMCharacterDataData obj = liftIO $ getObjectPropertyString obj "data" - -setDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> T.Text -> m () -setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" (Just val) - -constructDOMCharacterDataData :: T.Text -> IO ([Char], GValue) -constructDOMCharacterDataData val = constructObjectPropertyString "data" (Just val) - -clearDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m () -clearDOMCharacterDataData obj = liftIO $ setObjectPropertyString obj "data" (Nothing :: Maybe T.Text) - -data DOMCharacterDataDataPropertyInfo -instance AttrInfo DOMCharacterDataDataPropertyInfo where - type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataDataPropertyInfo = (Maybe T.Text) - type AttrLabel DOMCharacterDataDataPropertyInfo = "data" - attrGet _ = getDOMCharacterDataData - attrSet _ = setDOMCharacterDataData - attrConstruct _ = constructDOMCharacterDataData - attrClear _ = clearDOMCharacterDataData - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m CULong -getDOMCharacterDataLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMCharacterDataLengthPropertyInfo -instance AttrInfo DOMCharacterDataLengthPropertyInfo where - type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataLengthPropertyInfo = CULong - type AttrLabel DOMCharacterDataLengthPropertyInfo = "length" - attrGet _ = getDOMCharacterDataLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "next-element-sibling" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCharacterDataNextElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m (Maybe DOMElement) -getDOMCharacterDataNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement - -data DOMCharacterDataNextElementSiblingPropertyInfo -instance AttrInfo DOMCharacterDataNextElementSiblingPropertyInfo where - type AttrAllowedOps DOMCharacterDataNextElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCharacterDataNextElementSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCharacterDataNextElementSiblingPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataNextElementSiblingPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMCharacterDataNextElementSiblingPropertyInfo = "next-element-sibling" - attrGet _ = getDOMCharacterDataNextElementSibling - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "previous-element-sibling" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMCharacterDataPreviousElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m (Maybe DOMElement) -getDOMCharacterDataPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement - -data DOMCharacterDataPreviousElementSiblingPropertyInfo -instance AttrInfo DOMCharacterDataPreviousElementSiblingPropertyInfo where - type AttrAllowedOps DOMCharacterDataPreviousElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMCharacterDataPreviousElementSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMCharacterDataPreviousElementSiblingPropertyInfo = DOMCharacterDataK - type AttrGetType DOMCharacterDataPreviousElementSiblingPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMCharacterDataPreviousElementSiblingPropertyInfo = "previous-element-sibling" - attrGet _ = getDOMCharacterDataPreviousElementSibling - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMCharacterData = DOMCharacterDataAttributeList -type DOMCharacterDataAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) - -dOMCharacterDataData :: AttrLabelProxy "data" -dOMCharacterDataData = AttrLabelProxy - -dOMCharacterDataLength :: AttrLabelProxy "length" -dOMCharacterDataLength = AttrLabelProxy - -dOMCharacterDataNextElementSibling :: AttrLabelProxy "nextElementSibling" -dOMCharacterDataNextElementSibling = AttrLabelProxy - -dOMCharacterDataPreviousElementSibling :: AttrLabelProxy "previousElementSibling" -dOMCharacterDataPreviousElementSibling = AttrLabelProxy - -type instance SignalList DOMCharacterData = DOMCharacterDataSignalList -type DOMCharacterDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMCharacterData::append_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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_' - ) - -data DOMCharacterDataAppendDataMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataAppendDataMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataAppendData - --- method DOMCharacterData::delete_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- offset : TBasicType TULong - CULong -> -- length : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO () - - -dOMCharacterDataDeleteData :: - (MonadIO m, DOMCharacterDataK a) => - a -- _obj - -> CULong -- offset - -> CULong -- length_ - -> m () -- result -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 () - ) - -data DOMCharacterDataDeleteDataMethodInfo -instance (signature ~ (CULong -> CULong -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataDeleteDataMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataDeleteData - --- method DOMCharacterData::get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMCharacterDataGetDataMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataGetDataMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataGetData - --- method DOMCharacterData::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMCharacterDataGetLength :: - (MonadIO m, DOMCharacterDataK a) => - a -- _obj - -> m CULong -- result -dOMCharacterDataGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_character_data_get_length _obj' - touchManagedPtr _obj - return result - -data DOMCharacterDataGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataGetLengthMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataGetLength - --- method DOMCharacterData::insert_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- offset : TBasicType TULong - CString -> -- data : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO () - - -dOMCharacterDataInsertData :: - (MonadIO m, DOMCharacterDataK a) => - a -- _obj - -> CULong -- offset - -> T.Text -- data_ - -> m () -- result -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_' - ) - -data DOMCharacterDataInsertDataMethodInfo -instance (signature ~ (CULong -> T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataInsertDataMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataInsertData - --- method DOMCharacterData::replace_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- offset : TBasicType TULong - CULong -> -- length : TBasicType TULong - CString -> -- data : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO () - - -dOMCharacterDataReplaceData :: - (MonadIO m, DOMCharacterDataK a) => - a -- _obj - -> CULong -- offset - -> CULong -- length_ - -> T.Text -- data_ - -> m () -- result -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_' - ) - -data DOMCharacterDataReplaceDataMethodInfo -instance (signature ~ (CULong -> CULong -> T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataReplaceDataMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataReplaceData - --- method DOMCharacterData::set_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMCharacterDataSetDataMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataSetDataMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataSetData - --- method DOMCharacterData::substring_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- offset : TBasicType TULong - CULong -> -- length : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO CString - - -dOMCharacterDataSubstringData :: - (MonadIO m, DOMCharacterDataK a) => - a -- _obj - -> CULong -- offset - -> CULong -- length_ - -> m T.Text -- result -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 () - ) - -data DOMCharacterDataSubstringDataMethodInfo -instance (signature ~ (CULong -> CULong -> m T.Text), MonadIO m, DOMCharacterDataK a) => MethodInfo DOMCharacterDataSubstringDataMethodInfo a signature where - overloadedMethod _ = dOMCharacterDataSubstringData - - diff --git a/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot b/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMCharacterData where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMCharacterDataNextElementSiblingPropertyInfo -data DOMCharacterDataPreviousElementSiblingPropertyInfo -data DOMCharacterDataAppendDataMethodInfo -data DOMCharacterDataDeleteDataMethodInfo -data DOMCharacterDataGetDataMethodInfo -data DOMCharacterDataGetLengthMethodInfo -data DOMCharacterDataInsertDataMethodInfo -data DOMCharacterDataReplaceDataMethodInfo -data DOMCharacterDataSetDataMethodInfo -data DOMCharacterDataSubstringDataMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMComment.hs b/GI/WebKit2WebExtension/Objects/DOMComment.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMComment.hs +++ /dev/null @@ -1,131 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMCommentMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMCommentMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMCommentMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMCommentMethod "appendData" o = DOMCharacterDataAppendDataMethodInfo - ResolveDOMCommentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMCommentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMCommentMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMCommentMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMCommentMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMCommentMethod "deleteData" o = DOMCharacterDataDeleteDataMethodInfo - ResolveDOMCommentMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMCommentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMCommentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMCommentMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMCommentMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMCommentMethod "insertData" o = DOMCharacterDataInsertDataMethodInfo - ResolveDOMCommentMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMCommentMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMCommentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMCommentMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMCommentMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMCommentMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMCommentMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMCommentMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMCommentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMCommentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMCommentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMCommentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMCommentMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMCommentMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMCommentMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMCommentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMCommentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMCommentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMCommentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMCommentMethod "substringData" o = DOMCharacterDataSubstringDataMethodInfo - ResolveDOMCommentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMCommentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMCommentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMCommentMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMCommentMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMCommentMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMCommentMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMCommentMethod "getLength" o = DOMCharacterDataGetLengthMethodInfo - ResolveDOMCommentMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMCommentMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMCommentMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMCommentMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMCommentMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMCommentMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMCommentMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMCommentMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMCommentMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMCommentMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMCommentMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMCommentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMCommentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMCommentMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMCommentMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMCommentMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMCommentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMCommentMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMCommentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMCommentMethod t DOMComment, MethodInfo info DOMComment p) => IsLabelProxy t (DOMComment -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMCommentMethod t DOMComment, MethodInfo info DOMComment p) => IsLabel t (DOMComment -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMComment = DOMCommentAttributeList -type DOMCommentAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DOMComment = DOMCommentSignalList -type DOMCommentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2WebExtension/Objects/DOMComment.hs-boot b/GI/WebKit2WebExtension/Objects/DOMComment.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMComment.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMComment where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 diff --git a/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs b/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs +++ /dev/null @@ -1,340 +0,0 @@ - - -{- | -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 - DOMDOMImplementationCreateCssStyleSheetMethodInfo, - dOMDOMImplementationCreateCssStyleSheet , - - --- ** dOMDOMImplementationCreateDocument - DOMDOMImplementationCreateDocumentMethodInfo, - dOMDOMImplementationCreateDocument , - - --- ** dOMDOMImplementationCreateDocumentType - DOMDOMImplementationCreateDocumentTypeMethodInfo, - dOMDOMImplementationCreateDocumentType , - - --- ** dOMDOMImplementationCreateHtmlDocument - DOMDOMImplementationCreateHtmlDocumentMethodInfo, - dOMDOMImplementationCreateHtmlDocument , - - --- ** dOMDOMImplementationHasFeature - DOMDOMImplementationHasFeatureMethodInfo, - dOMDOMImplementationHasFeature , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMDOMImplementationMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMDOMImplementationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMDOMImplementationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMDOMImplementationMethod "createCssStyleSheet" o = DOMDOMImplementationCreateCssStyleSheetMethodInfo - ResolveDOMDOMImplementationMethod "createDocument" o = DOMDOMImplementationCreateDocumentMethodInfo - ResolveDOMDOMImplementationMethod "createDocumentType" o = DOMDOMImplementationCreateDocumentTypeMethodInfo - ResolveDOMDOMImplementationMethod "createHtmlDocument" o = DOMDOMImplementationCreateHtmlDocumentMethodInfo - ResolveDOMDOMImplementationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMDOMImplementationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMDOMImplementationMethod "hasFeature" o = DOMDOMImplementationHasFeatureMethodInfo - ResolveDOMDOMImplementationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMDOMImplementationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMDOMImplementationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMDOMImplementationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMDOMImplementationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMDOMImplementationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMDOMImplementationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMDOMImplementationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMDOMImplementationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMDOMImplementationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMDOMImplementationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMDOMImplementationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMDOMImplementationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMDOMImplementationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMDOMImplementationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMDOMImplementationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMDOMImplementationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMDOMImplementationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMDOMImplementationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMDOMImplementationMethod t DOMDOMImplementation, MethodInfo info DOMDOMImplementation p) => IsLabelProxy t (DOMDOMImplementation -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMDOMImplementationMethod t DOMDOMImplementation, MethodInfo info DOMDOMImplementation p) => IsLabel t (DOMDOMImplementation -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMDOMImplementation = DOMDOMImplementationAttributeList -type DOMDOMImplementationAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DOMDOMImplementation = DOMDOMImplementationSignalList -type DOMDOMImplementationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMDOMImplementation::create_css_style_sheet --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "media", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDOMImplementationCreateCssStyleSheetMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMCSSStyleSheet), MonadIO m, DOMDOMImplementationK a) => MethodInfo DOMDOMImplementationCreateCssStyleSheetMethodInfo a signature where - overloadedMethod _ = dOMDOMImplementationCreateCssStyleSheet - --- method DOMDOMImplementation::create_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "doctype", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDOMImplementationCreateDocumentMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> Maybe (b) -> m DOMDocument), MonadIO m, DOMDOMImplementationK a, DOMDocumentTypeK b) => MethodInfo DOMDOMImplementationCreateDocumentMethodInfo a signature where - overloadedMethod _ = dOMDOMImplementationCreateDocument - --- method DOMDOMImplementation::create_document_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "publicId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "systemId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDOMImplementationCreateDocumentTypeMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> m DOMDocumentType), MonadIO m, DOMDOMImplementationK a) => MethodInfo DOMDOMImplementationCreateDocumentTypeMethodInfo a signature where - overloadedMethod _ = dOMDOMImplementationCreateDocumentType - --- method DOMDOMImplementation::create_html_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDOMImplementationCreateHtmlDocumentMethodInfo -instance (signature ~ (T.Text -> m DOMHTMLDocument), MonadIO m, DOMDOMImplementationK a) => MethodInfo DOMDOMImplementationCreateHtmlDocumentMethodInfo a signature where - overloadedMethod _ = dOMDOMImplementationCreateHtmlDocument - --- method DOMDOMImplementation::has_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDOMImplementationHasFeatureMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, DOMDOMImplementationK a) => MethodInfo DOMDOMImplementationHasFeatureMethodInfo a signature where - overloadedMethod _ = dOMDOMImplementationHasFeature - - diff --git a/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMDOMImplementation where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMDOMImplementationCreateCssStyleSheetMethodInfo -data DOMDOMImplementationCreateDocumentMethodInfo -data DOMDOMImplementationCreateDocumentTypeMethodInfo -data DOMDOMImplementationCreateHtmlDocumentMethodInfo -data DOMDOMImplementationHasFeatureMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs b/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs +++ /dev/null @@ -1,991 +0,0 @@ - - -{- | -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 - DOMDOMWindowWebkitMessageHandlersPostMessageMethodInfo, - dOMDOMWindowWebkitMessageHandlersPostMessage, - - - - - -- * Properties --- ** Closed - DOMDOMWindowClosedPropertyInfo , - dOMDOMWindowClosed , - getDOMDOMWindowClosed , - - --- ** DefaultStatus - DOMDOMWindowDefaultStatusPropertyInfo , - clearDOMDOMWindowDefaultStatus , - constructDOMDOMWindowDefaultStatus , - dOMDOMWindowDefaultStatus , - getDOMDOMWindowDefaultStatus , - setDOMDOMWindowDefaultStatus , - - --- ** DevicePixelRatio - DOMDOMWindowDevicePixelRatioPropertyInfo, - dOMDOMWindowDevicePixelRatio , - getDOMDOMWindowDevicePixelRatio , - - --- ** Document - DOMDOMWindowDocumentPropertyInfo , - dOMDOMWindowDocument , - getDOMDOMWindowDocument , - - --- ** FrameElement - DOMDOMWindowFrameElementPropertyInfo , - dOMDOMWindowFrameElement , - getDOMDOMWindowFrameElement , - - --- ** Frames - DOMDOMWindowFramesPropertyInfo , - dOMDOMWindowFrames , - getDOMDOMWindowFrames , - - --- ** InnerHeight - DOMDOMWindowInnerHeightPropertyInfo , - dOMDOMWindowInnerHeight , - getDOMDOMWindowInnerHeight , - - --- ** InnerWidth - DOMDOMWindowInnerWidthPropertyInfo , - dOMDOMWindowInnerWidth , - getDOMDOMWindowInnerWidth , - - --- ** Length - DOMDOMWindowLengthPropertyInfo , - dOMDOMWindowLength , - getDOMDOMWindowLength , - - --- ** Name - DOMDOMWindowNamePropertyInfo , - clearDOMDOMWindowName , - constructDOMDOMWindowName , - dOMDOMWindowName , - getDOMDOMWindowName , - setDOMDOMWindowName , - - --- ** OffscreenBuffering - DOMDOMWindowOffscreenBufferingPropertyInfo, - dOMDOMWindowOffscreenBuffering , - getDOMDOMWindowOffscreenBuffering , - - --- ** Opener - DOMDOMWindowOpenerPropertyInfo , - dOMDOMWindowOpener , - getDOMDOMWindowOpener , - - --- ** Orientation - DOMDOMWindowOrientationPropertyInfo , - dOMDOMWindowOrientation , - getDOMDOMWindowOrientation , - - --- ** OuterHeight - DOMDOMWindowOuterHeightPropertyInfo , - dOMDOMWindowOuterHeight , - getDOMDOMWindowOuterHeight , - - --- ** OuterWidth - DOMDOMWindowOuterWidthPropertyInfo , - dOMDOMWindowOuterWidth , - getDOMDOMWindowOuterWidth , - - --- ** PageXOffset - DOMDOMWindowPageXOffsetPropertyInfo , - dOMDOMWindowPageXOffset , - getDOMDOMWindowPageXOffset , - - --- ** PageYOffset - DOMDOMWindowPageYOffsetPropertyInfo , - dOMDOMWindowPageYOffset , - getDOMDOMWindowPageYOffset , - - --- ** Parent - DOMDOMWindowParentPropertyInfo , - dOMDOMWindowParent , - getDOMDOMWindowParent , - - --- ** ScreenLeft - DOMDOMWindowScreenLeftPropertyInfo , - dOMDOMWindowScreenLeft , - getDOMDOMWindowScreenLeft , - - --- ** ScreenTop - DOMDOMWindowScreenTopPropertyInfo , - dOMDOMWindowScreenTop , - getDOMDOMWindowScreenTop , - - --- ** ScreenX - DOMDOMWindowScreenXPropertyInfo , - dOMDOMWindowScreenX , - getDOMDOMWindowScreenX , - - --- ** ScreenY - DOMDOMWindowScreenYPropertyInfo , - dOMDOMWindowScreenY , - getDOMDOMWindowScreenY , - - --- ** ScrollX - DOMDOMWindowScrollXPropertyInfo , - dOMDOMWindowScrollX , - getDOMDOMWindowScrollX , - - --- ** ScrollY - DOMDOMWindowScrollYPropertyInfo , - dOMDOMWindowScrollY , - getDOMDOMWindowScrollY , - - --- ** Self - DOMDOMWindowSelfPropertyInfo , - dOMDOMWindowSelf , - getDOMDOMWindowSelf , - - --- ** Status - DOMDOMWindowStatusPropertyInfo , - clearDOMDOMWindowStatus , - constructDOMDOMWindowStatus , - dOMDOMWindowStatus , - getDOMDOMWindowStatus , - setDOMDOMWindowStatus , - - --- ** Top - DOMDOMWindowTopPropertyInfo , - dOMDOMWindowTop , - getDOMDOMWindowTop , - - --- ** Window - DOMDOMWindowWindowPropertyInfo , - dOMDOMWindowWindow , - getDOMDOMWindowWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMDOMWindowMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMDOMWindowMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMDOMWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMDOMWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMDOMWindowMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMDOMWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMDOMWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMDOMWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMDOMWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMDOMWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMDOMWindowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMDOMWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMDOMWindowMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMDOMWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMDOMWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMDOMWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMDOMWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMDOMWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMDOMWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMDOMWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMDOMWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMDOMWindowMethod "webkitMessageHandlersPostMessage" o = DOMDOMWindowWebkitMessageHandlersPostMessageMethodInfo - ResolveDOMDOMWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMDOMWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMDOMWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMDOMWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMDOMWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMDOMWindowMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMDOMWindowMethod t DOMDOMWindow, MethodInfo info DOMDOMWindow p) => IsLabelProxy t (DOMDOMWindow -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMDOMWindowMethod t DOMDOMWindow, MethodInfo info DOMDOMWindow p) => IsLabel t (DOMDOMWindow -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "closed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "closed" - attrGet _ = getDOMDOMWindowClosed - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "default-status" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe 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" (Just val) - -constructDOMDOMWindowDefaultStatus :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" (Just val) - -clearDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m () -clearDOMDOMWindowDefaultStatus obj = liftIO $ setObjectPropertyString obj "default-status" (Nothing :: Maybe T.Text) - -data DOMDOMWindowDefaultStatusPropertyInfo -instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where - type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDOMWindowDefaultStatusPropertyInfo = "default-status" - attrGet _ = getDOMDOMWindowDefaultStatus - attrSet _ = setDOMDOMWindowDefaultStatus - attrConstruct _ = constructDOMDOMWindowDefaultStatus - attrClear _ = clearDOMDOMWindowDefaultStatus - --- VVV Prop "device-pixel-ratio" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "device-pixel-ratio" - attrGet _ = getDOMDOMWindowDevicePixelRatio - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "document" - -- Type: TInterface "WebKit2WebExtension" "DOMDocument" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDocument) -getDOMDOMWindowDocument obj = liftIO $ getObjectPropertyObject obj "document" DOMDocument - -data DOMDOMWindowDocumentPropertyInfo -instance AttrInfo DOMDOMWindowDocumentPropertyInfo where - type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowDocumentPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowDocumentPropertyInfo = (Maybe DOMDocument) - type AttrLabel DOMDOMWindowDocumentPropertyInfo = "document" - attrGet _ = getDOMDOMWindowDocument - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "frame-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMElement) -getDOMDOMWindowFrameElement obj = liftIO $ getObjectPropertyObject obj "frame-element" DOMElement - -data DOMDOMWindowFrameElementPropertyInfo -instance AttrInfo DOMDOMWindowFrameElementPropertyInfo where - type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowFrameElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowFrameElementPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowFrameElementPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDOMWindowFrameElementPropertyInfo = "frame-element" - attrGet _ = getDOMDOMWindowFrameElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "frames" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) -getDOMDOMWindowFrames obj = liftIO $ getObjectPropertyObject obj "frames" DOMDOMWindow - -data DOMDOMWindowFramesPropertyInfo -instance AttrInfo DOMDOMWindowFramesPropertyInfo where - type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowFramesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowFramesPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowFramesPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMDOMWindowFramesPropertyInfo = "frames" - attrGet _ = getDOMDOMWindowFrames - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "inner-height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyLong obj "inner-height" - -data DOMDOMWindowInnerHeightPropertyInfo -instance AttrInfo DOMDOMWindowInnerHeightPropertyInfo where - type AttrAllowedOps DOMDOMWindowInnerHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = CLong - type AttrLabel DOMDOMWindowInnerHeightPropertyInfo = "inner-height" - attrGet _ = getDOMDOMWindowInnerHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "inner-width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyLong obj "inner-width" - -data DOMDOMWindowInnerWidthPropertyInfo -instance AttrInfo DOMDOMWindowInnerWidthPropertyInfo where - type AttrAllowedOps DOMDOMWindowInnerWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = CLong - type AttrLabel DOMDOMWindowInnerWidthPropertyInfo = "inner-width" - attrGet _ = getDOMDOMWindowInnerWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m CULong -getDOMDOMWindowLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMDOMWindowLengthPropertyInfo -instance AttrInfo DOMDOMWindowLengthPropertyInfo where - type AttrAllowedOps DOMDOMWindowLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowLengthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowLengthPropertyInfo = CULong - type AttrLabel DOMDOMWindowLengthPropertyInfo = "length" - attrGet _ = getDOMDOMWindowLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe T.Text) -getDOMDOMWindowName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMDOMWindowName :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowName val = constructObjectPropertyString "name" (Just val) - -clearDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m () -clearDOMDOMWindowName obj = liftIO $ setObjectPropertyString obj "name" (Nothing :: Maybe T.Text) - -data DOMDOMWindowNamePropertyInfo -instance AttrInfo DOMDOMWindowNamePropertyInfo where - type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDOMWindowNamePropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMDOMWindowNamePropertyInfo = "name" - attrGet _ = getDOMDOMWindowName - attrSet _ = setDOMDOMWindowName - attrConstruct _ = constructDOMDOMWindowName - attrClear _ = clearDOMDOMWindowName - --- VVV Prop "offscreen-buffering" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "offscreen-buffering" - attrGet _ = getDOMDOMWindowOffscreenBuffering - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "opener" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) -getDOMDOMWindowOpener obj = liftIO $ getObjectPropertyObject obj "opener" DOMDOMWindow - -data DOMDOMWindowOpenerPropertyInfo -instance AttrInfo DOMDOMWindowOpenerPropertyInfo where - type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowOpenerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOpenerPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOpenerPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMDOMWindowOpenerPropertyInfo = "opener" - attrGet _ = getDOMDOMWindowOpener - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "orientation" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowOrientation :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowOrientation obj = liftIO $ getObjectPropertyLong obj "orientation" - -data DOMDOMWindowOrientationPropertyInfo -instance AttrInfo DOMDOMWindowOrientationPropertyInfo where - type AttrAllowedOps DOMDOMWindowOrientationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowOrientationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOrientationPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOrientationPropertyInfo = CLong - type AttrLabel DOMDOMWindowOrientationPropertyInfo = "orientation" - attrGet _ = getDOMDOMWindowOrientation - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "outer-height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyLong obj "outer-height" - -data DOMDOMWindowOuterHeightPropertyInfo -instance AttrInfo DOMDOMWindowOuterHeightPropertyInfo where - type AttrAllowedOps DOMDOMWindowOuterHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = CLong - type AttrLabel DOMDOMWindowOuterHeightPropertyInfo = "outer-height" - attrGet _ = getDOMDOMWindowOuterHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "outer-width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyLong obj "outer-width" - -data DOMDOMWindowOuterWidthPropertyInfo -instance AttrInfo DOMDOMWindowOuterWidthPropertyInfo where - type AttrAllowedOps DOMDOMWindowOuterWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = CLong - type AttrLabel DOMDOMWindowOuterWidthPropertyInfo = "outer-width" - attrGet _ = getDOMDOMWindowOuterWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "page-x-offset" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyLong obj "page-x-offset" - -data DOMDOMWindowPageXOffsetPropertyInfo -instance AttrInfo DOMDOMWindowPageXOffsetPropertyInfo where - type AttrAllowedOps DOMDOMWindowPageXOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = CLong - type AttrLabel DOMDOMWindowPageXOffsetPropertyInfo = "page-x-offset" - attrGet _ = getDOMDOMWindowPageXOffset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "page-y-offset" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyLong obj "page-y-offset" - -data DOMDOMWindowPageYOffsetPropertyInfo -instance AttrInfo DOMDOMWindowPageYOffsetPropertyInfo where - type AttrAllowedOps DOMDOMWindowPageYOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = CLong - type AttrLabel DOMDOMWindowPageYOffsetPropertyInfo = "page-y-offset" - attrGet _ = getDOMDOMWindowPageYOffset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parent" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) -getDOMDOMWindowParent obj = liftIO $ getObjectPropertyObject obj "parent" DOMDOMWindow - -data DOMDOMWindowParentPropertyInfo -instance AttrInfo DOMDOMWindowParentPropertyInfo where - type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowParentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowParentPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowParentPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMDOMWindowParentPropertyInfo = "parent" - attrGet _ = getDOMDOMWindowParent - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "screen-left" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyLong obj "screen-left" - -data DOMDOMWindowScreenLeftPropertyInfo -instance AttrInfo DOMDOMWindowScreenLeftPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenLeftPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = CLong - type AttrLabel DOMDOMWindowScreenLeftPropertyInfo = "screen-left" - attrGet _ = getDOMDOMWindowScreenLeft - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "screen-top" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyLong obj "screen-top" - -data DOMDOMWindowScreenTopPropertyInfo -instance AttrInfo DOMDOMWindowScreenTopPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenTopPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenTopPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenTopPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenTopPropertyInfo = CLong - type AttrLabel DOMDOMWindowScreenTopPropertyInfo = "screen-top" - attrGet _ = getDOMDOMWindowScreenTop - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "screen-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyLong obj "screen-x" - -data DOMDOMWindowScreenXPropertyInfo -instance AttrInfo DOMDOMWindowScreenXPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenXPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenXPropertyInfo = CLong - type AttrLabel DOMDOMWindowScreenXPropertyInfo = "screen-x" - attrGet _ = getDOMDOMWindowScreenX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "screen-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyLong obj "screen-y" - -data DOMDOMWindowScreenYPropertyInfo -instance AttrInfo DOMDOMWindowScreenYPropertyInfo where - type AttrAllowedOps DOMDOMWindowScreenYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScreenYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScreenYPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScreenYPropertyInfo = CLong - type AttrLabel DOMDOMWindowScreenYPropertyInfo = "screen-y" - attrGet _ = getDOMDOMWindowScreenY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "scroll-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyLong obj "scroll-x" - -data DOMDOMWindowScrollXPropertyInfo -instance AttrInfo DOMDOMWindowScrollXPropertyInfo where - type AttrAllowedOps DOMDOMWindowScrollXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScrollXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScrollXPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollXPropertyInfo = CLong - type AttrLabel DOMDOMWindowScrollXPropertyInfo = "scroll-x" - attrGet _ = getDOMDOMWindowScrollX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "scroll-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m CLong -getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyLong obj "scroll-y" - -data DOMDOMWindowScrollYPropertyInfo -instance AttrInfo DOMDOMWindowScrollYPropertyInfo where - type AttrAllowedOps DOMDOMWindowScrollYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDOMWindowScrollYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowScrollYPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowScrollYPropertyInfo = CLong - type AttrLabel DOMDOMWindowScrollYPropertyInfo = "scroll-y" - attrGet _ = getDOMDOMWindowScrollY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "self" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) -getDOMDOMWindowSelf obj = liftIO $ getObjectPropertyObject obj "self" DOMDOMWindow - -data DOMDOMWindowSelfPropertyInfo -instance AttrInfo DOMDOMWindowSelfPropertyInfo where - type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowSelfPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowSelfPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowSelfPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMDOMWindowSelfPropertyInfo = "self" - attrGet _ = getDOMDOMWindowSelf - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "status" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe T.Text) -getDOMDOMWindowStatus obj = liftIO $ getObjectPropertyString obj "status" - -setDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () -setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" (Just val) - -constructDOMDOMWindowStatus :: T.Text -> IO ([Char], GValue) -constructDOMDOMWindowStatus val = constructObjectPropertyString "status" (Just val) - -clearDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m () -clearDOMDOMWindowStatus obj = liftIO $ setObjectPropertyString obj "status" (Nothing :: Maybe T.Text) - -data DOMDOMWindowStatusPropertyInfo -instance AttrInfo DOMDOMWindowStatusPropertyInfo where - type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowStatusPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDOMWindowStatusPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowStatusPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDOMWindowStatusPropertyInfo = "status" - attrGet _ = getDOMDOMWindowStatus - attrSet _ = setDOMDOMWindowStatus - attrConstruct _ = constructDOMDOMWindowStatus - attrClear _ = clearDOMDOMWindowStatus - --- VVV Prop "top" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) -getDOMDOMWindowTop obj = liftIO $ getObjectPropertyObject obj "top" DOMDOMWindow - -data DOMDOMWindowTopPropertyInfo -instance AttrInfo DOMDOMWindowTopPropertyInfo where - type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowTopPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowTopPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowTopPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMDOMWindowTopPropertyInfo = "top" - attrGet _ = getDOMDOMWindowTop - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "window" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m (Maybe DOMDOMWindow) -getDOMDOMWindowWindow obj = liftIO $ getObjectPropertyObject obj "window" DOMDOMWindow - -data DOMDOMWindowWindowPropertyInfo -instance AttrInfo DOMDOMWindowWindowPropertyInfo where - type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDOMWindowWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDOMWindowWindowPropertyInfo = DOMDOMWindowK - type AttrGetType DOMDOMWindowWindowPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMDOMWindowWindowPropertyInfo = "window" - attrGet _ = getDOMDOMWindowWindow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMDOMWindow = DOMDOMWindowAttributeList -type DOMDOMWindowAttributeList = ('[ '("closed", DOMDOMWindowClosedPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultStatus", DOMDOMWindowDefaultStatusPropertyInfo), '("devicePixelRatio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frameElement", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("innerHeight", DOMDOMWindowInnerHeightPropertyInfo), '("innerWidth", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("offscreenBuffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("orientation", DOMDOMWindowOrientationPropertyInfo), '("outerHeight", DOMDOMWindowOuterHeightPropertyInfo), '("outerWidth", DOMDOMWindowOuterWidthPropertyInfo), '("pageXOffset", DOMDOMWindowPageXOffsetPropertyInfo), '("pageYOffset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("screenLeft", DOMDOMWindowScreenLeftPropertyInfo), '("screenTop", DOMDOMWindowScreenTopPropertyInfo), '("screenX", DOMDOMWindowScreenXPropertyInfo), '("screenY", DOMDOMWindowScreenYPropertyInfo), '("scrollX", DOMDOMWindowScrollXPropertyInfo), '("scrollY", DOMDOMWindowScrollYPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] :: [(Symbol, *)]) - -dOMDOMWindowClosed :: AttrLabelProxy "closed" -dOMDOMWindowClosed = AttrLabelProxy - -dOMDOMWindowDefaultStatus :: AttrLabelProxy "defaultStatus" -dOMDOMWindowDefaultStatus = AttrLabelProxy - -dOMDOMWindowDevicePixelRatio :: AttrLabelProxy "devicePixelRatio" -dOMDOMWindowDevicePixelRatio = AttrLabelProxy - -dOMDOMWindowDocument :: AttrLabelProxy "document" -dOMDOMWindowDocument = AttrLabelProxy - -dOMDOMWindowFrameElement :: AttrLabelProxy "frameElement" -dOMDOMWindowFrameElement = AttrLabelProxy - -dOMDOMWindowFrames :: AttrLabelProxy "frames" -dOMDOMWindowFrames = AttrLabelProxy - -dOMDOMWindowInnerHeight :: AttrLabelProxy "innerHeight" -dOMDOMWindowInnerHeight = AttrLabelProxy - -dOMDOMWindowInnerWidth :: AttrLabelProxy "innerWidth" -dOMDOMWindowInnerWidth = AttrLabelProxy - -dOMDOMWindowLength :: AttrLabelProxy "length" -dOMDOMWindowLength = AttrLabelProxy - -dOMDOMWindowName :: AttrLabelProxy "name" -dOMDOMWindowName = AttrLabelProxy - -dOMDOMWindowOffscreenBuffering :: AttrLabelProxy "offscreenBuffering" -dOMDOMWindowOffscreenBuffering = AttrLabelProxy - -dOMDOMWindowOpener :: AttrLabelProxy "opener" -dOMDOMWindowOpener = AttrLabelProxy - -dOMDOMWindowOrientation :: AttrLabelProxy "orientation" -dOMDOMWindowOrientation = AttrLabelProxy - -dOMDOMWindowOuterHeight :: AttrLabelProxy "outerHeight" -dOMDOMWindowOuterHeight = AttrLabelProxy - -dOMDOMWindowOuterWidth :: AttrLabelProxy "outerWidth" -dOMDOMWindowOuterWidth = AttrLabelProxy - -dOMDOMWindowPageXOffset :: AttrLabelProxy "pageXOffset" -dOMDOMWindowPageXOffset = AttrLabelProxy - -dOMDOMWindowPageYOffset :: AttrLabelProxy "pageYOffset" -dOMDOMWindowPageYOffset = AttrLabelProxy - -dOMDOMWindowParent :: AttrLabelProxy "parent" -dOMDOMWindowParent = AttrLabelProxy - -dOMDOMWindowScreenLeft :: AttrLabelProxy "screenLeft" -dOMDOMWindowScreenLeft = AttrLabelProxy - -dOMDOMWindowScreenTop :: AttrLabelProxy "screenTop" -dOMDOMWindowScreenTop = AttrLabelProxy - -dOMDOMWindowScreenX :: AttrLabelProxy "screenX" -dOMDOMWindowScreenX = AttrLabelProxy - -dOMDOMWindowScreenY :: AttrLabelProxy "screenY" -dOMDOMWindowScreenY = AttrLabelProxy - -dOMDOMWindowScrollX :: AttrLabelProxy "scrollX" -dOMDOMWindowScrollX = AttrLabelProxy - -dOMDOMWindowScrollY :: AttrLabelProxy "scrollY" -dOMDOMWindowScrollY = AttrLabelProxy - -dOMDOMWindowSelf :: AttrLabelProxy "self" -dOMDOMWindowSelf = AttrLabelProxy - -dOMDOMWindowStatus :: AttrLabelProxy "status" -dOMDOMWindowStatus = AttrLabelProxy - -dOMDOMWindowTop :: AttrLabelProxy "top" -dOMDOMWindowTop = AttrLabelProxy - -dOMDOMWindowWindow :: AttrLabelProxy "window" -dOMDOMWindowWindow = AttrLabelProxy - -type instance SignalList DOMDOMWindow = DOMDOMWindowSignalList -type DOMDOMWindowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMDOMWindow::webkit_message_handlers_post_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDOMWindowWebkitMessageHandlersPostMessageMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, DOMDOMWindowK a) => MethodInfo DOMDOMWindowWebkitMessageHandlersPostMessageMethodInfo a signature where - overloadedMethod _ = dOMDOMWindowWebkitMessageHandlersPostMessage - - diff --git a/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot +++ /dev/null @@ -1,42 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMDOMWindow where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMDOMWindowOrientationPropertyInfo -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 -data DOMDOMWindowWebkitMessageHandlersPostMessageMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMDocument.hs b/GI/WebKit2WebExtension/Objects/DOMDocument.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDocument.hs +++ /dev/null @@ -1,4632 +0,0 @@ - - -{- | -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 - DOMDocumentAdoptNodeMethodInfo , - dOMDocumentAdoptNode , - - --- ** dOMDocumentCreateAttribute - DOMDocumentCreateAttributeMethodInfo , - dOMDocumentCreateAttribute , - - --- ** dOMDocumentCreateAttributeNs - DOMDocumentCreateAttributeNsMethodInfo , - dOMDocumentCreateAttributeNs , - - --- ** dOMDocumentCreateCdataSection - DOMDocumentCreateCdataSectionMethodInfo , - dOMDocumentCreateCdataSection , - - --- ** dOMDocumentCreateComment - DOMDocumentCreateCommentMethodInfo , - dOMDocumentCreateComment , - - --- ** dOMDocumentCreateCssStyleDeclaration - DOMDocumentCreateCssStyleDeclarationMethodInfo, - dOMDocumentCreateCssStyleDeclaration , - - --- ** dOMDocumentCreateDocumentFragment - DOMDocumentCreateDocumentFragmentMethodInfo, - dOMDocumentCreateDocumentFragment , - - --- ** dOMDocumentCreateElement - DOMDocumentCreateElementMethodInfo , - dOMDocumentCreateElement , - - --- ** dOMDocumentCreateElementNs - DOMDocumentCreateElementNsMethodInfo , - dOMDocumentCreateElementNs , - - --- ** dOMDocumentCreateEntityReference - DOMDocumentCreateEntityReferenceMethodInfo, - dOMDocumentCreateEntityReference , - - --- ** dOMDocumentCreateEvent - DOMDocumentCreateEventMethodInfo , - dOMDocumentCreateEvent , - - --- ** dOMDocumentCreateExpression - DOMDocumentCreateExpressionMethodInfo , - dOMDocumentCreateExpression , - - --- ** dOMDocumentCreateNodeIterator - DOMDocumentCreateNodeIteratorMethodInfo , - dOMDocumentCreateNodeIterator , - - --- ** dOMDocumentCreateNsResolver - DOMDocumentCreateNsResolverMethodInfo , - dOMDocumentCreateNsResolver , - - --- ** dOMDocumentCreateProcessingInstruction - DOMDocumentCreateProcessingInstructionMethodInfo, - dOMDocumentCreateProcessingInstruction , - - --- ** dOMDocumentCreateRange - DOMDocumentCreateRangeMethodInfo , - dOMDocumentCreateRange , - - --- ** dOMDocumentCreateTextNode - DOMDocumentCreateTextNodeMethodInfo , - dOMDocumentCreateTextNode , - - --- ** dOMDocumentCreateTreeWalker - DOMDocumentCreateTreeWalkerMethodInfo , - dOMDocumentCreateTreeWalker , - - --- ** dOMDocumentElementFromPoint - DOMDocumentElementFromPointMethodInfo , - dOMDocumentElementFromPoint , - - --- ** dOMDocumentEvaluate - DOMDocumentEvaluateMethodInfo , - dOMDocumentEvaluate , - - --- ** dOMDocumentExecCommand - DOMDocumentExecCommandMethodInfo , - dOMDocumentExecCommand , - - --- ** dOMDocumentGetActiveElement - DOMDocumentGetActiveElementMethodInfo , - dOMDocumentGetActiveElement , - - --- ** dOMDocumentGetAnchors - DOMDocumentGetAnchorsMethodInfo , - dOMDocumentGetAnchors , - - --- ** dOMDocumentGetApplets - DOMDocumentGetAppletsMethodInfo , - dOMDocumentGetApplets , - - --- ** dOMDocumentGetBody - DOMDocumentGetBodyMethodInfo , - dOMDocumentGetBody , - - --- ** dOMDocumentGetCharacterSet - DOMDocumentGetCharacterSetMethodInfo , - dOMDocumentGetCharacterSet , - - --- ** dOMDocumentGetCharset - DOMDocumentGetCharsetMethodInfo , - dOMDocumentGetCharset , - - --- ** dOMDocumentGetCookie - DOMDocumentGetCookieMethodInfo , - dOMDocumentGetCookie , - - --- ** dOMDocumentGetDefaultCharset - DOMDocumentGetDefaultCharsetMethodInfo , - dOMDocumentGetDefaultCharset , - - --- ** dOMDocumentGetDefaultView - DOMDocumentGetDefaultViewMethodInfo , - dOMDocumentGetDefaultView , - - --- ** dOMDocumentGetDoctype - DOMDocumentGetDoctypeMethodInfo , - dOMDocumentGetDoctype , - - --- ** dOMDocumentGetDocumentElement - DOMDocumentGetDocumentElementMethodInfo , - dOMDocumentGetDocumentElement , - - --- ** dOMDocumentGetDocumentUri - DOMDocumentGetDocumentUriMethodInfo , - dOMDocumentGetDocumentUri , - - --- ** dOMDocumentGetDomain - DOMDocumentGetDomainMethodInfo , - dOMDocumentGetDomain , - - --- ** dOMDocumentGetElementById - DOMDocumentGetElementByIdMethodInfo , - dOMDocumentGetElementById , - - --- ** dOMDocumentGetElementsByClassName - DOMDocumentGetElementsByClassNameMethodInfo, - dOMDocumentGetElementsByClassName , - - --- ** dOMDocumentGetElementsByClassNameAsHtmlCollection - DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo, - dOMDocumentGetElementsByClassNameAsHtmlCollection, - - --- ** dOMDocumentGetElementsByName - DOMDocumentGetElementsByNameMethodInfo , - dOMDocumentGetElementsByName , - - --- ** dOMDocumentGetElementsByTagName - DOMDocumentGetElementsByTagNameMethodInfo, - dOMDocumentGetElementsByTagName , - - --- ** dOMDocumentGetElementsByTagNameAsHtmlCollection - DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo, - dOMDocumentGetElementsByTagNameAsHtmlCollection, - - --- ** dOMDocumentGetElementsByTagNameNs - DOMDocumentGetElementsByTagNameNsMethodInfo, - dOMDocumentGetElementsByTagNameNs , - - --- ** dOMDocumentGetElementsByTagNameNsAsHtmlCollection - DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo, - dOMDocumentGetElementsByTagNameNsAsHtmlCollection, - - --- ** dOMDocumentGetForms - DOMDocumentGetFormsMethodInfo , - dOMDocumentGetForms , - - --- ** dOMDocumentGetHead - DOMDocumentGetHeadMethodInfo , - dOMDocumentGetHead , - - --- ** dOMDocumentGetImages - DOMDocumentGetImagesMethodInfo , - dOMDocumentGetImages , - - --- ** dOMDocumentGetImplementation - DOMDocumentGetImplementationMethodInfo , - dOMDocumentGetImplementation , - - --- ** dOMDocumentGetInputEncoding - DOMDocumentGetInputEncodingMethodInfo , - dOMDocumentGetInputEncoding , - - --- ** dOMDocumentGetLastModified - DOMDocumentGetLastModifiedMethodInfo , - dOMDocumentGetLastModified , - - --- ** dOMDocumentGetLinks - DOMDocumentGetLinksMethodInfo , - dOMDocumentGetLinks , - - --- ** dOMDocumentGetOverrideStyle - DOMDocumentGetOverrideStyleMethodInfo , - dOMDocumentGetOverrideStyle , - - --- ** dOMDocumentGetPreferredStylesheetSet - DOMDocumentGetPreferredStylesheetSetMethodInfo, - dOMDocumentGetPreferredStylesheetSet , - - --- ** dOMDocumentGetReadyState - DOMDocumentGetReadyStateMethodInfo , - dOMDocumentGetReadyState , - - --- ** dOMDocumentGetReferrer - DOMDocumentGetReferrerMethodInfo , - dOMDocumentGetReferrer , - - --- ** dOMDocumentGetSelectedStylesheetSet - DOMDocumentGetSelectedStylesheetSetMethodInfo, - dOMDocumentGetSelectedStylesheetSet , - - --- ** dOMDocumentGetStyleSheets - DOMDocumentGetStyleSheetsMethodInfo , - dOMDocumentGetStyleSheets , - - --- ** dOMDocumentGetTitle - DOMDocumentGetTitleMethodInfo , - dOMDocumentGetTitle , - - --- ** dOMDocumentGetUrl - DOMDocumentGetUrlMethodInfo , - dOMDocumentGetUrl , - - --- ** dOMDocumentGetXmlEncoding - DOMDocumentGetXmlEncodingMethodInfo , - dOMDocumentGetXmlEncoding , - - --- ** dOMDocumentGetXmlStandalone - DOMDocumentGetXmlStandaloneMethodInfo , - dOMDocumentGetXmlStandalone , - - --- ** dOMDocumentGetXmlVersion - DOMDocumentGetXmlVersionMethodInfo , - dOMDocumentGetXmlVersion , - - --- ** dOMDocumentHasFocus - DOMDocumentHasFocusMethodInfo , - dOMDocumentHasFocus , - - --- ** dOMDocumentImportNode - DOMDocumentImportNodeMethodInfo , - dOMDocumentImportNode , - - --- ** dOMDocumentQueryCommandEnabled - DOMDocumentQueryCommandEnabledMethodInfo, - dOMDocumentQueryCommandEnabled , - - --- ** dOMDocumentQueryCommandIndeterm - DOMDocumentQueryCommandIndetermMethodInfo, - dOMDocumentQueryCommandIndeterm , - - --- ** dOMDocumentQueryCommandState - DOMDocumentQueryCommandStateMethodInfo , - dOMDocumentQueryCommandState , - - --- ** dOMDocumentQueryCommandSupported - DOMDocumentQueryCommandSupportedMethodInfo, - dOMDocumentQueryCommandSupported , - - --- ** dOMDocumentQueryCommandValue - DOMDocumentQueryCommandValueMethodInfo , - dOMDocumentQueryCommandValue , - - --- ** dOMDocumentQuerySelector - DOMDocumentQuerySelectorMethodInfo , - dOMDocumentQuerySelector , - - --- ** dOMDocumentQuerySelectorAll - DOMDocumentQuerySelectorAllMethodInfo , - dOMDocumentQuerySelectorAll , - - --- ** dOMDocumentSetBody - DOMDocumentSetBodyMethodInfo , - dOMDocumentSetBody , - - --- ** dOMDocumentSetCharset - DOMDocumentSetCharsetMethodInfo , - dOMDocumentSetCharset , - - --- ** dOMDocumentSetCookie - DOMDocumentSetCookieMethodInfo , - dOMDocumentSetCookie , - - --- ** dOMDocumentSetDocumentUri - DOMDocumentSetDocumentUriMethodInfo , - dOMDocumentSetDocumentUri , - - --- ** dOMDocumentSetSelectedStylesheetSet - DOMDocumentSetSelectedStylesheetSetMethodInfo, - dOMDocumentSetSelectedStylesheetSet , - - --- ** dOMDocumentSetTitle - DOMDocumentSetTitleMethodInfo , - dOMDocumentSetTitle , - - --- ** dOMDocumentSetXmlStandalone - DOMDocumentSetXmlStandaloneMethodInfo , - dOMDocumentSetXmlStandalone , - - --- ** dOMDocumentSetXmlVersion - DOMDocumentSetXmlVersionMethodInfo , - dOMDocumentSetXmlVersion , - - - - - -- * Properties --- ** ActiveElement - DOMDocumentActiveElementPropertyInfo , - dOMDocumentActiveElement , - getDOMDocumentActiveElement , - - --- ** Anchors - DOMDocumentAnchorsPropertyInfo , - dOMDocumentAnchors , - getDOMDocumentAnchors , - - --- ** Applets - DOMDocumentAppletsPropertyInfo , - dOMDocumentApplets , - getDOMDocumentApplets , - - --- ** Body - DOMDocumentBodyPropertyInfo , - dOMDocumentBody , - getDOMDocumentBody , - - --- ** CharacterSet - DOMDocumentCharacterSetPropertyInfo , - dOMDocumentCharacterSet , - getDOMDocumentCharacterSet , - - --- ** Charset - DOMDocumentCharsetPropertyInfo , - constructDOMDocumentCharset , - dOMDocumentCharset , - getDOMDocumentCharset , - setDOMDocumentCharset , - - --- ** ChildElementCount - DOMDocumentChildElementCountPropertyInfo, - dOMDocumentChildElementCount , - getDOMDocumentChildElementCount , - - --- ** Children - DOMDocumentChildrenPropertyInfo , - dOMDocumentChildren , - getDOMDocumentChildren , - - --- ** CompatMode - DOMDocumentCompatModePropertyInfo , - dOMDocumentCompatMode , - getDOMDocumentCompatMode , - - --- ** ContentType - DOMDocumentContentTypePropertyInfo , - dOMDocumentContentType , - getDOMDocumentContentType , - - --- ** Cookie - DOMDocumentCookiePropertyInfo , - clearDOMDocumentCookie , - constructDOMDocumentCookie , - dOMDocumentCookie , - getDOMDocumentCookie , - setDOMDocumentCookie , - - --- ** CurrentScript - DOMDocumentCurrentScriptPropertyInfo , - dOMDocumentCurrentScript , - getDOMDocumentCurrentScript , - - --- ** DefaultCharset - DOMDocumentDefaultCharsetPropertyInfo , - dOMDocumentDefaultCharset , - getDOMDocumentDefaultCharset , - - --- ** DefaultView - DOMDocumentDefaultViewPropertyInfo , - dOMDocumentDefaultView , - getDOMDocumentDefaultView , - - --- ** Doctype - DOMDocumentDoctypePropertyInfo , - dOMDocumentDoctype , - getDOMDocumentDoctype , - - --- ** DocumentElement - DOMDocumentDocumentElementPropertyInfo , - dOMDocumentDocumentElement , - getDOMDocumentDocumentElement , - - --- ** DocumentUri - DOMDocumentDocumentUriPropertyInfo , - constructDOMDocumentDocumentUri , - dOMDocumentDocumentUri , - getDOMDocumentDocumentUri , - setDOMDocumentDocumentUri , - - --- ** Domain - DOMDocumentDomainPropertyInfo , - dOMDocumentDomain , - getDOMDocumentDomain , - - --- ** FirstElementChild - DOMDocumentFirstElementChildPropertyInfo, - dOMDocumentFirstElementChild , - getDOMDocumentFirstElementChild , - - --- ** Forms - DOMDocumentFormsPropertyInfo , - dOMDocumentForms , - getDOMDocumentForms , - - --- ** Head - DOMDocumentHeadPropertyInfo , - dOMDocumentHead , - getDOMDocumentHead , - - --- ** Hidden - DOMDocumentHiddenPropertyInfo , - dOMDocumentHidden , - getDOMDocumentHidden , - - --- ** Images - DOMDocumentImagesPropertyInfo , - dOMDocumentImages , - getDOMDocumentImages , - - --- ** Implementation - DOMDocumentImplementationPropertyInfo , - dOMDocumentImplementation , - getDOMDocumentImplementation , - - --- ** InputEncoding - DOMDocumentInputEncodingPropertyInfo , - dOMDocumentInputEncoding , - getDOMDocumentInputEncoding , - - --- ** LastElementChild - DOMDocumentLastElementChildPropertyInfo , - dOMDocumentLastElementChild , - getDOMDocumentLastElementChild , - - --- ** LastModified - DOMDocumentLastModifiedPropertyInfo , - dOMDocumentLastModified , - getDOMDocumentLastModified , - - --- ** Links - DOMDocumentLinksPropertyInfo , - dOMDocumentLinks , - getDOMDocumentLinks , - - --- ** Origin - DOMDocumentOriginPropertyInfo , - dOMDocumentOrigin , - getDOMDocumentOrigin , - - --- ** PointerLockElement - DOMDocumentPointerLockElementPropertyInfo, - dOMDocumentPointerLockElement , - getDOMDocumentPointerLockElement , - - --- ** PreferredStylesheetSet - DOMDocumentPreferredStylesheetSetPropertyInfo, - dOMDocumentPreferredStylesheetSet , - getDOMDocumentPreferredStylesheetSet , - - --- ** ReadyState - DOMDocumentReadyStatePropertyInfo , - dOMDocumentReadyState , - getDOMDocumentReadyState , - - --- ** Referrer - DOMDocumentReferrerPropertyInfo , - dOMDocumentReferrer , - getDOMDocumentReferrer , - - --- ** ScrollingElement - DOMDocumentScrollingElementPropertyInfo , - dOMDocumentScrollingElement , - getDOMDocumentScrollingElement , - - --- ** SelectedStylesheetSet - DOMDocumentSelectedStylesheetSetPropertyInfo, - constructDOMDocumentSelectedStylesheetSet, - dOMDocumentSelectedStylesheetSet , - getDOMDocumentSelectedStylesheetSet , - setDOMDocumentSelectedStylesheetSet , - - --- ** StyleSheets - DOMDocumentStyleSheetsPropertyInfo , - dOMDocumentStyleSheets , - getDOMDocumentStyleSheets , - - --- ** Title - DOMDocumentTitlePropertyInfo , - constructDOMDocumentTitle , - dOMDocumentTitle , - getDOMDocumentTitle , - setDOMDocumentTitle , - - --- ** Url - DOMDocumentUrlPropertyInfo , - dOMDocumentUrl , - getDOMDocumentUrl , - - --- ** VisibilityState - DOMDocumentVisibilityStatePropertyInfo , - dOMDocumentVisibilityState , - getDOMDocumentVisibilityState , - - --- ** WebkitCurrentFullScreenElement - DOMDocumentWebkitCurrentFullScreenElementPropertyInfo, - dOMDocumentWebkitCurrentFullScreenElement, - getDOMDocumentWebkitCurrentFullScreenElement, - - --- ** WebkitFullScreenKeyboardInputAllowed - DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo, - dOMDocumentWebkitFullScreenKeyboardInputAllowed, - getDOMDocumentWebkitFullScreenKeyboardInputAllowed, - - --- ** WebkitFullscreenElement - DOMDocumentWebkitFullscreenElementPropertyInfo, - dOMDocumentWebkitFullscreenElement , - getDOMDocumentWebkitFullscreenElement , - - --- ** WebkitFullscreenEnabled - DOMDocumentWebkitFullscreenEnabledPropertyInfo, - dOMDocumentWebkitFullscreenEnabled , - getDOMDocumentWebkitFullscreenEnabled , - - --- ** WebkitIsFullScreen - DOMDocumentWebkitIsFullScreenPropertyInfo, - dOMDocumentWebkitIsFullScreen , - getDOMDocumentWebkitIsFullScreen , - - --- ** XmlEncoding - DOMDocumentXmlEncodingPropertyInfo , - dOMDocumentXmlEncoding , - getDOMDocumentXmlEncoding , - - --- ** XmlStandalone - DOMDocumentXmlStandalonePropertyInfo , - constructDOMDocumentXmlStandalone , - dOMDocumentXmlStandalone , - getDOMDocumentXmlStandalone , - setDOMDocumentXmlStandalone , - - --- ** XmlVersion - DOMDocumentXmlVersionPropertyInfo , - clearDOMDocumentXmlVersion , - constructDOMDocumentXmlVersion , - dOMDocumentXmlVersion , - getDOMDocumentXmlVersion , - setDOMDocumentXmlVersion , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMDocumentMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMDocumentMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMDocumentMethod "adoptNode" o = DOMDocumentAdoptNodeMethodInfo - ResolveDOMDocumentMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMDocumentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMDocumentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMDocumentMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMDocumentMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMDocumentMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMDocumentMethod "createAttribute" o = DOMDocumentCreateAttributeMethodInfo - ResolveDOMDocumentMethod "createAttributeNs" o = DOMDocumentCreateAttributeNsMethodInfo - ResolveDOMDocumentMethod "createCdataSection" o = DOMDocumentCreateCdataSectionMethodInfo - ResolveDOMDocumentMethod "createComment" o = DOMDocumentCreateCommentMethodInfo - ResolveDOMDocumentMethod "createCssStyleDeclaration" o = DOMDocumentCreateCssStyleDeclarationMethodInfo - ResolveDOMDocumentMethod "createDocumentFragment" o = DOMDocumentCreateDocumentFragmentMethodInfo - ResolveDOMDocumentMethod "createElement" o = DOMDocumentCreateElementMethodInfo - ResolveDOMDocumentMethod "createElementNs" o = DOMDocumentCreateElementNsMethodInfo - ResolveDOMDocumentMethod "createEntityReference" o = DOMDocumentCreateEntityReferenceMethodInfo - ResolveDOMDocumentMethod "createEvent" o = DOMDocumentCreateEventMethodInfo - ResolveDOMDocumentMethod "createExpression" o = DOMDocumentCreateExpressionMethodInfo - ResolveDOMDocumentMethod "createNodeIterator" o = DOMDocumentCreateNodeIteratorMethodInfo - ResolveDOMDocumentMethod "createNsResolver" o = DOMDocumentCreateNsResolverMethodInfo - ResolveDOMDocumentMethod "createProcessingInstruction" o = DOMDocumentCreateProcessingInstructionMethodInfo - ResolveDOMDocumentMethod "createRange" o = DOMDocumentCreateRangeMethodInfo - ResolveDOMDocumentMethod "createTextNode" o = DOMDocumentCreateTextNodeMethodInfo - ResolveDOMDocumentMethod "createTreeWalker" o = DOMDocumentCreateTreeWalkerMethodInfo - ResolveDOMDocumentMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMDocumentMethod "elementFromPoint" o = DOMDocumentElementFromPointMethodInfo - ResolveDOMDocumentMethod "evaluate" o = DOMDocumentEvaluateMethodInfo - ResolveDOMDocumentMethod "execCommand" o = DOMDocumentExecCommandMethodInfo - ResolveDOMDocumentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMDocumentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMDocumentMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMDocumentMethod "hasFocus" o = DOMDocumentHasFocusMethodInfo - ResolveDOMDocumentMethod "importNode" o = DOMDocumentImportNodeMethodInfo - ResolveDOMDocumentMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMDocumentMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMDocumentMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMDocumentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMDocumentMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMDocumentMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMDocumentMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMDocumentMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMDocumentMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMDocumentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMDocumentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMDocumentMethod "queryCommandEnabled" o = DOMDocumentQueryCommandEnabledMethodInfo - ResolveDOMDocumentMethod "queryCommandIndeterm" o = DOMDocumentQueryCommandIndetermMethodInfo - ResolveDOMDocumentMethod "queryCommandState" o = DOMDocumentQueryCommandStateMethodInfo - ResolveDOMDocumentMethod "queryCommandSupported" o = DOMDocumentQueryCommandSupportedMethodInfo - ResolveDOMDocumentMethod "queryCommandValue" o = DOMDocumentQueryCommandValueMethodInfo - ResolveDOMDocumentMethod "querySelector" o = DOMDocumentQuerySelectorMethodInfo - ResolveDOMDocumentMethod "querySelectorAll" o = DOMDocumentQuerySelectorAllMethodInfo - ResolveDOMDocumentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMDocumentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMDocumentMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMDocumentMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMDocumentMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMDocumentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMDocumentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMDocumentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMDocumentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMDocumentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMDocumentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMDocumentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMDocumentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMDocumentMethod "getActiveElement" o = DOMDocumentGetActiveElementMethodInfo - ResolveDOMDocumentMethod "getAnchors" o = DOMDocumentGetAnchorsMethodInfo - ResolveDOMDocumentMethod "getApplets" o = DOMDocumentGetAppletsMethodInfo - ResolveDOMDocumentMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMDocumentMethod "getBody" o = DOMDocumentGetBodyMethodInfo - ResolveDOMDocumentMethod "getCharacterSet" o = DOMDocumentGetCharacterSetMethodInfo - ResolveDOMDocumentMethod "getCharset" o = DOMDocumentGetCharsetMethodInfo - ResolveDOMDocumentMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMDocumentMethod "getCookie" o = DOMDocumentGetCookieMethodInfo - ResolveDOMDocumentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMDocumentMethod "getDefaultCharset" o = DOMDocumentGetDefaultCharsetMethodInfo - ResolveDOMDocumentMethod "getDefaultView" o = DOMDocumentGetDefaultViewMethodInfo - ResolveDOMDocumentMethod "getDoctype" o = DOMDocumentGetDoctypeMethodInfo - ResolveDOMDocumentMethod "getDocumentElement" o = DOMDocumentGetDocumentElementMethodInfo - ResolveDOMDocumentMethod "getDocumentUri" o = DOMDocumentGetDocumentUriMethodInfo - ResolveDOMDocumentMethod "getDomain" o = DOMDocumentGetDomainMethodInfo - ResolveDOMDocumentMethod "getElementById" o = DOMDocumentGetElementByIdMethodInfo - ResolveDOMDocumentMethod "getElementsByClassName" o = DOMDocumentGetElementsByClassNameMethodInfo - ResolveDOMDocumentMethod "getElementsByClassNameAsHtmlCollection" o = DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMDocumentMethod "getElementsByName" o = DOMDocumentGetElementsByNameMethodInfo - ResolveDOMDocumentMethod "getElementsByTagName" o = DOMDocumentGetElementsByTagNameMethodInfo - ResolveDOMDocumentMethod "getElementsByTagNameAsHtmlCollection" o = DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMDocumentMethod "getElementsByTagNameNs" o = DOMDocumentGetElementsByTagNameNsMethodInfo - ResolveDOMDocumentMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMDocumentMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMDocumentMethod "getForms" o = DOMDocumentGetFormsMethodInfo - ResolveDOMDocumentMethod "getHead" o = DOMDocumentGetHeadMethodInfo - ResolveDOMDocumentMethod "getImages" o = DOMDocumentGetImagesMethodInfo - ResolveDOMDocumentMethod "getImplementation" o = DOMDocumentGetImplementationMethodInfo - ResolveDOMDocumentMethod "getInputEncoding" o = DOMDocumentGetInputEncodingMethodInfo - ResolveDOMDocumentMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMDocumentMethod "getLastModified" o = DOMDocumentGetLastModifiedMethodInfo - ResolveDOMDocumentMethod "getLinks" o = DOMDocumentGetLinksMethodInfo - ResolveDOMDocumentMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMDocumentMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMDocumentMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMDocumentMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMDocumentMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMDocumentMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMDocumentMethod "getOverrideStyle" o = DOMDocumentGetOverrideStyleMethodInfo - ResolveDOMDocumentMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMDocumentMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMDocumentMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMDocumentMethod "getPreferredStylesheetSet" o = DOMDocumentGetPreferredStylesheetSetMethodInfo - ResolveDOMDocumentMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMDocumentMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMDocumentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMDocumentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMDocumentMethod "getReadyState" o = DOMDocumentGetReadyStateMethodInfo - ResolveDOMDocumentMethod "getReferrer" o = DOMDocumentGetReferrerMethodInfo - ResolveDOMDocumentMethod "getSelectedStylesheetSet" o = DOMDocumentGetSelectedStylesheetSetMethodInfo - ResolveDOMDocumentMethod "getStyleSheets" o = DOMDocumentGetStyleSheetsMethodInfo - ResolveDOMDocumentMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMDocumentMethod "getTitle" o = DOMDocumentGetTitleMethodInfo - ResolveDOMDocumentMethod "getUrl" o = DOMDocumentGetUrlMethodInfo - ResolveDOMDocumentMethod "getXmlEncoding" o = DOMDocumentGetXmlEncodingMethodInfo - ResolveDOMDocumentMethod "getXmlStandalone" o = DOMDocumentGetXmlStandaloneMethodInfo - ResolveDOMDocumentMethod "getXmlVersion" o = DOMDocumentGetXmlVersionMethodInfo - ResolveDOMDocumentMethod "setBody" o = DOMDocumentSetBodyMethodInfo - ResolveDOMDocumentMethod "setCharset" o = DOMDocumentSetCharsetMethodInfo - ResolveDOMDocumentMethod "setCookie" o = DOMDocumentSetCookieMethodInfo - ResolveDOMDocumentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMDocumentMethod "setDocumentUri" o = DOMDocumentSetDocumentUriMethodInfo - ResolveDOMDocumentMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMDocumentMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMDocumentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMDocumentMethod "setSelectedStylesheetSet" o = DOMDocumentSetSelectedStylesheetSetMethodInfo - ResolveDOMDocumentMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMDocumentMethod "setTitle" o = DOMDocumentSetTitleMethodInfo - ResolveDOMDocumentMethod "setXmlStandalone" o = DOMDocumentSetXmlStandaloneMethodInfo - ResolveDOMDocumentMethod "setXmlVersion" o = DOMDocumentSetXmlVersionMethodInfo - ResolveDOMDocumentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMDocumentMethod t DOMDocument, MethodInfo info DOMDocument p) => IsLabelProxy t (DOMDocument -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMDocumentMethod t DOMDocument, MethodInfo info DOMDocument p) => IsLabel t (DOMDocument -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "active-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMDocumentActiveElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentActiveElement obj = liftIO $ checkUnexpectedNothing "getDOMDocumentActiveElement" $ getObjectPropertyObject obj "active-element" DOMElement - -data DOMDocumentActiveElementPropertyInfo -instance AttrInfo DOMDocumentActiveElementPropertyInfo where - type AttrAllowedOps DOMDocumentActiveElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentActiveElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentActiveElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentActiveElementPropertyInfo = DOMElement - type AttrLabel DOMDocumentActiveElementPropertyInfo = "active-element" - attrGet _ = getDOMDocumentActiveElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "anchors" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentAnchors :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMDocumentAnchors obj = liftIO $ getObjectPropertyObject obj "anchors" DOMHTMLCollection - -data DOMDocumentAnchorsPropertyInfo -instance AttrInfo DOMDocumentAnchorsPropertyInfo where - type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentAnchorsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentAnchorsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMDocumentAnchorsPropertyInfo = "anchors" - attrGet _ = getDOMDocumentAnchors - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "applets" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentApplets :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMDocumentApplets obj = liftIO $ getObjectPropertyObject obj "applets" DOMHTMLCollection - -data DOMDocumentAppletsPropertyInfo -instance AttrInfo DOMDocumentAppletsPropertyInfo where - type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentAppletsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentAppletsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentAppletsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMDocumentAppletsPropertyInfo = "applets" - attrGet _ = getDOMDocumentApplets - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "body" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMDocumentBody :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLElement -getDOMDocumentBody obj = liftIO $ checkUnexpectedNothing "getDOMDocumentBody" $ getObjectPropertyObject obj "body" DOMHTMLElement - -data DOMDocumentBodyPropertyInfo -instance AttrInfo DOMDocumentBodyPropertyInfo where - type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentBodyPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentBodyPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentBodyPropertyInfo = DOMHTMLElement - type AttrLabel DOMDocumentBodyPropertyInfo = "body" - attrGet _ = getDOMDocumentBody - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "character-set" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentCharacterSet :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentCharacterSet obj = liftIO $ getObjectPropertyString obj "character-set" - -data DOMDocumentCharacterSetPropertyInfo -instance AttrInfo DOMDocumentCharacterSetPropertyInfo where - type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentCharacterSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCharacterSetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentCharacterSetPropertyInfo = "character-set" - attrGet _ = getDOMDocumentCharacterSet - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) - -constructDOMDocumentCharset :: T.Text -> IO ([Char], GValue) -constructDOMDocumentCharset val = constructObjectPropertyString "charset" (Just 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 = (Maybe T.Text) - type AttrLabel DOMDocumentCharsetPropertyInfo = "charset" - attrGet _ = getDOMDocumentCharset - attrSet _ = setDOMDocumentCharset - attrConstruct _ = constructDOMDocumentCharset - attrClear _ = undefined - --- VVV Prop "child-element-count" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentChildElementCount :: (MonadIO m, DOMDocumentK o) => o -> m CULong -getDOMDocumentChildElementCount obj = liftIO $ getObjectPropertyULong obj "child-element-count" - -data DOMDocumentChildElementCountPropertyInfo -instance AttrInfo DOMDocumentChildElementCountPropertyInfo where - type AttrAllowedOps DOMDocumentChildElementCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentChildElementCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentChildElementCountPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentChildElementCountPropertyInfo = CULong - type AttrLabel DOMDocumentChildElementCountPropertyInfo = "child-element-count" - attrGet _ = getDOMDocumentChildElementCount - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "children" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentChildren :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMDocumentChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection - -data DOMDocumentChildrenPropertyInfo -instance AttrInfo DOMDocumentChildrenPropertyInfo where - type AttrAllowedOps DOMDocumentChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentChildrenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentChildrenPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentChildrenPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMDocumentChildrenPropertyInfo = "children" - attrGet _ = getDOMDocumentChildren - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "compat-mode" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentCompatMode :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" - -data DOMDocumentCompatModePropertyInfo -instance AttrInfo DOMDocumentCompatModePropertyInfo where - type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentCompatModePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentCompatModePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCompatModePropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentCompatModePropertyInfo = "compat-mode" - attrGet _ = getDOMDocumentCompatMode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "content-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentContentType :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentContentType obj = liftIO $ getObjectPropertyString obj "content-type" - -data DOMDocumentContentTypePropertyInfo -instance AttrInfo DOMDocumentContentTypePropertyInfo where - type AttrAllowedOps DOMDocumentContentTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentContentTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentContentTypePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentContentTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentContentTypePropertyInfo = "content-type" - attrGet _ = getDOMDocumentContentType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "cookie" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentCookie obj = liftIO $ getObjectPropertyString obj "cookie" - -setDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentCookie obj val = liftIO $ setObjectPropertyString obj "cookie" (Just val) - -constructDOMDocumentCookie :: T.Text -> IO ([Char], GValue) -constructDOMDocumentCookie val = constructObjectPropertyString "cookie" (Just val) - -clearDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m () -clearDOMDocumentCookie obj = liftIO $ setObjectPropertyString obj "cookie" (Nothing :: Maybe T.Text) - -data DOMDocumentCookiePropertyInfo -instance AttrInfo DOMDocumentCookiePropertyInfo where - type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentCookiePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCookiePropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentCookiePropertyInfo = "cookie" - attrGet _ = getDOMDocumentCookie - attrSet _ = setDOMDocumentCookie - attrConstruct _ = constructDOMDocumentCookie - attrClear _ = clearDOMDocumentCookie - --- VVV Prop "current-script" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLScriptElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLScriptElement) -getDOMDocumentCurrentScript obj = liftIO $ getObjectPropertyObject obj "current-script" DOMHTMLScriptElement - -data DOMDocumentCurrentScriptPropertyInfo -instance AttrInfo DOMDocumentCurrentScriptPropertyInfo where - type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentCurrentScriptPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentCurrentScriptPropertyInfo = (Maybe DOMHTMLScriptElement) - type AttrLabel DOMDocumentCurrentScriptPropertyInfo = "current-script" - attrGet _ = getDOMDocumentCurrentScript - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "default-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentDefaultCharset :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset" - -data DOMDocumentDefaultCharsetPropertyInfo -instance AttrInfo DOMDocumentDefaultCharsetPropertyInfo where - type AttrAllowedOps DOMDocumentDefaultCharsetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDefaultCharsetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentDefaultCharsetPropertyInfo = "default-charset" - attrGet _ = getDOMDocumentDefaultCharset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "default-view" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentDefaultView :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMDOMWindow) -getDOMDocumentDefaultView obj = liftIO $ getObjectPropertyObject obj "default-view" DOMDOMWindow - -data DOMDocumentDefaultViewPropertyInfo -instance AttrInfo DOMDocumentDefaultViewPropertyInfo where - type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDefaultViewPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDefaultViewPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMDocumentDefaultViewPropertyInfo = "default-view" - attrGet _ = getDOMDocumentDefaultView - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "doctype" - -- Type: TInterface "WebKit2WebExtension" "DOMDocumentType" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMDocumentDoctype :: (MonadIO m, DOMDocumentK o) => o -> m DOMDocumentType -getDOMDocumentDoctype obj = liftIO $ checkUnexpectedNothing "getDOMDocumentDoctype" $ getObjectPropertyObject obj "doctype" DOMDocumentType - -data DOMDocumentDoctypePropertyInfo -instance AttrInfo DOMDocumentDoctypePropertyInfo where - type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentDoctypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDoctypePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDoctypePropertyInfo = DOMDocumentType - type AttrLabel DOMDocumentDoctypePropertyInfo = "doctype" - attrGet _ = getDOMDocumentDoctype - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "document-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMDocumentDocumentElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement -getDOMDocumentDocumentElement obj = liftIO $ checkUnexpectedNothing "getDOMDocumentDocumentElement" $ getObjectPropertyObject obj "document-element" DOMElement - -data DOMDocumentDocumentElementPropertyInfo -instance AttrInfo DOMDocumentDocumentElementPropertyInfo where - type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDocumentElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDocumentElementPropertyInfo = DOMElement - type AttrLabel DOMDocumentDocumentElementPropertyInfo = "document-element" - attrGet _ = getDOMDocumentDocumentElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "document-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMDocumentDocumentUri :: T.Text -> IO ([Char], GValue) -constructDOMDocumentDocumentUri val = constructObjectPropertyString "document-uri" (Just 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 = (Maybe T.Text) - type AttrLabel DOMDocumentDocumentUriPropertyInfo = "document-uri" - attrGet _ = getDOMDocumentDocumentUri - attrSet _ = setDOMDocumentDocumentUri - attrConstruct _ = constructDOMDocumentDocumentUri - attrClear _ = undefined - --- VVV Prop "domain" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentDomain :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentDomain obj = liftIO $ getObjectPropertyString obj "domain" - -data DOMDocumentDomainPropertyInfo -instance AttrInfo DOMDocumentDomainPropertyInfo where - type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentDomainPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentDomainPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentDomainPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentDomainPropertyInfo = "domain" - attrGet _ = getDOMDocumentDomain - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "first-element-child" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentFirstElementChild :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) -getDOMDocumentFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement - -data DOMDocumentFirstElementChildPropertyInfo -instance AttrInfo DOMDocumentFirstElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentFirstElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentFirstElementChildPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentFirstElementChildPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentFirstElementChildPropertyInfo = "first-element-child" - attrGet _ = getDOMDocumentFirstElementChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "forms" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentForms :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMDocumentForms obj = liftIO $ getObjectPropertyObject obj "forms" DOMHTMLCollection - -data DOMDocumentFormsPropertyInfo -instance AttrInfo DOMDocumentFormsPropertyInfo where - type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentFormsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentFormsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentFormsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMDocumentFormsPropertyInfo = "forms" - attrGet _ = getDOMDocumentForms - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "head" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLHeadElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMDocumentHead :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLHeadElement -getDOMDocumentHead obj = liftIO $ checkUnexpectedNothing "getDOMDocumentHead" $ getObjectPropertyObject obj "head" DOMHTMLHeadElement - -data DOMDocumentHeadPropertyInfo -instance AttrInfo DOMDocumentHeadPropertyInfo where - type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentHeadPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentHeadPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentHeadPropertyInfo = DOMHTMLHeadElement - type AttrLabel DOMDocumentHeadPropertyInfo = "head" - attrGet _ = getDOMDocumentHead - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "hidden" - attrGet _ = getDOMDocumentHidden - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "images" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentImages :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMDocumentImages obj = liftIO $ getObjectPropertyObject obj "images" DOMHTMLCollection - -data DOMDocumentImagesPropertyInfo -instance AttrInfo DOMDocumentImagesPropertyInfo where - type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentImagesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentImagesPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentImagesPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMDocumentImagesPropertyInfo = "images" - attrGet _ = getDOMDocumentImages - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "implementation" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMImplementation" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentImplementation :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMDOMImplementation) -getDOMDocumentImplementation obj = liftIO $ getObjectPropertyObject obj "implementation" DOMDOMImplementation - -data DOMDocumentImplementationPropertyInfo -instance AttrInfo DOMDocumentImplementationPropertyInfo where - type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentImplementationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentImplementationPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentImplementationPropertyInfo = (Maybe DOMDOMImplementation) - type AttrLabel DOMDocumentImplementationPropertyInfo = "implementation" - attrGet _ = getDOMDocumentImplementation - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "input-encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentInputEncoding :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentInputEncoding obj = liftIO $ getObjectPropertyString obj "input-encoding" - -data DOMDocumentInputEncodingPropertyInfo -instance AttrInfo DOMDocumentInputEncodingPropertyInfo where - type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentInputEncodingPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentInputEncodingPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentInputEncodingPropertyInfo = "input-encoding" - attrGet _ = getDOMDocumentInputEncoding - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "last-element-child" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentLastElementChild :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) -getDOMDocumentLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement - -data DOMDocumentLastElementChildPropertyInfo -instance AttrInfo DOMDocumentLastElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentLastElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentLastElementChildPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLastElementChildPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentLastElementChildPropertyInfo = "last-element-child" - attrGet _ = getDOMDocumentLastElementChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "last-modified" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentLastModified :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentLastModified obj = liftIO $ getObjectPropertyString obj "last-modified" - -data DOMDocumentLastModifiedPropertyInfo -instance AttrInfo DOMDocumentLastModifiedPropertyInfo where - type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentLastModifiedPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLastModifiedPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentLastModifiedPropertyInfo = "last-modified" - attrGet _ = getDOMDocumentLastModified - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "links" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentLinks :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMDocumentLinks obj = liftIO $ getObjectPropertyObject obj "links" DOMHTMLCollection - -data DOMDocumentLinksPropertyInfo -instance AttrInfo DOMDocumentLinksPropertyInfo where - type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentLinksPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentLinksPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentLinksPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMDocumentLinksPropertyInfo = "links" - attrGet _ = getDOMDocumentLinks - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentOrigin :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentOrigin obj = liftIO $ getObjectPropertyString obj "origin" - -data DOMDocumentOriginPropertyInfo -instance AttrInfo DOMDocumentOriginPropertyInfo where - type AttrAllowedOps DOMDocumentOriginPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentOriginPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentOriginPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentOriginPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentOriginPropertyInfo = "origin" - attrGet _ = getDOMDocumentOrigin - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "pointer-lock-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) -getDOMDocumentPointerLockElement obj = liftIO $ getObjectPropertyObject obj "pointer-lock-element" DOMElement - -data DOMDocumentPointerLockElementPropertyInfo -instance AttrInfo DOMDocumentPointerLockElementPropertyInfo where - type AttrAllowedOps DOMDocumentPointerLockElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentPointerLockElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentPointerLockElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentPointerLockElementPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentPointerLockElementPropertyInfo = "pointer-lock-element" - attrGet _ = getDOMDocumentPointerLockElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "preferred-stylesheet-set" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentPreferredStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentPreferredStylesheetSet obj = liftIO $ getObjectPropertyString obj "preferred-stylesheet-set" - -data DOMDocumentPreferredStylesheetSetPropertyInfo -instance AttrInfo DOMDocumentPreferredStylesheetSetPropertyInfo where - type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentPreferredStylesheetSetPropertyInfo = "preferred-stylesheet-set" - attrGet _ = getDOMDocumentPreferredStylesheetSet - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ready-state" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentReadyState :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentReadyState obj = liftIO $ getObjectPropertyString obj "ready-state" - -data DOMDocumentReadyStatePropertyInfo -instance AttrInfo DOMDocumentReadyStatePropertyInfo where - type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentReadyStatePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentReadyStatePropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentReadyStatePropertyInfo = "ready-state" - attrGet _ = getDOMDocumentReadyState - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "referrer" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentReferrer :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentReferrer obj = liftIO $ getObjectPropertyString obj "referrer" - -data DOMDocumentReferrerPropertyInfo -instance AttrInfo DOMDocumentReferrerPropertyInfo where - type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentReferrerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentReferrerPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentReferrerPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentReferrerPropertyInfo = "referrer" - attrGet _ = getDOMDocumentReferrer - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "scrolling-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentScrollingElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) -getDOMDocumentScrollingElement obj = liftIO $ getObjectPropertyObject obj "scrolling-element" DOMElement - -data DOMDocumentScrollingElementPropertyInfo -instance AttrInfo DOMDocumentScrollingElementPropertyInfo where - type AttrAllowedOps DOMDocumentScrollingElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentScrollingElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentScrollingElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentScrollingElementPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentScrollingElementPropertyInfo = "scrolling-element" - attrGet _ = getDOMDocumentScrollingElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "selected-stylesheet-set" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMDocumentSelectedStylesheetSet :: T.Text -> IO ([Char], GValue) -constructDOMDocumentSelectedStylesheetSet val = constructObjectPropertyString "selected-stylesheet-set" (Just 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 = (Maybe T.Text) - type AttrLabel DOMDocumentSelectedStylesheetSetPropertyInfo = "selected-stylesheet-set" - attrGet _ = getDOMDocumentSelectedStylesheetSet - attrSet _ = setDOMDocumentSelectedStylesheetSet - attrConstruct _ = constructDOMDocumentSelectedStylesheetSet - attrClear _ = undefined - --- VVV Prop "style-sheets" - -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheetList" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMDocumentStyleSheets :: (MonadIO m, DOMDocumentK o) => o -> m DOMStyleSheetList -getDOMDocumentStyleSheets obj = liftIO $ checkUnexpectedNothing "getDOMDocumentStyleSheets" $ getObjectPropertyObject obj "style-sheets" DOMStyleSheetList - -data DOMDocumentStyleSheetsPropertyInfo -instance AttrInfo DOMDocumentStyleSheetsPropertyInfo where - type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentStyleSheetsPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentStyleSheetsPropertyInfo = DOMStyleSheetList - type AttrLabel DOMDocumentStyleSheetsPropertyInfo = "style-sheets" - attrGet _ = getDOMDocumentStyleSheets - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentTitle obj = liftIO $ getObjectPropertyString obj "title" - -setDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () -setDOMDocumentTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructDOMDocumentTitle :: T.Text -> IO ([Char], GValue) -constructDOMDocumentTitle val = constructObjectPropertyString "title" (Just 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 = (Maybe T.Text) - type AttrLabel DOMDocumentTitlePropertyInfo = "title" - attrGet _ = getDOMDocumentTitle - attrSet _ = setDOMDocumentTitle - attrConstruct _ = constructDOMDocumentTitle - attrClear _ = undefined - --- VVV Prop "url" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentUrl :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentUrl obj = liftIO $ getObjectPropertyString obj "url" - -data DOMDocumentUrlPropertyInfo -instance AttrInfo DOMDocumentUrlPropertyInfo where - type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentUrlPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentUrlPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentUrlPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentUrlPropertyInfo = "url" - attrGet _ = getDOMDocumentUrl - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "visibility-state" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentVisibilityState :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentVisibilityState obj = liftIO $ getObjectPropertyString obj "visibility-state" - -data DOMDocumentVisibilityStatePropertyInfo -instance AttrInfo DOMDocumentVisibilityStatePropertyInfo where - type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentVisibilityStatePropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentVisibilityStatePropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentVisibilityStatePropertyInfo = "visibility-state" - attrGet _ = getDOMDocumentVisibilityState - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "webkit-current-full-screen-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) -getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-current-full-screen-element" DOMElement - -data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo -instance AttrInfo DOMDocumentWebkitCurrentFullScreenElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = "webkit-current-full-screen-element" - attrGet _ = getDOMDocumentWebkitCurrentFullScreenElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "webkit-full-screen-keyboard-input-allowed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "webkit-full-screen-keyboard-input-allowed" - attrGet _ = getDOMDocumentWebkitFullScreenKeyboardInputAllowed - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "webkit-fullscreen-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe DOMElement) -getDOMDocumentWebkitFullscreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-fullscreen-element" DOMElement - -data DOMDocumentWebkitFullscreenElementPropertyInfo -instance AttrInfo DOMDocumentWebkitFullscreenElementPropertyInfo where - type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentWebkitFullscreenElementPropertyInfo = "webkit-fullscreen-element" - attrGet _ = getDOMDocumentWebkitFullscreenElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "webkit-fullscreen-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "webkit-fullscreen-enabled" - attrGet _ = getDOMDocumentWebkitFullscreenEnabled - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "webkit-is-full-screen" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "webkit-is-full-screen" - attrGet _ = getDOMDocumentWebkitIsFullScreen - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "xml-encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentXmlEncoding :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe T.Text) -getDOMDocumentXmlEncoding obj = liftIO $ getObjectPropertyString obj "xml-encoding" - -data DOMDocumentXmlEncodingPropertyInfo -instance AttrInfo DOMDocumentXmlEncodingPropertyInfo where - type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentXmlEncodingPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentXmlEncodingPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentXmlEncodingPropertyInfo = "xml-encoding" - attrGet _ = getDOMDocumentXmlEncoding - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "xml-standalone" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -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 = "xml-standalone" - attrGet _ = getDOMDocumentXmlStandalone - attrSet _ = setDOMDocumentXmlStandalone - attrConstruct _ = constructDOMDocumentXmlStandalone - attrClear _ = undefined - --- VVV Prop "xml-version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMDocumentXmlVersion :: T.Text -> IO ([Char], GValue) -constructDOMDocumentXmlVersion val = constructObjectPropertyString "xml-version" (Just val) - -clearDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m () -clearDOMDocumentXmlVersion obj = liftIO $ setObjectPropertyString obj "xml-version" (Nothing :: Maybe T.Text) - -data DOMDocumentXmlVersionPropertyInfo -instance AttrInfo DOMDocumentXmlVersionPropertyInfo where - type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMDocumentXmlVersionPropertyInfo = DOMDocumentK - type AttrGetType DOMDocumentXmlVersionPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentXmlVersionPropertyInfo = "xml-version" - attrGet _ = getDOMDocumentXmlVersion - attrSet _ = setDOMDocumentXmlVersion - attrConstruct _ = constructDOMDocumentXmlVersion - attrClear _ = clearDOMDocumentXmlVersion - -type instance AttributeList DOMDocument = DOMDocumentAttributeList -type DOMDocumentAttributeList = ('[ '("activeElement", DOMDocumentActiveElementPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childElementCount", DOMDocumentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compatMode", DOMDocumentCompatModePropertyInfo), '("contentType", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentScript", DOMDocumentCurrentScriptPropertyInfo), '("defaultCharset", DOMDocumentDefaultCharsetPropertyInfo), '("defaultView", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("documentElement", DOMDocumentDocumentElementPropertyInfo), '("documentUri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentLastElementChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pointerLockElement", DOMDocumentPointerLockElementPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scrollingElement", DOMDocumentScrollingElementPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) - -dOMDocumentActiveElement :: AttrLabelProxy "activeElement" -dOMDocumentActiveElement = AttrLabelProxy - -dOMDocumentAnchors :: AttrLabelProxy "anchors" -dOMDocumentAnchors = AttrLabelProxy - -dOMDocumentApplets :: AttrLabelProxy "applets" -dOMDocumentApplets = AttrLabelProxy - -dOMDocumentBody :: AttrLabelProxy "body" -dOMDocumentBody = AttrLabelProxy - -dOMDocumentCharacterSet :: AttrLabelProxy "characterSet" -dOMDocumentCharacterSet = AttrLabelProxy - -dOMDocumentCharset :: AttrLabelProxy "charset" -dOMDocumentCharset = AttrLabelProxy - -dOMDocumentChildElementCount :: AttrLabelProxy "childElementCount" -dOMDocumentChildElementCount = AttrLabelProxy - -dOMDocumentChildren :: AttrLabelProxy "children" -dOMDocumentChildren = AttrLabelProxy - -dOMDocumentCompatMode :: AttrLabelProxy "compatMode" -dOMDocumentCompatMode = AttrLabelProxy - -dOMDocumentContentType :: AttrLabelProxy "contentType" -dOMDocumentContentType = AttrLabelProxy - -dOMDocumentCookie :: AttrLabelProxy "cookie" -dOMDocumentCookie = AttrLabelProxy - -dOMDocumentCurrentScript :: AttrLabelProxy "currentScript" -dOMDocumentCurrentScript = AttrLabelProxy - -dOMDocumentDefaultCharset :: AttrLabelProxy "defaultCharset" -dOMDocumentDefaultCharset = AttrLabelProxy - -dOMDocumentDefaultView :: AttrLabelProxy "defaultView" -dOMDocumentDefaultView = AttrLabelProxy - -dOMDocumentDoctype :: AttrLabelProxy "doctype" -dOMDocumentDoctype = AttrLabelProxy - -dOMDocumentDocumentElement :: AttrLabelProxy "documentElement" -dOMDocumentDocumentElement = AttrLabelProxy - -dOMDocumentDocumentUri :: AttrLabelProxy "documentUri" -dOMDocumentDocumentUri = AttrLabelProxy - -dOMDocumentDomain :: AttrLabelProxy "domain" -dOMDocumentDomain = AttrLabelProxy - -dOMDocumentFirstElementChild :: AttrLabelProxy "firstElementChild" -dOMDocumentFirstElementChild = AttrLabelProxy - -dOMDocumentForms :: AttrLabelProxy "forms" -dOMDocumentForms = AttrLabelProxy - -dOMDocumentHead :: AttrLabelProxy "head" -dOMDocumentHead = AttrLabelProxy - -dOMDocumentHidden :: AttrLabelProxy "hidden" -dOMDocumentHidden = AttrLabelProxy - -dOMDocumentImages :: AttrLabelProxy "images" -dOMDocumentImages = AttrLabelProxy - -dOMDocumentImplementation :: AttrLabelProxy "implementation" -dOMDocumentImplementation = AttrLabelProxy - -dOMDocumentInputEncoding :: AttrLabelProxy "inputEncoding" -dOMDocumentInputEncoding = AttrLabelProxy - -dOMDocumentLastElementChild :: AttrLabelProxy "lastElementChild" -dOMDocumentLastElementChild = AttrLabelProxy - -dOMDocumentLastModified :: AttrLabelProxy "lastModified" -dOMDocumentLastModified = AttrLabelProxy - -dOMDocumentLinks :: AttrLabelProxy "links" -dOMDocumentLinks = AttrLabelProxy - -dOMDocumentOrigin :: AttrLabelProxy "origin" -dOMDocumentOrigin = AttrLabelProxy - -dOMDocumentPointerLockElement :: AttrLabelProxy "pointerLockElement" -dOMDocumentPointerLockElement = AttrLabelProxy - -dOMDocumentPreferredStylesheetSet :: AttrLabelProxy "preferredStylesheetSet" -dOMDocumentPreferredStylesheetSet = AttrLabelProxy - -dOMDocumentReadyState :: AttrLabelProxy "readyState" -dOMDocumentReadyState = AttrLabelProxy - -dOMDocumentReferrer :: AttrLabelProxy "referrer" -dOMDocumentReferrer = AttrLabelProxy - -dOMDocumentScrollingElement :: AttrLabelProxy "scrollingElement" -dOMDocumentScrollingElement = AttrLabelProxy - -dOMDocumentSelectedStylesheetSet :: AttrLabelProxy "selectedStylesheetSet" -dOMDocumentSelectedStylesheetSet = AttrLabelProxy - -dOMDocumentStyleSheets :: AttrLabelProxy "styleSheets" -dOMDocumentStyleSheets = AttrLabelProxy - -dOMDocumentTitle :: AttrLabelProxy "title" -dOMDocumentTitle = AttrLabelProxy - -dOMDocumentUrl :: AttrLabelProxy "url" -dOMDocumentUrl = AttrLabelProxy - -dOMDocumentVisibilityState :: AttrLabelProxy "visibilityState" -dOMDocumentVisibilityState = AttrLabelProxy - -dOMDocumentWebkitCurrentFullScreenElement :: AttrLabelProxy "webkitCurrentFullScreenElement" -dOMDocumentWebkitCurrentFullScreenElement = AttrLabelProxy - -dOMDocumentWebkitFullScreenKeyboardInputAllowed :: AttrLabelProxy "webkitFullScreenKeyboardInputAllowed" -dOMDocumentWebkitFullScreenKeyboardInputAllowed = AttrLabelProxy - -dOMDocumentWebkitFullscreenElement :: AttrLabelProxy "webkitFullscreenElement" -dOMDocumentWebkitFullscreenElement = AttrLabelProxy - -dOMDocumentWebkitFullscreenEnabled :: AttrLabelProxy "webkitFullscreenEnabled" -dOMDocumentWebkitFullscreenEnabled = AttrLabelProxy - -dOMDocumentWebkitIsFullScreen :: AttrLabelProxy "webkitIsFullScreen" -dOMDocumentWebkitIsFullScreen = AttrLabelProxy - -dOMDocumentXmlEncoding :: AttrLabelProxy "xmlEncoding" -dOMDocumentXmlEncoding = AttrLabelProxy - -dOMDocumentXmlStandalone :: AttrLabelProxy "xmlStandalone" -dOMDocumentXmlStandalone = AttrLabelProxy - -dOMDocumentXmlVersion :: AttrLabelProxy "xmlVersion" -dOMDocumentXmlVersion = AttrLabelProxy - -type instance SignalList DOMDocument = DOMDocumentSignalList -type DOMDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMDocument::adopt_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMDocumentAdoptNodeMethodInfo -instance (signature ~ (b -> m DOMNode), MonadIO m, DOMDocumentK a, DOMNodeK b) => MethodInfo DOMDocumentAdoptNodeMethodInfo a signature where - overloadedMethod _ = dOMDocumentAdoptNode - --- method DOMDocument::create_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentCreateAttributeMethodInfo -instance (signature ~ (T.Text -> m DOMAttr), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateAttributeMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateAttribute - --- method DOMDocument::create_attribute_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentCreateAttributeNsMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> m DOMAttr), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateAttributeNsMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateAttributeNs - --- method DOMDocument::create_cdata_section --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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_' - ) - -data DOMDocumentCreateCdataSectionMethodInfo -instance (signature ~ (T.Text -> m DOMCDATASection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateCdataSectionMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateCdataSection - --- method DOMDocument::create_comment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentCreateCommentMethodInfo -instance (signature ~ (T.Text -> m DOMComment), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateCommentMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateComment - --- method DOMDocument::create_css_style_declaration --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentCreateCssStyleDeclarationMethodInfo -instance (signature ~ (m DOMCSSStyleDeclaration), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateCssStyleDeclarationMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateCssStyleDeclaration - --- method DOMDocument::create_document_fragment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentCreateDocumentFragmentMethodInfo -instance (signature ~ (m DOMDocumentFragment), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateDocumentFragmentMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateDocumentFragment - --- method DOMDocument::create_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentCreateElementMethodInfo -instance (signature ~ (T.Text -> m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateElementMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateElement - --- method DOMDocument::create_element_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentCreateElementNsMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateElementNsMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateElementNs - --- method DOMDocument::create_entity_reference --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) - -{-# DEPRECATED dOMDocumentCreateEntityReference ["(Since version 2.12)"]#-} -dOMDocumentCreateEntityReference :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> Maybe (T.Text) -- name - -> m DOMEntityReference -- result -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 - ) - -data DOMDocumentCreateEntityReferenceMethodInfo -instance (signature ~ (Maybe (T.Text) -> m DOMEntityReference), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateEntityReferenceMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateEntityReference - --- method DOMDocument::create_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "eventType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentCreateEventMethodInfo -instance (signature ~ (T.Text -> m DOMEvent), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateEventMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateEvent - --- method DOMDocument::create_expression --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolver", argType = TInterface "WebKit2WebExtension" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentCreateExpressionMethodInfo -instance (signature ~ (T.Text -> b -> m DOMXPathExpression), MonadIO m, DOMDocumentK a, DOMXPathNSResolverK b) => MethodInfo DOMDocumentCreateExpressionMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateExpression - --- method DOMDocument::create_node_iterator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whatToShow", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- whatToShow : TBasicType TULong - 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 - -> CULong -- whatToShow - -> Maybe (c) -- filter - -> Bool -- expandEntityReferences - -> m DOMNodeIterator -- result -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 () - ) - -data DOMDocumentCreateNodeIteratorMethodInfo -instance (signature ~ (b -> CULong -> Maybe (c) -> Bool -> m DOMNodeIterator), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateNodeIteratorMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateNodeIterator - --- method DOMDocument::create_ns_resolver --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nodeResolver", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentCreateNsResolverMethodInfo -instance (signature ~ (b -> m DOMXPathNSResolver), MonadIO m, DOMDocumentK a, DOMNodeK b) => MethodInfo DOMDocumentCreateNsResolverMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateNsResolver - --- method DOMDocument::create_processing_instruction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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_' - ) - -data DOMDocumentCreateProcessingInstructionMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMProcessingInstruction), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateProcessingInstructionMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateProcessingInstruction - --- method DOMDocument::create_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentCreateRangeMethodInfo -instance (signature ~ (m DOMRange), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateRangeMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateRange - --- method DOMDocument::create_text_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentCreateTextNodeMethodInfo -instance (signature ~ (T.Text -> m DOMText), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentCreateTextNodeMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateTextNode - --- method DOMDocument::create_tree_walker --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "whatToShow", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- whatToShow : TBasicType TULong - 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 - -> CULong -- whatToShow - -> Maybe (c) -- filter - -> Bool -- expandEntityReferences - -> m DOMTreeWalker -- result -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 () - ) - -data DOMDocumentCreateTreeWalkerMethodInfo -instance (signature ~ (b -> CULong -> Maybe (c) -> Bool -> m DOMTreeWalker), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) => MethodInfo DOMDocumentCreateTreeWalkerMethodInfo a signature where - overloadedMethod _ = dOMDocumentCreateTreeWalker - --- method DOMDocument::element_from_point --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CLong -> -- x : TBasicType TLong - CLong -> -- y : TBasicType TLong - IO (Ptr DOMElement) - - -dOMDocumentElementFromPoint :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> CLong -- x - -> CLong -- y - -> m DOMElement -- result -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' - -data DOMDocumentElementFromPointMethodInfo -instance (signature ~ (CLong -> CLong -> m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentElementFromPointMethodInfo a signature where - overloadedMethod _ = dOMDocumentElementFromPoint - --- method DOMDocument::evaluate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contextNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolver", argType = TInterface "WebKit2WebExtension" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inResult", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentEvaluateMethodInfo -instance (signature ~ (T.Text -> b -> Maybe (c) -> Word16 -> Maybe (d) -> m DOMXPathResult), MonadIO m, DOMDocumentK a, DOMNodeK b, DOMXPathNSResolverK c, DOMXPathResultK d) => MethodInfo DOMDocumentEvaluateMethodInfo a signature where - overloadedMethod _ = dOMDocumentEvaluate - --- method DOMDocument::exec_command --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "userInterface", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentExecCommandMethodInfo -instance (signature ~ (T.Text -> Bool -> T.Text -> m Bool), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentExecCommandMethodInfo a signature where - overloadedMethod _ = dOMDocumentExecCommand - --- method DOMDocument::get_active_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetActiveElementMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetActiveElementMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetActiveElement - --- method DOMDocument::get_anchors --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetAnchorsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetAnchorsMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetAnchors - --- method DOMDocument::get_applets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetAppletsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetAppletsMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetApplets - --- method DOMDocument::get_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetBodyMethodInfo -instance (signature ~ (m DOMHTMLElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetBodyMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetBody - --- method DOMDocument::get_character_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetCharacterSetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetCharacterSetMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetCharacterSet - --- method DOMDocument::get_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetCharsetMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetCharset - --- method DOMDocument::get_cookie --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMDocumentGetCookieMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetCookieMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetCookie - --- method DOMDocument::get_default_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetDefaultCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetDefaultCharsetMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetDefaultCharset - --- method DOMDocument::get_default_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetDefaultViewMethodInfo -instance (signature ~ (m DOMDOMWindow), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetDefaultViewMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetDefaultView - --- method DOMDocument::get_doctype --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetDoctypeMethodInfo -instance (signature ~ (m DOMDocumentType), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetDoctypeMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetDoctype - --- method DOMDocument::get_document_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetDocumentElementMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetDocumentElementMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetDocumentElement - --- method DOMDocument::get_document_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetDocumentUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetDocumentUriMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetDocumentUri - --- method DOMDocument::get_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetDomainMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetDomainMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetDomain - --- method DOMDocument::get_element_by_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetElementByIdMethodInfo -instance (signature ~ (T.Text -> m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementByIdMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementById - --- method DOMDocument::get_elements_by_class_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -> -- class_name : TBasicType TUTF8 - IO (Ptr DOMNodeList) - -{-# DEPRECATED dOMDocumentGetElementsByClassName ["(Since version 2.12)","Use webkit_dom_document_get_elements_by_class_name_as_html_collection() instead."]#-} -dOMDocumentGetElementsByClassName :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> T.Text -- className - -> m DOMNodeList -- result -dOMDocumentGetElementsByClassName _obj className = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - className' <- textToCString className - result <- webkit_dom_document_get_elements_by_class_name _obj' className' - checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_class_name" result - result' <- (wrapObject DOMNodeList) result - touchManagedPtr _obj - freeMem className' - return result' - -data DOMDocumentGetElementsByClassNameMethodInfo -instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByClassNameMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByClassName - --- method DOMDocument::get_elements_by_class_name_as_html_collection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "classNames", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") --- throws : False --- Skip return : False - -foreign import ccall "webkit_dom_document_get_elements_by_class_name_as_html_collection" webkit_dom_document_get_elements_by_class_name_as_html_collection :: - Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" - CString -> -- classNames : TBasicType TUTF8 - IO (Ptr DOMHTMLCollection) - - -dOMDocumentGetElementsByClassNameAsHtmlCollection :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> T.Text -- classNames - -> m DOMHTMLCollection -- result -dOMDocumentGetElementsByClassNameAsHtmlCollection _obj classNames = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - classNames' <- textToCString classNames - result <- webkit_dom_document_get_elements_by_class_name_as_html_collection _obj' classNames' - checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_class_name_as_html_collection" result - result' <- (wrapObject DOMHTMLCollection) result - touchManagedPtr _obj - freeMem classNames' - return result' - -data DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo -instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByClassNameAsHtmlCollection - --- method DOMDocument::get_elements_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "elementName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetElementsByNameMethodInfo -instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByNameMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByName - --- method DOMDocument::get_elements_by_tag_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -> -- tag_name : TBasicType TUTF8 - IO (Ptr DOMNodeList) - -{-# DEPRECATED dOMDocumentGetElementsByTagName ["(Since version 2.12)","Use webkit_dom_document_get_elements_by_tag_name_as_html_collection() instead."]#-} -dOMDocumentGetElementsByTagName :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> T.Text -- tagName - -> m DOMNodeList -- result -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' - -data DOMDocumentGetElementsByTagNameMethodInfo -instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByTagName - --- method DOMDocument::get_elements_by_tag_name_as_html_collection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") --- throws : False --- Skip return : False - -foreign import ccall "webkit_dom_document_get_elements_by_tag_name_as_html_collection" webkit_dom_document_get_elements_by_tag_name_as_html_collection :: - Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" - CString -> -- tagname : TBasicType TUTF8 - IO (Ptr DOMHTMLCollection) - - -dOMDocumentGetElementsByTagNameAsHtmlCollection :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> T.Text -- tagname - -> m DOMHTMLCollection -- result -dOMDocumentGetElementsByTagNameAsHtmlCollection _obj tagname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tagname' <- textToCString tagname - result <- webkit_dom_document_get_elements_by_tag_name_as_html_collection _obj' tagname' - checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_as_html_collection" result - result' <- (wrapObject DOMHTMLCollection) result - touchManagedPtr _obj - freeMem tagname' - return result' - -data DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo -instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByTagNameAsHtmlCollection - --- method DOMDocument::get_elements_by_tag_name_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespace_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -> -- namespace_uri : TBasicType TUTF8 - CString -> -- tag_name : TBasicType TUTF8 - IO (Ptr DOMNodeList) - -{-# DEPRECATED dOMDocumentGetElementsByTagNameNs ["(Since version 2.12)","Use webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection() instead."]#-} -dOMDocumentGetElementsByTagNameNs :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> T.Text -- namespaceUri - -> T.Text -- tagName - -> m DOMNodeList -- result -dOMDocumentGetElementsByTagNameNs _obj namespaceUri tagName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - namespaceUri' <- textToCString namespaceUri - tagName' <- textToCString tagName - result <- webkit_dom_document_get_elements_by_tag_name_ns _obj' namespaceUri' tagName' - checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_ns" result - result' <- (wrapObject DOMNodeList) result - touchManagedPtr _obj - freeMem namespaceUri' - freeMem tagName' - return result' - -data DOMDocumentGetElementsByTagNameNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameNsMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByTagNameNs - --- method DOMDocument::get_elements_by_tag_name_ns_as_html_collection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") --- throws : False --- Skip return : False - -foreign import ccall "webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection" webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection :: - Ptr DOMDocument -> -- _obj : TInterface "WebKit2WebExtension" "DOMDocument" - CString -> -- namespaceURI : TBasicType TUTF8 - CString -> -- localName : TBasicType TUTF8 - IO (Ptr DOMHTMLCollection) - - -dOMDocumentGetElementsByTagNameNsAsHtmlCollection :: - (MonadIO m, DOMDocumentK a) => - a -- _obj - -> T.Text -- namespaceURI - -> T.Text -- localName - -> m DOMHTMLCollection -- result -dOMDocumentGetElementsByTagNameNsAsHtmlCollection _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_as_html_collection _obj' namespaceURI' localName' - checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection" result - result' <- (wrapObject DOMHTMLCollection) result - touchManagedPtr _obj - freeMem namespaceURI' - freeMem localName' - return result' - -data DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetElementsByTagNameNsAsHtmlCollection - --- method DOMDocument::get_forms --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetFormsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetFormsMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetForms - --- method DOMDocument::get_head --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetHeadMethodInfo -instance (signature ~ (m DOMHTMLHeadElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetHeadMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetHead - --- method DOMDocument::get_images --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetImagesMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetImagesMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetImages - --- method DOMDocument::get_implementation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetImplementationMethodInfo -instance (signature ~ (m DOMDOMImplementation), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetImplementationMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetImplementation - --- method DOMDocument::get_input_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetInputEncodingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetInputEncodingMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetInputEncoding - --- method DOMDocument::get_last_modified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetLastModifiedMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetLastModifiedMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetLastModified - --- method DOMDocument::get_links --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetLinksMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetLinksMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetLinks - --- method DOMDocument::get_override_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetOverrideStyleMethodInfo -instance (signature ~ (b -> Maybe (T.Text) -> m DOMCSSStyleDeclaration), MonadIO m, DOMDocumentK a, DOMElementK b) => MethodInfo DOMDocumentGetOverrideStyleMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetOverrideStyle - --- method DOMDocument::get_preferred_stylesheet_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetPreferredStylesheetSetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetPreferredStylesheetSetMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetPreferredStylesheetSet - --- method DOMDocument::get_ready_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetReadyStateMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetReadyStateMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetReadyState - --- method DOMDocument::get_referrer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetReferrerMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetReferrerMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetReferrer - --- method DOMDocument::get_selected_stylesheet_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetSelectedStylesheetSetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetSelectedStylesheetSetMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetSelectedStylesheetSet - --- method DOMDocument::get_style_sheets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetStyleSheetsMethodInfo -instance (signature ~ (m DOMStyleSheetList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetStyleSheetsMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetStyleSheets - --- method DOMDocument::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetTitleMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetTitle - --- method DOMDocument::get_url --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetUrlMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetUrlMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetUrl - --- method DOMDocument::get_xml_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetXmlEncodingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetXmlEncodingMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetXmlEncoding - --- method DOMDocument::get_xml_standalone --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMDocumentGetXmlStandalone _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_document_get_xml_standalone _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMDocumentGetXmlStandaloneMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetXmlStandaloneMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetXmlStandalone - --- method DOMDocument::get_xml_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentGetXmlVersionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentGetXmlVersionMethodInfo a signature where - overloadedMethod _ = dOMDocumentGetXmlVersion - --- method DOMDocument::has_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMDocumentHasFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_document_has_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMDocumentHasFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentHasFocusMethodInfo a signature where - overloadedMethod _ = dOMDocumentHasFocus - --- method DOMDocument::import_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "importedNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMDocumentImportNodeMethodInfo -instance (signature ~ (b -> Bool -> m DOMNode), MonadIO m, DOMDocumentK a, DOMNodeK b) => MethodInfo DOMDocumentImportNodeMethodInfo a signature where - overloadedMethod _ = dOMDocumentImportNode - --- method DOMDocument::query_command_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentQueryCommandEnabledMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentQueryCommandEnabledMethodInfo a signature where - overloadedMethod _ = dOMDocumentQueryCommandEnabled - --- method DOMDocument::query_command_indeterm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentQueryCommandIndetermMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentQueryCommandIndetermMethodInfo a signature where - overloadedMethod _ = dOMDocumentQueryCommandIndeterm - --- method DOMDocument::query_command_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentQueryCommandStateMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentQueryCommandStateMethodInfo a signature where - overloadedMethod _ = dOMDocumentQueryCommandState - --- method DOMDocument::query_command_supported --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentQueryCommandSupportedMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentQueryCommandSupportedMethodInfo a signature where - overloadedMethod _ = dOMDocumentQueryCommandSupported - --- method DOMDocument::query_command_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentQueryCommandValueMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentQueryCommandValueMethodInfo a signature where - overloadedMethod _ = dOMDocumentQueryCommandValue - --- method DOMDocument::query_selector --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentQuerySelectorMethodInfo -instance (signature ~ (T.Text -> m DOMElement), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentQuerySelectorMethodInfo a signature where - overloadedMethod _ = dOMDocumentQuerySelector - --- method DOMDocument::query_selector_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMDocumentQuerySelectorAllMethodInfo -instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentQuerySelectorAllMethodInfo a signature where - overloadedMethod _ = dOMDocumentQuerySelectorAll - --- method DOMDocument::set_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMDocumentSetBodyMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMDocumentK a, DOMHTMLElementK b) => MethodInfo DOMDocumentSetBodyMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetBody - --- method DOMDocument::set_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMDocumentSetCharset _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - webkit_dom_document_set_charset _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DOMDocumentSetCharsetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentSetCharsetMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetCharset - --- method DOMDocument::set_cookie --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMDocumentSetCookieMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentSetCookieMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetCookie - --- method DOMDocument::set_document_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMDocumentSetDocumentUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentSetDocumentUriMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetDocumentUri - --- method DOMDocument::set_selected_stylesheet_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMDocumentSetSelectedStylesheetSetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentSetSelectedStylesheetSetMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetSelectedStylesheetSet - --- method DOMDocument::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMDocumentSetTitle _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - webkit_dom_document_set_title _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DOMDocumentSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentSetTitleMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetTitle - --- method DOMDocument::set_xml_standalone --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMDocumentSetXmlStandaloneMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentSetXmlStandaloneMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetXmlStandalone - --- method DOMDocument::set_xml_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMDocumentSetXmlVersionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMDocumentK a) => MethodInfo DOMDocumentSetXmlVersionMethodInfo a signature where - overloadedMethod _ = dOMDocumentSetXmlVersion - - diff --git a/GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot +++ /dev/null @@ -1,137 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMDocument where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMDocumentChildElementCountPropertyInfo -data DOMDocumentChildrenPropertyInfo -data DOMDocumentCompatModePropertyInfo -data DOMDocumentContentTypePropertyInfo -data DOMDocumentCookiePropertyInfo -data DOMDocumentCurrentScriptPropertyInfo -data DOMDocumentDefaultCharsetPropertyInfo -data DOMDocumentDefaultViewPropertyInfo -data DOMDocumentDoctypePropertyInfo -data DOMDocumentDocumentElementPropertyInfo -data DOMDocumentDocumentUriPropertyInfo -data DOMDocumentDomainPropertyInfo -data DOMDocumentFirstElementChildPropertyInfo -data DOMDocumentFormsPropertyInfo -data DOMDocumentHeadPropertyInfo -data DOMDocumentHiddenPropertyInfo -data DOMDocumentImagesPropertyInfo -data DOMDocumentImplementationPropertyInfo -data DOMDocumentInputEncodingPropertyInfo -data DOMDocumentLastElementChildPropertyInfo -data DOMDocumentLastModifiedPropertyInfo -data DOMDocumentLinksPropertyInfo -data DOMDocumentOriginPropertyInfo -data DOMDocumentPointerLockElementPropertyInfo -data DOMDocumentPreferredStylesheetSetPropertyInfo -data DOMDocumentReadyStatePropertyInfo -data DOMDocumentReferrerPropertyInfo -data DOMDocumentScrollingElementPropertyInfo -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 -data DOMDocumentAdoptNodeMethodInfo -data DOMDocumentCreateAttributeMethodInfo -data DOMDocumentCreateAttributeNsMethodInfo -data DOMDocumentCreateCdataSectionMethodInfo -data DOMDocumentCreateCommentMethodInfo -data DOMDocumentCreateCssStyleDeclarationMethodInfo -data DOMDocumentCreateDocumentFragmentMethodInfo -data DOMDocumentCreateElementMethodInfo -data DOMDocumentCreateElementNsMethodInfo -data DOMDocumentCreateEntityReferenceMethodInfo -data DOMDocumentCreateEventMethodInfo -data DOMDocumentCreateExpressionMethodInfo -data DOMDocumentCreateNodeIteratorMethodInfo -data DOMDocumentCreateNsResolverMethodInfo -data DOMDocumentCreateProcessingInstructionMethodInfo -data DOMDocumentCreateRangeMethodInfo -data DOMDocumentCreateTextNodeMethodInfo -data DOMDocumentCreateTreeWalkerMethodInfo -data DOMDocumentElementFromPointMethodInfo -data DOMDocumentEvaluateMethodInfo -data DOMDocumentExecCommandMethodInfo -data DOMDocumentGetActiveElementMethodInfo -data DOMDocumentGetAnchorsMethodInfo -data DOMDocumentGetAppletsMethodInfo -data DOMDocumentGetBodyMethodInfo -data DOMDocumentGetCharacterSetMethodInfo -data DOMDocumentGetCharsetMethodInfo -data DOMDocumentGetCookieMethodInfo -data DOMDocumentGetDefaultCharsetMethodInfo -data DOMDocumentGetDefaultViewMethodInfo -data DOMDocumentGetDoctypeMethodInfo -data DOMDocumentGetDocumentElementMethodInfo -data DOMDocumentGetDocumentUriMethodInfo -data DOMDocumentGetDomainMethodInfo -data DOMDocumentGetElementByIdMethodInfo -data DOMDocumentGetElementsByClassNameMethodInfo -data DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo -data DOMDocumentGetElementsByNameMethodInfo -data DOMDocumentGetElementsByTagNameMethodInfo -data DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo -data DOMDocumentGetElementsByTagNameNsMethodInfo -data DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo -data DOMDocumentGetFormsMethodInfo -data DOMDocumentGetHeadMethodInfo -data DOMDocumentGetImagesMethodInfo -data DOMDocumentGetImplementationMethodInfo -data DOMDocumentGetInputEncodingMethodInfo -data DOMDocumentGetLastModifiedMethodInfo -data DOMDocumentGetLinksMethodInfo -data DOMDocumentGetOverrideStyleMethodInfo -data DOMDocumentGetPreferredStylesheetSetMethodInfo -data DOMDocumentGetReadyStateMethodInfo -data DOMDocumentGetReferrerMethodInfo -data DOMDocumentGetSelectedStylesheetSetMethodInfo -data DOMDocumentGetStyleSheetsMethodInfo -data DOMDocumentGetTitleMethodInfo -data DOMDocumentGetUrlMethodInfo -data DOMDocumentGetXmlEncodingMethodInfo -data DOMDocumentGetXmlStandaloneMethodInfo -data DOMDocumentGetXmlVersionMethodInfo -data DOMDocumentHasFocusMethodInfo -data DOMDocumentImportNodeMethodInfo -data DOMDocumentQueryCommandEnabledMethodInfo -data DOMDocumentQueryCommandIndetermMethodInfo -data DOMDocumentQueryCommandStateMethodInfo -data DOMDocumentQueryCommandSupportedMethodInfo -data DOMDocumentQueryCommandValueMethodInfo -data DOMDocumentQuerySelectorMethodInfo -data DOMDocumentQuerySelectorAllMethodInfo -data DOMDocumentSetBodyMethodInfo -data DOMDocumentSetCharsetMethodInfo -data DOMDocumentSetCookieMethodInfo -data DOMDocumentSetDocumentUriMethodInfo -data DOMDocumentSetSelectedStylesheetSetMethodInfo -data DOMDocumentSetTitleMethodInfo -data DOMDocumentSetXmlStandaloneMethodInfo -data DOMDocumentSetXmlVersionMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs b/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs +++ /dev/null @@ -1,248 +0,0 @@ - - -{- | -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 , - - - -- * Properties --- ** ChildElementCount - DOMDocumentFragmentChildElementCountPropertyInfo, - dOMDocumentFragmentChildElementCount , - getDOMDocumentFragmentChildElementCount , - - --- ** Children - DOMDocumentFragmentChildrenPropertyInfo , - dOMDocumentFragmentChildren , - getDOMDocumentFragmentChildren , - - --- ** FirstElementChild - DOMDocumentFragmentFirstElementChildPropertyInfo, - dOMDocumentFragmentFirstElementChild , - getDOMDocumentFragmentFirstElementChild , - - --- ** LastElementChild - DOMDocumentFragmentLastElementChildPropertyInfo, - dOMDocumentFragmentLastElementChild , - getDOMDocumentFragmentLastElementChild , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMDocumentFragmentMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMDocumentFragmentMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMDocumentFragmentMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMDocumentFragmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMDocumentFragmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMDocumentFragmentMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMDocumentFragmentMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMDocumentFragmentMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMDocumentFragmentMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMDocumentFragmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMDocumentFragmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMDocumentFragmentMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMDocumentFragmentMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMDocumentFragmentMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMDocumentFragmentMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMDocumentFragmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMDocumentFragmentMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMDocumentFragmentMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMDocumentFragmentMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMDocumentFragmentMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMDocumentFragmentMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMDocumentFragmentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMDocumentFragmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMDocumentFragmentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMDocumentFragmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMDocumentFragmentMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMDocumentFragmentMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMDocumentFragmentMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMDocumentFragmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMDocumentFragmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMDocumentFragmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMDocumentFragmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMDocumentFragmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMDocumentFragmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMDocumentFragmentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMDocumentFragmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMDocumentFragmentMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMDocumentFragmentMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMDocumentFragmentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMDocumentFragmentMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMDocumentFragmentMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMDocumentFragmentMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMDocumentFragmentMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMDocumentFragmentMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMDocumentFragmentMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMDocumentFragmentMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMDocumentFragmentMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMDocumentFragmentMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMDocumentFragmentMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMDocumentFragmentMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMDocumentFragmentMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMDocumentFragmentMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMDocumentFragmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMDocumentFragmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMDocumentFragmentMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMDocumentFragmentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMDocumentFragmentMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMDocumentFragmentMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMDocumentFragmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMDocumentFragmentMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMDocumentFragmentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMDocumentFragmentMethod t DOMDocumentFragment, MethodInfo info DOMDocumentFragment p) => IsLabelProxy t (DOMDocumentFragment -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMDocumentFragmentMethod t DOMDocumentFragment, MethodInfo info DOMDocumentFragment p) => IsLabel t (DOMDocumentFragment -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "child-element-count" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentFragmentChildElementCount :: (MonadIO m, DOMDocumentFragmentK o) => o -> m CULong -getDOMDocumentFragmentChildElementCount obj = liftIO $ getObjectPropertyULong obj "child-element-count" - -data DOMDocumentFragmentChildElementCountPropertyInfo -instance AttrInfo DOMDocumentFragmentChildElementCountPropertyInfo where - type AttrAllowedOps DOMDocumentFragmentChildElementCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMDocumentFragmentChildElementCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentFragmentChildElementCountPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentChildElementCountPropertyInfo = CULong - type AttrLabel DOMDocumentFragmentChildElementCountPropertyInfo = "child-element-count" - attrGet _ = getDOMDocumentFragmentChildElementCount - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "children" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentFragmentChildren :: (MonadIO m, DOMDocumentFragmentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMDocumentFragmentChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection - -data DOMDocumentFragmentChildrenPropertyInfo -instance AttrInfo DOMDocumentFragmentChildrenPropertyInfo where - type AttrAllowedOps DOMDocumentFragmentChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentFragmentChildrenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentFragmentChildrenPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentChildrenPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMDocumentFragmentChildrenPropertyInfo = "children" - attrGet _ = getDOMDocumentFragmentChildren - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "first-element-child" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentFragmentFirstElementChild :: (MonadIO m, DOMDocumentFragmentK o) => o -> m (Maybe DOMElement) -getDOMDocumentFragmentFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement - -data DOMDocumentFragmentFirstElementChildPropertyInfo -instance AttrInfo DOMDocumentFragmentFirstElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentFragmentFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentFragmentFirstElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentFragmentFirstElementChildPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentFirstElementChildPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentFragmentFirstElementChildPropertyInfo = "first-element-child" - attrGet _ = getDOMDocumentFragmentFirstElementChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "last-element-child" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentFragmentLastElementChild :: (MonadIO m, DOMDocumentFragmentK o) => o -> m (Maybe DOMElement) -getDOMDocumentFragmentLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement - -data DOMDocumentFragmentLastElementChildPropertyInfo -instance AttrInfo DOMDocumentFragmentLastElementChildPropertyInfo where - type AttrAllowedOps DOMDocumentFragmentLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentFragmentLastElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentFragmentLastElementChildPropertyInfo = DOMDocumentFragmentK - type AttrGetType DOMDocumentFragmentLastElementChildPropertyInfo = (Maybe DOMElement) - type AttrLabel DOMDocumentFragmentLastElementChildPropertyInfo = "last-element-child" - attrGet _ = getDOMDocumentFragmentLastElementChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMDocumentFragment = DOMDocumentFragmentAttributeList -type DOMDocumentFragmentAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMDocumentFragmentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentFragmentChildrenPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFragmentFirstElementChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentFragmentLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) - -dOMDocumentFragmentChildElementCount :: AttrLabelProxy "childElementCount" -dOMDocumentFragmentChildElementCount = AttrLabelProxy - -dOMDocumentFragmentChildren :: AttrLabelProxy "children" -dOMDocumentFragmentChildren = AttrLabelProxy - -dOMDocumentFragmentFirstElementChild :: AttrLabelProxy "firstElementChild" -dOMDocumentFragmentFirstElementChild = AttrLabelProxy - -dOMDocumentFragmentLastElementChild :: AttrLabelProxy "lastElementChild" -dOMDocumentFragmentLastElementChild = AttrLabelProxy - -type instance SignalList DOMDocumentFragment = DOMDocumentFragmentSignalList -type DOMDocumentFragmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMDocumentFragment where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMDocumentFragmentChildElementCountPropertyInfo -data DOMDocumentFragmentChildrenPropertyInfo -data DOMDocumentFragmentFirstElementChildPropertyInfo -data DOMDocumentFragmentLastElementChildPropertyInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs b/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs +++ /dev/null @@ -1,523 +0,0 @@ - - -{- | -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 - DOMDocumentTypeGetEntitiesMethodInfo , - dOMDocumentTypeGetEntities , - - --- ** dOMDocumentTypeGetInternalSubset - DOMDocumentTypeGetInternalSubsetMethodInfo, - dOMDocumentTypeGetInternalSubset , - - --- ** dOMDocumentTypeGetName - DOMDocumentTypeGetNameMethodInfo , - dOMDocumentTypeGetName , - - --- ** dOMDocumentTypeGetNotations - DOMDocumentTypeGetNotationsMethodInfo , - dOMDocumentTypeGetNotations , - - --- ** dOMDocumentTypeGetPublicId - DOMDocumentTypeGetPublicIdMethodInfo , - dOMDocumentTypeGetPublicId , - - --- ** dOMDocumentTypeGetSystemId - DOMDocumentTypeGetSystemIdMethodInfo , - dOMDocumentTypeGetSystemId , - - - - - -- * Properties --- ** Entities - DOMDocumentTypeEntitiesPropertyInfo , - dOMDocumentTypeEntities , - getDOMDocumentTypeEntities , - - --- ** InternalSubset - DOMDocumentTypeInternalSubsetPropertyInfo, - dOMDocumentTypeInternalSubset , - getDOMDocumentTypeInternalSubset , - - --- ** Name - DOMDocumentTypeNamePropertyInfo , - dOMDocumentTypeName , - getDOMDocumentTypeName , - - --- ** Notations - DOMDocumentTypeNotationsPropertyInfo , - dOMDocumentTypeNotations , - getDOMDocumentTypeNotations , - - --- ** PublicId - DOMDocumentTypePublicIdPropertyInfo , - dOMDocumentTypePublicId , - getDOMDocumentTypePublicId , - - --- ** SystemId - DOMDocumentTypeSystemIdPropertyInfo , - dOMDocumentTypeSystemId , - getDOMDocumentTypeSystemId , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMDocumentTypeMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMDocumentTypeMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMDocumentTypeMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMDocumentTypeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMDocumentTypeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMDocumentTypeMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMDocumentTypeMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMDocumentTypeMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMDocumentTypeMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMDocumentTypeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMDocumentTypeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMDocumentTypeMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMDocumentTypeMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMDocumentTypeMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMDocumentTypeMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMDocumentTypeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMDocumentTypeMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMDocumentTypeMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMDocumentTypeMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMDocumentTypeMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMDocumentTypeMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMDocumentTypeMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMDocumentTypeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMDocumentTypeMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMDocumentTypeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMDocumentTypeMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMDocumentTypeMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMDocumentTypeMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMDocumentTypeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMDocumentTypeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMDocumentTypeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMDocumentTypeMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMDocumentTypeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMDocumentTypeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMDocumentTypeMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMDocumentTypeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMDocumentTypeMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMDocumentTypeMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMDocumentTypeMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMDocumentTypeMethod "getEntities" o = DOMDocumentTypeGetEntitiesMethodInfo - ResolveDOMDocumentTypeMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMDocumentTypeMethod "getInternalSubset" o = DOMDocumentTypeGetInternalSubsetMethodInfo - ResolveDOMDocumentTypeMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMDocumentTypeMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMDocumentTypeMethod "getName" o = DOMDocumentTypeGetNameMethodInfo - ResolveDOMDocumentTypeMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMDocumentTypeMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMDocumentTypeMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMDocumentTypeMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMDocumentTypeMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMDocumentTypeMethod "getNotations" o = DOMDocumentTypeGetNotationsMethodInfo - ResolveDOMDocumentTypeMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMDocumentTypeMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMDocumentTypeMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMDocumentTypeMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMDocumentTypeMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMDocumentTypeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMDocumentTypeMethod "getPublicId" o = DOMDocumentTypeGetPublicIdMethodInfo - ResolveDOMDocumentTypeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMDocumentTypeMethod "getSystemId" o = DOMDocumentTypeGetSystemIdMethodInfo - ResolveDOMDocumentTypeMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMDocumentTypeMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMDocumentTypeMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMDocumentTypeMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMDocumentTypeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMDocumentTypeMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMDocumentTypeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMDocumentTypeMethod t DOMDocumentType, MethodInfo info DOMDocumentType p) => IsLabelProxy t (DOMDocumentType -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMDocumentTypeMethod t DOMDocumentType, MethodInfo info DOMDocumentType p) => IsLabel t (DOMDocumentType -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "entities" - -- Type: TInterface "WebKit2WebExtension" "DOMNamedNodeMap" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe DOMNamedNodeMap) -getDOMDocumentTypeEntities obj = liftIO $ getObjectPropertyObject obj "entities" DOMNamedNodeMap - -data DOMDocumentTypeEntitiesPropertyInfo -instance AttrInfo DOMDocumentTypeEntitiesPropertyInfo where - type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = (Maybe DOMNamedNodeMap) - type AttrLabel DOMDocumentTypeEntitiesPropertyInfo = "entities" - attrGet _ = getDOMDocumentTypeEntities - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "internal-subset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) -getDOMDocumentTypeInternalSubset obj = liftIO $ getObjectPropertyString obj "internal-subset" - -data DOMDocumentTypeInternalSubsetPropertyInfo -instance AttrInfo DOMDocumentTypeInternalSubsetPropertyInfo where - type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentTypeInternalSubsetPropertyInfo = "internal-subset" - attrGet _ = getDOMDocumentTypeInternalSubset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) -getDOMDocumentTypeName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMDocumentTypeNamePropertyInfo -instance AttrInfo DOMDocumentTypeNamePropertyInfo where - type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentTypeNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeNamePropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentTypeNamePropertyInfo = "name" - attrGet _ = getDOMDocumentTypeName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "notations" - -- Type: TInterface "WebKit2WebExtension" "DOMNamedNodeMap" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe DOMNamedNodeMap) -getDOMDocumentTypeNotations obj = liftIO $ getObjectPropertyObject obj "notations" DOMNamedNodeMap - -data DOMDocumentTypeNotationsPropertyInfo -instance AttrInfo DOMDocumentTypeNotationsPropertyInfo where - type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentTypeNotationsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeNotationsPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeNotationsPropertyInfo = (Maybe DOMNamedNodeMap) - type AttrLabel DOMDocumentTypeNotationsPropertyInfo = "notations" - attrGet _ = getDOMDocumentTypeNotations - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "public-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) -getDOMDocumentTypePublicId obj = liftIO $ getObjectPropertyString obj "public-id" - -data DOMDocumentTypePublicIdPropertyInfo -instance AttrInfo DOMDocumentTypePublicIdPropertyInfo where - type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentTypePublicIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypePublicIdPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypePublicIdPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentTypePublicIdPropertyInfo = "public-id" - attrGet _ = getDOMDocumentTypePublicId - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "system-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m (Maybe T.Text) -getDOMDocumentTypeSystemId obj = liftIO $ getObjectPropertyString obj "system-id" - -data DOMDocumentTypeSystemIdPropertyInfo -instance AttrInfo DOMDocumentTypeSystemIdPropertyInfo where - type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = DOMDocumentTypeK - type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = (Maybe T.Text) - type AttrLabel DOMDocumentTypeSystemIdPropertyInfo = "system-id" - attrGet _ = getDOMDocumentTypeSystemId - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMDocumentType = DOMDocumentTypeAttributeList -type DOMDocumentTypeAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("entities", DOMDocumentTypeEntitiesPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("internalSubset", DOMDocumentTypeInternalSubsetPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMDocumentTypeNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("notations", DOMDocumentTypeNotationsPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("publicId", DOMDocumentTypePublicIdPropertyInfo), '("systemId", DOMDocumentTypeSystemIdPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) - -dOMDocumentTypeEntities :: AttrLabelProxy "entities" -dOMDocumentTypeEntities = AttrLabelProxy - -dOMDocumentTypeInternalSubset :: AttrLabelProxy "internalSubset" -dOMDocumentTypeInternalSubset = AttrLabelProxy - -dOMDocumentTypeName :: AttrLabelProxy "name" -dOMDocumentTypeName = AttrLabelProxy - -dOMDocumentTypeNotations :: AttrLabelProxy "notations" -dOMDocumentTypeNotations = AttrLabelProxy - -dOMDocumentTypePublicId :: AttrLabelProxy "publicId" -dOMDocumentTypePublicId = AttrLabelProxy - -dOMDocumentTypeSystemId :: AttrLabelProxy "systemId" -dOMDocumentTypeSystemId = AttrLabelProxy - -type instance SignalList DOMDocumentType = DOMDocumentTypeSignalList -type DOMDocumentTypeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMDocumentType::get_entities --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentTypeGetEntitiesMethodInfo -instance (signature ~ (m DOMNamedNodeMap), MonadIO m, DOMDocumentTypeK a) => MethodInfo DOMDocumentTypeGetEntitiesMethodInfo a signature where - overloadedMethod _ = dOMDocumentTypeGetEntities - --- method DOMDocumentType::get_internal_subset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentTypeGetInternalSubsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentTypeK a) => MethodInfo DOMDocumentTypeGetInternalSubsetMethodInfo a signature where - overloadedMethod _ = dOMDocumentTypeGetInternalSubset - --- method DOMDocumentType::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentTypeGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentTypeK a) => MethodInfo DOMDocumentTypeGetNameMethodInfo a signature where - overloadedMethod _ = dOMDocumentTypeGetName - --- method DOMDocumentType::get_notations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentTypeGetNotationsMethodInfo -instance (signature ~ (m DOMNamedNodeMap), MonadIO m, DOMDocumentTypeK a) => MethodInfo DOMDocumentTypeGetNotationsMethodInfo a signature where - overloadedMethod _ = dOMDocumentTypeGetNotations - --- method DOMDocumentType::get_public_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentTypeGetPublicIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentTypeK a) => MethodInfo DOMDocumentTypeGetPublicIdMethodInfo a signature where - overloadedMethod _ = dOMDocumentTypeGetPublicId - --- method DOMDocumentType::get_system_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMDocumentTypeGetSystemIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMDocumentTypeK a) => MethodInfo DOMDocumentTypeGetSystemIdMethodInfo a signature where - overloadedMethod _ = dOMDocumentTypeGetSystemId - - diff --git a/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot b/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMDocumentType where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMDocumentTypeGetEntitiesMethodInfo -data DOMDocumentTypeGetInternalSubsetMethodInfo -data DOMDocumentTypeGetNameMethodInfo -data DOMDocumentTypeGetNotationsMethodInfo -data DOMDocumentTypeGetPublicIdMethodInfo -data DOMDocumentTypeGetSystemIdMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMElement.hs b/GI/WebKit2WebExtension/Objects/DOMElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMElement.hs +++ /dev/null @@ -1,3230 +0,0 @@ - - -{- | -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 - DOMElementBlurMethodInfo , - dOMElementBlur , - - --- ** dOMElementFocus - DOMElementFocusMethodInfo , - dOMElementFocus , - - --- ** dOMElementGetAttribute - DOMElementGetAttributeMethodInfo , - dOMElementGetAttribute , - - --- ** dOMElementGetAttributeNode - DOMElementGetAttributeNodeMethodInfo , - dOMElementGetAttributeNode , - - --- ** dOMElementGetAttributeNodeNs - DOMElementGetAttributeNodeNsMethodInfo , - dOMElementGetAttributeNodeNs , - - --- ** dOMElementGetAttributeNs - DOMElementGetAttributeNsMethodInfo , - dOMElementGetAttributeNs , - - --- ** dOMElementGetAttributes - DOMElementGetAttributesMethodInfo , - dOMElementGetAttributes , - - --- ** dOMElementGetChildElementCount - DOMElementGetChildElementCountMethodInfo, - dOMElementGetChildElementCount , - - --- ** dOMElementGetChildren - DOMElementGetChildrenMethodInfo , - dOMElementGetChildren , - - --- ** dOMElementGetClassName - DOMElementGetClassNameMethodInfo , - dOMElementGetClassName , - - --- ** dOMElementGetClientHeight - DOMElementGetClientHeightMethodInfo , - dOMElementGetClientHeight , - - --- ** dOMElementGetClientLeft - DOMElementGetClientLeftMethodInfo , - dOMElementGetClientLeft , - - --- ** dOMElementGetClientTop - DOMElementGetClientTopMethodInfo , - dOMElementGetClientTop , - - --- ** dOMElementGetClientWidth - DOMElementGetClientWidthMethodInfo , - dOMElementGetClientWidth , - - --- ** dOMElementGetElementsByClassName - DOMElementGetElementsByClassNameMethodInfo, - dOMElementGetElementsByClassName , - - --- ** dOMElementGetElementsByClassNameAsHtmlCollection - DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo, - dOMElementGetElementsByClassNameAsHtmlCollection, - - --- ** dOMElementGetElementsByTagName - DOMElementGetElementsByTagNameMethodInfo, - dOMElementGetElementsByTagName , - - --- ** dOMElementGetElementsByTagNameAsHtmlCollection - DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo, - dOMElementGetElementsByTagNameAsHtmlCollection, - - --- ** dOMElementGetElementsByTagNameNs - DOMElementGetElementsByTagNameNsMethodInfo, - dOMElementGetElementsByTagNameNs , - - --- ** dOMElementGetElementsByTagNameNsAsHtmlCollection - DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo, - dOMElementGetElementsByTagNameNsAsHtmlCollection, - - --- ** dOMElementGetFirstElementChild - DOMElementGetFirstElementChildMethodInfo, - dOMElementGetFirstElementChild , - - --- ** dOMElementGetId - DOMElementGetIdMethodInfo , - dOMElementGetId , - - --- ** dOMElementGetInnerHtml - DOMElementGetInnerHtmlMethodInfo , - dOMElementGetInnerHtml , - - --- ** dOMElementGetLastElementChild - DOMElementGetLastElementChildMethodInfo , - dOMElementGetLastElementChild , - - --- ** dOMElementGetNextElementSibling - DOMElementGetNextElementSiblingMethodInfo, - dOMElementGetNextElementSibling , - - --- ** dOMElementGetOffsetHeight - DOMElementGetOffsetHeightMethodInfo , - dOMElementGetOffsetHeight , - - --- ** dOMElementGetOffsetLeft - DOMElementGetOffsetLeftMethodInfo , - dOMElementGetOffsetLeft , - - --- ** dOMElementGetOffsetParent - DOMElementGetOffsetParentMethodInfo , - dOMElementGetOffsetParent , - - --- ** dOMElementGetOffsetTop - DOMElementGetOffsetTopMethodInfo , - dOMElementGetOffsetTop , - - --- ** dOMElementGetOffsetWidth - DOMElementGetOffsetWidthMethodInfo , - dOMElementGetOffsetWidth , - - --- ** dOMElementGetOuterHtml - DOMElementGetOuterHtmlMethodInfo , - dOMElementGetOuterHtml , - - --- ** dOMElementGetPreviousElementSibling - DOMElementGetPreviousElementSiblingMethodInfo, - dOMElementGetPreviousElementSibling , - - --- ** dOMElementGetScrollHeight - DOMElementGetScrollHeightMethodInfo , - dOMElementGetScrollHeight , - - --- ** dOMElementGetScrollLeft - DOMElementGetScrollLeftMethodInfo , - dOMElementGetScrollLeft , - - --- ** dOMElementGetScrollTop - DOMElementGetScrollTopMethodInfo , - dOMElementGetScrollTop , - - --- ** dOMElementGetScrollWidth - DOMElementGetScrollWidthMethodInfo , - dOMElementGetScrollWidth , - - --- ** dOMElementGetStyle - DOMElementGetStyleMethodInfo , - dOMElementGetStyle , - - --- ** dOMElementGetTagName - DOMElementGetTagNameMethodInfo , - dOMElementGetTagName , - - --- ** dOMElementHasAttribute - DOMElementHasAttributeMethodInfo , - dOMElementHasAttribute , - - --- ** dOMElementHasAttributeNs - DOMElementHasAttributeNsMethodInfo , - dOMElementHasAttributeNs , - - --- ** dOMElementHasAttributes - DOMElementHasAttributesMethodInfo , - dOMElementHasAttributes , - - --- ** dOMElementQuerySelector - DOMElementQuerySelectorMethodInfo , - dOMElementQuerySelector , - - --- ** dOMElementQuerySelectorAll - DOMElementQuerySelectorAllMethodInfo , - dOMElementQuerySelectorAll , - - --- ** dOMElementRemoveAttribute - DOMElementRemoveAttributeMethodInfo , - dOMElementRemoveAttribute , - - --- ** dOMElementRemoveAttributeNode - DOMElementRemoveAttributeNodeMethodInfo , - dOMElementRemoveAttributeNode , - - --- ** dOMElementRemoveAttributeNs - DOMElementRemoveAttributeNsMethodInfo , - dOMElementRemoveAttributeNs , - - --- ** dOMElementScrollByLines - DOMElementScrollByLinesMethodInfo , - dOMElementScrollByLines , - - --- ** dOMElementScrollByPages - DOMElementScrollByPagesMethodInfo , - dOMElementScrollByPages , - - --- ** dOMElementScrollIntoView - DOMElementScrollIntoViewMethodInfo , - dOMElementScrollIntoView , - - --- ** dOMElementScrollIntoViewIfNeeded - DOMElementScrollIntoViewIfNeededMethodInfo, - dOMElementScrollIntoViewIfNeeded , - - --- ** dOMElementSetAttribute - DOMElementSetAttributeMethodInfo , - dOMElementSetAttribute , - - --- ** dOMElementSetAttributeNode - DOMElementSetAttributeNodeMethodInfo , - dOMElementSetAttributeNode , - - --- ** dOMElementSetAttributeNodeNs - DOMElementSetAttributeNodeNsMethodInfo , - dOMElementSetAttributeNodeNs , - - --- ** dOMElementSetAttributeNs - DOMElementSetAttributeNsMethodInfo , - dOMElementSetAttributeNs , - - --- ** dOMElementSetClassName - DOMElementSetClassNameMethodInfo , - dOMElementSetClassName , - - --- ** dOMElementSetId - DOMElementSetIdMethodInfo , - dOMElementSetId , - - --- ** dOMElementSetInnerHtml - DOMElementSetInnerHtmlMethodInfo , - dOMElementSetInnerHtml , - - --- ** dOMElementSetOuterHtml - DOMElementSetOuterHtmlMethodInfo , - dOMElementSetOuterHtml , - - --- ** dOMElementSetScrollLeft - DOMElementSetScrollLeftMethodInfo , - dOMElementSetScrollLeft , - - --- ** dOMElementSetScrollTop - DOMElementSetScrollTopMethodInfo , - dOMElementSetScrollTop , - - - - - -- * Properties --- ** Attributes - DOMElementAttributesPropertyInfo , - dOMElementAttributes , - getDOMElementAttributes , - - --- ** ChildElementCount - DOMElementChildElementCountPropertyInfo , - dOMElementChildElementCount , - getDOMElementChildElementCount , - - --- ** Children - DOMElementChildrenPropertyInfo , - dOMElementChildren , - getDOMElementChildren , - - --- ** ClassName - DOMElementClassNamePropertyInfo , - constructDOMElementClassName , - dOMElementClassName , - getDOMElementClassName , - setDOMElementClassName , - - --- ** ClientHeight - DOMElementClientHeightPropertyInfo , - dOMElementClientHeight , - getDOMElementClientHeight , - - --- ** ClientLeft - DOMElementClientLeftPropertyInfo , - dOMElementClientLeft , - getDOMElementClientLeft , - - --- ** ClientTop - DOMElementClientTopPropertyInfo , - dOMElementClientTop , - getDOMElementClientTop , - - --- ** ClientWidth - DOMElementClientWidthPropertyInfo , - dOMElementClientWidth , - getDOMElementClientWidth , - - --- ** FirstElementChild - DOMElementFirstElementChildPropertyInfo , - dOMElementFirstElementChild , - getDOMElementFirstElementChild , - - --- ** Id - DOMElementIdPropertyInfo , - constructDOMElementId , - dOMElementId , - getDOMElementId , - setDOMElementId , - - --- ** InnerHtml - DOMElementInnerHtmlPropertyInfo , - clearDOMElementInnerHtml , - constructDOMElementInnerHtml , - dOMElementInnerHtml , - getDOMElementInnerHtml , - setDOMElementInnerHtml , - - --- ** LastElementChild - DOMElementLastElementChildPropertyInfo , - dOMElementLastElementChild , - getDOMElementLastElementChild , - - --- ** NextElementSibling - DOMElementNextElementSiblingPropertyInfo, - dOMElementNextElementSibling , - getDOMElementNextElementSibling , - - --- ** OffsetHeight - DOMElementOffsetHeightPropertyInfo , - dOMElementOffsetHeight , - getDOMElementOffsetHeight , - - --- ** OffsetLeft - DOMElementOffsetLeftPropertyInfo , - dOMElementOffsetLeft , - getDOMElementOffsetLeft , - - --- ** OffsetParent - DOMElementOffsetParentPropertyInfo , - dOMElementOffsetParent , - getDOMElementOffsetParent , - - --- ** OffsetTop - DOMElementOffsetTopPropertyInfo , - dOMElementOffsetTop , - getDOMElementOffsetTop , - - --- ** OffsetWidth - DOMElementOffsetWidthPropertyInfo , - dOMElementOffsetWidth , - getDOMElementOffsetWidth , - - --- ** OuterHtml - DOMElementOuterHtmlPropertyInfo , - clearDOMElementOuterHtml , - constructDOMElementOuterHtml , - dOMElementOuterHtml , - getDOMElementOuterHtml , - setDOMElementOuterHtml , - - --- ** PreviousElementSibling - DOMElementPreviousElementSiblingPropertyInfo, - dOMElementPreviousElementSibling , - getDOMElementPreviousElementSibling , - - --- ** ScrollHeight - DOMElementScrollHeightPropertyInfo , - dOMElementScrollHeight , - getDOMElementScrollHeight , - - --- ** ScrollLeft - DOMElementScrollLeftPropertyInfo , - constructDOMElementScrollLeft , - dOMElementScrollLeft , - getDOMElementScrollLeft , - setDOMElementScrollLeft , - - --- ** ScrollTop - DOMElementScrollTopPropertyInfo , - constructDOMElementScrollTop , - dOMElementScrollTop , - getDOMElementScrollTop , - setDOMElementScrollTop , - - --- ** ScrollWidth - DOMElementScrollWidthPropertyInfo , - dOMElementScrollWidth , - getDOMElementScrollWidth , - - --- ** Style - DOMElementStylePropertyInfo , - dOMElementStyle , - getDOMElementStyle , - - --- ** TagName - DOMElementTagNamePropertyInfo , - dOMElementTagName , - getDOMElementTagName , - - --- ** WebkitRegionOverset - DOMElementWebkitRegionOversetPropertyInfo, - dOMElementWebkitRegionOverset , - getDOMElementWebkitRegionOverset , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMElementMethod "getChildren" o = DOMElementGetChildrenMethodInfo - ResolveDOMElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMElementMethod "getInnerHtml" o = DOMElementGetInnerHtmlMethodInfo - ResolveDOMElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMElementMethod "getOuterHtml" o = DOMElementGetOuterHtmlMethodInfo - ResolveDOMElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMElementMethod "setInnerHtml" o = DOMElementSetInnerHtmlMethodInfo - ResolveDOMElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMElementMethod "setOuterHtml" o = DOMElementSetOuterHtmlMethodInfo - ResolveDOMElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMElementMethod t DOMElement, MethodInfo info DOMElement p) => IsLabelProxy t (DOMElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMElementMethod t DOMElement, MethodInfo info DOMElement p) => IsLabel t (DOMElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "attributes" - -- Type: TInterface "WebKit2WebExtension" "DOMNamedNodeMap" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMElementAttributes :: (MonadIO m, DOMElementK o) => o -> m (Maybe DOMNamedNodeMap) -getDOMElementAttributes obj = liftIO $ getObjectPropertyObject obj "attributes" DOMNamedNodeMap - -data DOMElementAttributesPropertyInfo -instance AttrInfo DOMElementAttributesPropertyInfo where - type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementAttributesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementAttributesPropertyInfo = DOMElementK - type AttrGetType DOMElementAttributesPropertyInfo = (Maybe DOMNamedNodeMap) - type AttrLabel DOMElementAttributesPropertyInfo = "attributes" - attrGet _ = getDOMElementAttributes - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "child-element-count" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementChildElementCount :: (MonadIO m, DOMElementK o) => o -> m CULong -getDOMElementChildElementCount obj = liftIO $ getObjectPropertyULong obj "child-element-count" - -data DOMElementChildElementCountPropertyInfo -instance AttrInfo DOMElementChildElementCountPropertyInfo where - type AttrAllowedOps DOMElementChildElementCountPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementChildElementCountPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementChildElementCountPropertyInfo = DOMElementK - type AttrGetType DOMElementChildElementCountPropertyInfo = CULong - type AttrLabel DOMElementChildElementCountPropertyInfo = "child-element-count" - attrGet _ = getDOMElementChildElementCount - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "children" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMElementChildren :: (MonadIO m, DOMElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection - -data DOMElementChildrenPropertyInfo -instance AttrInfo DOMElementChildrenPropertyInfo where - type AttrAllowedOps DOMElementChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementChildrenPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementChildrenPropertyInfo = DOMElementK - type AttrGetType DOMElementChildrenPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMElementChildrenPropertyInfo = "children" - attrGet _ = getDOMElementChildren - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "class-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMElementClassName :: T.Text -> IO ([Char], GValue) -constructDOMElementClassName val = constructObjectPropertyString "class-name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMElementClassNamePropertyInfo = "class-name" - attrGet _ = getDOMElementClassName - attrSet _ = setDOMElementClassName - attrConstruct _ = constructDOMElementClassName - attrClear _ = undefined - --- VVV Prop "client-height" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "client-height" - attrGet _ = getDOMElementClientHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "client-left" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "client-left" - attrGet _ = getDOMElementClientLeft - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "client-top" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "client-top" - attrGet _ = getDOMElementClientTop - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "client-width" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "client-width" - attrGet _ = getDOMElementClientWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "first-element-child" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementFirstElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementFirstElementChild obj = liftIO $ checkUnexpectedNothing "getDOMElementFirstElementChild" $ getObjectPropertyObject obj "first-element-child" DOMElement - -data DOMElementFirstElementChildPropertyInfo -instance AttrInfo DOMElementFirstElementChildPropertyInfo where - type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementFirstElementChildPropertyInfo = DOMElementK - type AttrGetType DOMElementFirstElementChildPropertyInfo = DOMElement - type AttrLabel DOMElementFirstElementChildPropertyInfo = "first-element-child" - attrGet _ = getDOMElementFirstElementChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMElementId :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) -getDOMElementId obj = liftIO $ getObjectPropertyString obj "id" - -setDOMElementId :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () -setDOMElementId obj val = liftIO $ setObjectPropertyString obj "id" (Just val) - -constructDOMElementId :: T.Text -> IO ([Char], GValue) -constructDOMElementId val = constructObjectPropertyString "id" (Just 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 = (Maybe T.Text) - type AttrLabel DOMElementIdPropertyInfo = "id" - attrGet _ = getDOMElementId - attrSet _ = setDOMElementId - attrConstruct _ = constructDOMElementId - attrClear _ = undefined - --- VVV Prop "inner-html" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMElementInnerHtml :: T.Text -> IO ([Char], GValue) -constructDOMElementInnerHtml val = constructObjectPropertyString "inner-html" (Just val) - -clearDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> m () -clearDOMElementInnerHtml obj = liftIO $ setObjectPropertyString obj "inner-html" (Nothing :: Maybe T.Text) - -data DOMElementInnerHtmlPropertyInfo -instance AttrInfo DOMElementInnerHtmlPropertyInfo where - type AttrAllowedOps DOMElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementInnerHtmlPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMElementInnerHtmlPropertyInfo = DOMElementK - type AttrGetType DOMElementInnerHtmlPropertyInfo = (Maybe T.Text) - type AttrLabel DOMElementInnerHtmlPropertyInfo = "inner-html" - attrGet _ = getDOMElementInnerHtml - attrSet _ = setDOMElementInnerHtml - attrConstruct _ = constructDOMElementInnerHtml - attrClear _ = clearDOMElementInnerHtml - --- VVV Prop "last-element-child" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementLastElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementLastElementChild obj = liftIO $ checkUnexpectedNothing "getDOMElementLastElementChild" $ getObjectPropertyObject obj "last-element-child" DOMElement - -data DOMElementLastElementChildPropertyInfo -instance AttrInfo DOMElementLastElementChildPropertyInfo where - type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementLastElementChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementLastElementChildPropertyInfo = DOMElementK - type AttrGetType DOMElementLastElementChildPropertyInfo = DOMElement - type AttrLabel DOMElementLastElementChildPropertyInfo = "last-element-child" - attrGet _ = getDOMElementLastElementChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "next-element-sibling" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementNextElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementNextElementSibling obj = liftIO $ checkUnexpectedNothing "getDOMElementNextElementSibling" $ getObjectPropertyObject obj "next-element-sibling" DOMElement - -data DOMElementNextElementSiblingPropertyInfo -instance AttrInfo DOMElementNextElementSiblingPropertyInfo where - type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementNextElementSiblingPropertyInfo = DOMElementK - type AttrGetType DOMElementNextElementSiblingPropertyInfo = DOMElement - type AttrLabel DOMElementNextElementSiblingPropertyInfo = "next-element-sibling" - attrGet _ = getDOMElementNextElementSibling - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "offset-height" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "offset-height" - attrGet _ = getDOMElementOffsetHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "offset-left" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "offset-left" - attrGet _ = getDOMElementOffsetLeft - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "offset-parent" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementOffsetParent :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementOffsetParent obj = liftIO $ checkUnexpectedNothing "getDOMElementOffsetParent" $ getObjectPropertyObject obj "offset-parent" DOMElement - -data DOMElementOffsetParentPropertyInfo -instance AttrInfo DOMElementOffsetParentPropertyInfo where - type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementOffsetParentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementOffsetParentPropertyInfo = DOMElementK - type AttrGetType DOMElementOffsetParentPropertyInfo = DOMElement - type AttrLabel DOMElementOffsetParentPropertyInfo = "offset-parent" - attrGet _ = getDOMElementOffsetParent - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "offset-top" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "offset-top" - attrGet _ = getDOMElementOffsetTop - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "offset-width" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "offset-width" - attrGet _ = getDOMElementOffsetWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "outer-html" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMElementOuterHtml :: T.Text -> IO ([Char], GValue) -constructDOMElementOuterHtml val = constructObjectPropertyString "outer-html" (Just val) - -clearDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> m () -clearDOMElementOuterHtml obj = liftIO $ setObjectPropertyString obj "outer-html" (Nothing :: Maybe T.Text) - -data DOMElementOuterHtmlPropertyInfo -instance AttrInfo DOMElementOuterHtmlPropertyInfo where - type AttrAllowedOps DOMElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementOuterHtmlPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMElementOuterHtmlPropertyInfo = DOMElementK - type AttrGetType DOMElementOuterHtmlPropertyInfo = (Maybe T.Text) - type AttrLabel DOMElementOuterHtmlPropertyInfo = "outer-html" - attrGet _ = getDOMElementOuterHtml - attrSet _ = setDOMElementOuterHtml - attrConstruct _ = constructDOMElementOuterHtml - attrClear _ = clearDOMElementOuterHtml - --- VVV Prop "previous-element-sibling" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementPreviousElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement -getDOMElementPreviousElementSibling obj = liftIO $ checkUnexpectedNothing "getDOMElementPreviousElementSibling" $ getObjectPropertyObject obj "previous-element-sibling" DOMElement - -data DOMElementPreviousElementSiblingPropertyInfo -instance AttrInfo DOMElementPreviousElementSiblingPropertyInfo where - type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = DOMElementK - type AttrGetType DOMElementPreviousElementSiblingPropertyInfo = DOMElement - type AttrLabel DOMElementPreviousElementSiblingPropertyInfo = "previous-element-sibling" - attrGet _ = getDOMElementPreviousElementSibling - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "scroll-height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementScrollHeight :: (MonadIO m, DOMElementK o) => o -> m CLong -getDOMElementScrollHeight obj = liftIO $ getObjectPropertyLong obj "scroll-height" - -data DOMElementScrollHeightPropertyInfo -instance AttrInfo DOMElementScrollHeightPropertyInfo where - type AttrAllowedOps DOMElementScrollHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementScrollHeightPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollHeightPropertyInfo = CLong - type AttrLabel DOMElementScrollHeightPropertyInfo = "scroll-height" - attrGet _ = getDOMElementScrollHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "scroll-left" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> m CLong -getDOMElementScrollLeft obj = liftIO $ getObjectPropertyLong obj "scroll-left" - -setDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> CLong -> m () -setDOMElementScrollLeft obj val = liftIO $ setObjectPropertyLong obj "scroll-left" val - -constructDOMElementScrollLeft :: CLong -> IO ([Char], GValue) -constructDOMElementScrollLeft val = constructObjectPropertyLong "scroll-left" val - -data DOMElementScrollLeftPropertyInfo -instance AttrInfo DOMElementScrollLeftPropertyInfo where - type AttrAllowedOps DOMElementScrollLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMElementScrollLeftPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollLeftPropertyInfo = CLong - type AttrLabel DOMElementScrollLeftPropertyInfo = "scroll-left" - attrGet _ = getDOMElementScrollLeft - attrSet _ = setDOMElementScrollLeft - attrConstruct _ = constructDOMElementScrollLeft - attrClear _ = undefined - --- VVV Prop "scroll-top" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> m CLong -getDOMElementScrollTop obj = liftIO $ getObjectPropertyLong obj "scroll-top" - -setDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> CLong -> m () -setDOMElementScrollTop obj val = liftIO $ setObjectPropertyLong obj "scroll-top" val - -constructDOMElementScrollTop :: CLong -> IO ([Char], GValue) -constructDOMElementScrollTop val = constructObjectPropertyLong "scroll-top" val - -data DOMElementScrollTopPropertyInfo -instance AttrInfo DOMElementScrollTopPropertyInfo where - type AttrAllowedOps DOMElementScrollTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMElementScrollTopPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollTopPropertyInfo = CLong - type AttrLabel DOMElementScrollTopPropertyInfo = "scroll-top" - attrGet _ = getDOMElementScrollTop - attrSet _ = setDOMElementScrollTop - attrConstruct _ = constructDOMElementScrollTop - attrClear _ = undefined - --- VVV Prop "scroll-width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMElementScrollWidth :: (MonadIO m, DOMElementK o) => o -> m CLong -getDOMElementScrollWidth obj = liftIO $ getObjectPropertyLong obj "scroll-width" - -data DOMElementScrollWidthPropertyInfo -instance AttrInfo DOMElementScrollWidthPropertyInfo where - type AttrAllowedOps DOMElementScrollWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMElementScrollWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementScrollWidthPropertyInfo = DOMElementK - type AttrGetType DOMElementScrollWidthPropertyInfo = CLong - type AttrLabel DOMElementScrollWidthPropertyInfo = "scroll-width" - attrGet _ = getDOMElementScrollWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "style" - -- Type: TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMElementStyle :: (MonadIO m, DOMElementK o) => o -> m (Maybe DOMCSSStyleDeclaration) -getDOMElementStyle obj = liftIO $ getObjectPropertyObject obj "style" DOMCSSStyleDeclaration - -data DOMElementStylePropertyInfo -instance AttrInfo DOMElementStylePropertyInfo where - type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementStylePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementStylePropertyInfo = DOMElementK - type AttrGetType DOMElementStylePropertyInfo = (Maybe DOMCSSStyleDeclaration) - type AttrLabel DOMElementStylePropertyInfo = "style" - attrGet _ = getDOMElementStyle - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "tag-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMElementTagName :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) -getDOMElementTagName obj = liftIO $ getObjectPropertyString obj "tag-name" - -data DOMElementTagNamePropertyInfo -instance AttrInfo DOMElementTagNamePropertyInfo where - type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementTagNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementTagNamePropertyInfo = DOMElementK - type AttrGetType DOMElementTagNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMElementTagNamePropertyInfo = "tag-name" - attrGet _ = getDOMElementTagName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "webkit-region-overset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMElementWebkitRegionOverset :: (MonadIO m, DOMElementK o) => o -> m (Maybe T.Text) -getDOMElementWebkitRegionOverset obj = liftIO $ getObjectPropertyString obj "webkit-region-overset" - -data DOMElementWebkitRegionOversetPropertyInfo -instance AttrInfo DOMElementWebkitRegionOversetPropertyInfo where - type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = DOMElementK - type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMElementWebkitRegionOversetPropertyInfo = "webkit-region-overset" - attrGet _ = getDOMElementWebkitRegionOverset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMElement = DOMElementAttributeList -type DOMElementAttributeList = ('[ '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo)] :: [(Symbol, *)]) - -dOMElementAttributes :: AttrLabelProxy "attributes" -dOMElementAttributes = AttrLabelProxy - -dOMElementChildElementCount :: AttrLabelProxy "childElementCount" -dOMElementChildElementCount = AttrLabelProxy - -dOMElementChildren :: AttrLabelProxy "children" -dOMElementChildren = AttrLabelProxy - -dOMElementClassName :: AttrLabelProxy "className" -dOMElementClassName = AttrLabelProxy - -dOMElementClientHeight :: AttrLabelProxy "clientHeight" -dOMElementClientHeight = AttrLabelProxy - -dOMElementClientLeft :: AttrLabelProxy "clientLeft" -dOMElementClientLeft = AttrLabelProxy - -dOMElementClientTop :: AttrLabelProxy "clientTop" -dOMElementClientTop = AttrLabelProxy - -dOMElementClientWidth :: AttrLabelProxy "clientWidth" -dOMElementClientWidth = AttrLabelProxy - -dOMElementFirstElementChild :: AttrLabelProxy "firstElementChild" -dOMElementFirstElementChild = AttrLabelProxy - -dOMElementId :: AttrLabelProxy "id" -dOMElementId = AttrLabelProxy - -dOMElementInnerHtml :: AttrLabelProxy "innerHtml" -dOMElementInnerHtml = AttrLabelProxy - -dOMElementLastElementChild :: AttrLabelProxy "lastElementChild" -dOMElementLastElementChild = AttrLabelProxy - -dOMElementNextElementSibling :: AttrLabelProxy "nextElementSibling" -dOMElementNextElementSibling = AttrLabelProxy - -dOMElementOffsetHeight :: AttrLabelProxy "offsetHeight" -dOMElementOffsetHeight = AttrLabelProxy - -dOMElementOffsetLeft :: AttrLabelProxy "offsetLeft" -dOMElementOffsetLeft = AttrLabelProxy - -dOMElementOffsetParent :: AttrLabelProxy "offsetParent" -dOMElementOffsetParent = AttrLabelProxy - -dOMElementOffsetTop :: AttrLabelProxy "offsetTop" -dOMElementOffsetTop = AttrLabelProxy - -dOMElementOffsetWidth :: AttrLabelProxy "offsetWidth" -dOMElementOffsetWidth = AttrLabelProxy - -dOMElementOuterHtml :: AttrLabelProxy "outerHtml" -dOMElementOuterHtml = AttrLabelProxy - -dOMElementPreviousElementSibling :: AttrLabelProxy "previousElementSibling" -dOMElementPreviousElementSibling = AttrLabelProxy - -dOMElementScrollHeight :: AttrLabelProxy "scrollHeight" -dOMElementScrollHeight = AttrLabelProxy - -dOMElementScrollLeft :: AttrLabelProxy "scrollLeft" -dOMElementScrollLeft = AttrLabelProxy - -dOMElementScrollTop :: AttrLabelProxy "scrollTop" -dOMElementScrollTop = AttrLabelProxy - -dOMElementScrollWidth :: AttrLabelProxy "scrollWidth" -dOMElementScrollWidth = AttrLabelProxy - -dOMElementStyle :: AttrLabelProxy "style" -dOMElementStyle = AttrLabelProxy - -dOMElementTagName :: AttrLabelProxy "tagName" -dOMElementTagName = AttrLabelProxy - -dOMElementWebkitRegionOverset :: AttrLabelProxy "webkitRegionOverset" -dOMElementWebkitRegionOverset = AttrLabelProxy - -type instance SignalList DOMElement = DOMElementSignalList -type DOMElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMElement::blur --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMElementBlur _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_element_blur _obj' - touchManagedPtr _obj - return () - -data DOMElementBlurMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementBlurMethodInfo a signature where - overloadedMethod _ = dOMElementBlur - --- method DOMElement::focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMElementFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_element_focus _obj' - touchManagedPtr _obj - return () - -data DOMElementFocusMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementFocusMethodInfo a signature where - overloadedMethod _ = dOMElementFocus - --- method DOMElement::get_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetAttributeMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetAttributeMethodInfo a signature where - overloadedMethod _ = dOMElementGetAttribute - --- method DOMElement::get_attribute_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetAttributeNodeMethodInfo -instance (signature ~ (T.Text -> m DOMAttr), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetAttributeNodeMethodInfo a signature where - overloadedMethod _ = dOMElementGetAttributeNode - --- method DOMElement::get_attribute_node_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetAttributeNodeNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMAttr), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetAttributeNodeNsMethodInfo a signature where - overloadedMethod _ = dOMElementGetAttributeNodeNs - --- method DOMElement::get_attribute_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetAttributeNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m T.Text), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetAttributeNsMethodInfo a signature where - overloadedMethod _ = dOMElementGetAttributeNs - --- method DOMElement::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetAttributesMethodInfo -instance (signature ~ (m DOMNamedNodeMap), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetAttributesMethodInfo a signature where - overloadedMethod _ = dOMElementGetAttributes - --- method DOMElement::get_child_element_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMElementGetChildElementCount :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> m CULong -- result -dOMElementGetChildElementCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_child_element_count _obj' - touchManagedPtr _obj - return result - -data DOMElementGetChildElementCountMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetChildElementCountMethodInfo a signature where - overloadedMethod _ = dOMElementGetChildElementCount - --- method DOMElement::get_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") --- throws : False --- Skip return : False - -foreign import ccall "webkit_dom_element_get_children" webkit_dom_element_get_children :: - Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" - IO (Ptr DOMHTMLCollection) - - -dOMElementGetChildren :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> m DOMHTMLCollection -- result -dOMElementGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_children _obj' - checkUnexpectedReturnNULL "webkit_dom_element_get_children" result - result' <- (wrapObject DOMHTMLCollection) result - touchManagedPtr _obj - return result' - -data DOMElementGetChildrenMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetChildrenMethodInfo a signature where - overloadedMethod _ = dOMElementGetChildren - --- method DOMElement::get_class_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetClassNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClassNameMethodInfo a signature where - overloadedMethod _ = dOMElementGetClassName - --- method DOMElement::get_client_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetClientHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_client_height _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetClientHeightMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientHeightMethodInfo a signature where - overloadedMethod _ = dOMElementGetClientHeight - --- method DOMElement::get_client_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetClientLeft _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_client_left _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetClientLeftMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientLeftMethodInfo a signature where - overloadedMethod _ = dOMElementGetClientLeft - --- method DOMElement::get_client_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetClientTop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_client_top _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetClientTopMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientTopMethodInfo a signature where - overloadedMethod _ = dOMElementGetClientTop - --- method DOMElement::get_client_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetClientWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_client_width _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetClientWidthMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetClientWidthMethodInfo a signature where - overloadedMethod _ = dOMElementGetClientWidth - --- method DOMElement::get_elements_by_class_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -> -- class_name : TBasicType TUTF8 - IO (Ptr DOMNodeList) - -{-# DEPRECATED dOMElementGetElementsByClassName ["(Since version 2.12)","Use webkit_dom_element_get_elements_by_class_name_as_html_collection() instead."]#-} -dOMElementGetElementsByClassName :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> T.Text -- className - -> m DOMNodeList -- result -dOMElementGetElementsByClassName _obj className = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - className' <- textToCString className - result <- webkit_dom_element_get_elements_by_class_name _obj' className' - checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_class_name" result - result' <- (wrapObject DOMNodeList) result - touchManagedPtr _obj - freeMem className' - return result' - -data DOMElementGetElementsByClassNameMethodInfo -instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByClassNameMethodInfo a signature where - overloadedMethod _ = dOMElementGetElementsByClassName - --- method DOMElement::get_elements_by_class_name_as_html_collection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") --- throws : False --- Skip return : False - -foreign import ccall "webkit_dom_element_get_elements_by_class_name_as_html_collection" webkit_dom_element_get_elements_by_class_name_as_html_collection :: - Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" - CString -> -- name : TBasicType TUTF8 - IO (Ptr DOMHTMLCollection) - - -dOMElementGetElementsByClassNameAsHtmlCollection :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> T.Text -- name - -> m DOMHTMLCollection -- result -dOMElementGetElementsByClassNameAsHtmlCollection _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- webkit_dom_element_get_elements_by_class_name_as_html_collection _obj' name' - checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_class_name_as_html_collection" result - result' <- (wrapObject DOMHTMLCollection) result - touchManagedPtr _obj - freeMem name' - return result' - -data DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo -instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo a signature where - overloadedMethod _ = dOMElementGetElementsByClassNameAsHtmlCollection - --- method DOMElement::get_elements_by_tag_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -> -- tag_name : TBasicType TUTF8 - IO (Ptr DOMNodeList) - -{-# DEPRECATED dOMElementGetElementsByTagName ["(Since version 2.12)","Use webkit_dom_element_get_elements_by_tag_name_as_html_collection() instead."]#-} -dOMElementGetElementsByTagName :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> T.Text -- tagName - -> m DOMNodeList -- result -dOMElementGetElementsByTagName _obj tagName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tagName' <- textToCString tagName - result <- webkit_dom_element_get_elements_by_tag_name _obj' tagName' - checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name" result - result' <- (wrapObject DOMNodeList) result - touchManagedPtr _obj - freeMem tagName' - return result' - -data DOMElementGetElementsByTagNameMethodInfo -instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameMethodInfo a signature where - overloadedMethod _ = dOMElementGetElementsByTagName - --- method DOMElement::get_elements_by_tag_name_as_html_collection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") --- throws : False --- Skip return : False - -foreign import ccall "webkit_dom_element_get_elements_by_tag_name_as_html_collection" webkit_dom_element_get_elements_by_tag_name_as_html_collection :: - Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" - CString -> -- name : TBasicType TUTF8 - IO (Ptr DOMHTMLCollection) - - -dOMElementGetElementsByTagNameAsHtmlCollection :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> T.Text -- name - -> m DOMHTMLCollection -- result -dOMElementGetElementsByTagNameAsHtmlCollection _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- webkit_dom_element_get_elements_by_tag_name_as_html_collection _obj' name' - checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_as_html_collection" result - result' <- (wrapObject DOMHTMLCollection) result - touchManagedPtr _obj - freeMem name' - return result' - -data DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo -instance (signature ~ (T.Text -> m DOMHTMLCollection), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo a signature where - overloadedMethod _ = dOMElementGetElementsByTagNameAsHtmlCollection - --- method DOMElement::get_elements_by_tag_name_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespace_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -> -- namespace_uri : TBasicType TUTF8 - CString -> -- tag_name : TBasicType TUTF8 - IO (Ptr DOMNodeList) - -{-# DEPRECATED dOMElementGetElementsByTagNameNs ["(Since version 2.12)","Use webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection() instead."]#-} -dOMElementGetElementsByTagNameNs :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> T.Text -- namespaceUri - -> T.Text -- tagName - -> m DOMNodeList -- result -dOMElementGetElementsByTagNameNs _obj namespaceUri tagName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - namespaceUri' <- textToCString namespaceUri - tagName' <- textToCString tagName - result <- webkit_dom_element_get_elements_by_tag_name_ns _obj' namespaceUri' tagName' - checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_ns" result - result' <- (wrapObject DOMNodeList) result - touchManagedPtr _obj - freeMem namespaceUri' - freeMem tagName' - return result' - -data DOMElementGetElementsByTagNameNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameNsMethodInfo a signature where - overloadedMethod _ = dOMElementGetElementsByTagNameNs - --- method DOMElement::get_elements_by_tag_name_ns_as_html_collection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "DOMHTMLCollection") --- throws : False --- Skip return : False - -foreign import ccall "webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection" webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection :: - Ptr DOMElement -> -- _obj : TInterface "WebKit2WebExtension" "DOMElement" - CString -> -- namespaceURI : TBasicType TUTF8 - CString -> -- localName : TBasicType TUTF8 - IO (Ptr DOMHTMLCollection) - - -dOMElementGetElementsByTagNameNsAsHtmlCollection :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> T.Text -- namespaceURI - -> T.Text -- localName - -> m DOMHTMLCollection -- result -dOMElementGetElementsByTagNameNsAsHtmlCollection _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_as_html_collection _obj' namespaceURI' localName' - checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection" result - result' <- (wrapObject DOMHTMLCollection) result - touchManagedPtr _obj - freeMem namespaceURI' - freeMem localName' - return result' - -data DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMHTMLCollection), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo a signature where - overloadedMethod _ = dOMElementGetElementsByTagNameNsAsHtmlCollection - --- method DOMElement::get_first_element_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetFirstElementChildMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetFirstElementChildMethodInfo a signature where - overloadedMethod _ = dOMElementGetFirstElementChild - --- method DOMElement::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetIdMethodInfo a signature where - overloadedMethod _ = dOMElementGetId - --- method DOMElement::get_inner_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetInnerHtmlMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetInnerHtmlMethodInfo a signature where - overloadedMethod _ = dOMElementGetInnerHtml - --- method DOMElement::get_last_element_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetLastElementChildMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetLastElementChildMethodInfo a signature where - overloadedMethod _ = dOMElementGetLastElementChild - --- method DOMElement::get_next_element_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetNextElementSiblingMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetNextElementSiblingMethodInfo a signature where - overloadedMethod _ = dOMElementGetNextElementSibling - --- method DOMElement::get_offset_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetOffsetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_offset_height _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetOffsetHeightMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetHeightMethodInfo a signature where - overloadedMethod _ = dOMElementGetOffsetHeight - --- method DOMElement::get_offset_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetOffsetLeft _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_offset_left _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetOffsetLeftMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetLeftMethodInfo a signature where - overloadedMethod _ = dOMElementGetOffsetLeft - --- method DOMElement::get_offset_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetOffsetParentMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetParentMethodInfo a signature where - overloadedMethod _ = dOMElementGetOffsetParent - --- method DOMElement::get_offset_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetOffsetTop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_offset_top _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetOffsetTopMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetTopMethodInfo a signature where - overloadedMethod _ = dOMElementGetOffsetTop - --- method DOMElement::get_offset_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementGetOffsetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_offset_width _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DOMElementGetOffsetWidthMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOffsetWidthMethodInfo a signature where - overloadedMethod _ = dOMElementGetOffsetWidth - --- method DOMElement::get_outer_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetOuterHtmlMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetOuterHtmlMethodInfo a signature where - overloadedMethod _ = dOMElementGetOuterHtml - --- method DOMElement::get_previous_element_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetPreviousElementSiblingMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetPreviousElementSiblingMethodInfo a signature where - overloadedMethod _ = dOMElementGetPreviousElementSibling - --- method DOMElement::get_scroll_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMElementGetScrollHeight :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> m CLong -- result -dOMElementGetScrollHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_scroll_height _obj' - touchManagedPtr _obj - return result - -data DOMElementGetScrollHeightMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollHeightMethodInfo a signature where - overloadedMethod _ = dOMElementGetScrollHeight - --- method DOMElement::get_scroll_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMElementGetScrollLeft :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> m CLong -- result -dOMElementGetScrollLeft _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_scroll_left _obj' - touchManagedPtr _obj - return result - -data DOMElementGetScrollLeftMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollLeftMethodInfo a signature where - overloadedMethod _ = dOMElementGetScrollLeft - --- method DOMElement::get_scroll_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMElementGetScrollTop :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> m CLong -- result -dOMElementGetScrollTop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_scroll_top _obj' - touchManagedPtr _obj - return result - -data DOMElementGetScrollTopMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollTopMethodInfo a signature where - overloadedMethod _ = dOMElementGetScrollTop - --- method DOMElement::get_scroll_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMElementGetScrollWidth :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> m CLong -- result -dOMElementGetScrollWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_get_scroll_width _obj' - touchManagedPtr _obj - return result - -data DOMElementGetScrollWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetScrollWidthMethodInfo a signature where - overloadedMethod _ = dOMElementGetScrollWidth - --- method DOMElement::get_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetStyleMethodInfo -instance (signature ~ (m DOMCSSStyleDeclaration), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetStyleMethodInfo a signature where - overloadedMethod _ = dOMElementGetStyle - --- method DOMElement::get_tag_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementGetTagNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMElementK a) => MethodInfo DOMElementGetTagNameMethodInfo a signature where - overloadedMethod _ = dOMElementGetTagName - --- method DOMElement::has_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementHasAttributeMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMElementK a) => MethodInfo DOMElementHasAttributeMethodInfo a signature where - overloadedMethod _ = dOMElementHasAttribute - --- method DOMElement::has_attribute_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMElementHasAttributeNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, DOMElementK a) => MethodInfo DOMElementHasAttributeNsMethodInfo a signature where - overloadedMethod _ = dOMElementHasAttributeNs - --- method DOMElement::has_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMElementHasAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_element_has_attributes _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMElementHasAttributesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMElementK a) => MethodInfo DOMElementHasAttributesMethodInfo a signature where - overloadedMethod _ = dOMElementHasAttributes - --- method DOMElement::query_selector --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMElementQuerySelectorMethodInfo -instance (signature ~ (T.Text -> m DOMElement), MonadIO m, DOMElementK a) => MethodInfo DOMElementQuerySelectorMethodInfo a signature where - overloadedMethod _ = dOMElementQuerySelector - --- method DOMElement::query_selector_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMElementQuerySelectorAllMethodInfo -instance (signature ~ (T.Text -> m DOMNodeList), MonadIO m, DOMElementK a) => MethodInfo DOMElementQuerySelectorAllMethodInfo a signature where - overloadedMethod _ = dOMElementQuerySelectorAll - --- method DOMElement::remove_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMElementRemoveAttribute _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - webkit_dom_element_remove_attribute _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data DOMElementRemoveAttributeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementRemoveAttributeMethodInfo a signature where - overloadedMethod _ = dOMElementRemoveAttribute - --- method DOMElement::remove_attribute_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMElementRemoveAttributeNodeMethodInfo -instance (signature ~ (b -> m DOMAttr), MonadIO m, DOMElementK a, DOMAttrK b) => MethodInfo DOMElementRemoveAttributeNodeMethodInfo a signature where - overloadedMethod _ = dOMElementRemoveAttributeNode - --- method DOMElement::remove_attribute_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMElementRemoveAttributeNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementRemoveAttributeNsMethodInfo a signature where - overloadedMethod _ = dOMElementRemoveAttributeNs - --- method DOMElement::scroll_by_lines --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- lines : TBasicType TLong - IO () - - -dOMElementScrollByLines :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> CLong -- lines - -> m () -- result -dOMElementScrollByLines _obj lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_element_scroll_by_lines _obj' lines - touchManagedPtr _obj - return () - -data DOMElementScrollByLinesMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollByLinesMethodInfo a signature where - overloadedMethod _ = dOMElementScrollByLines - --- method DOMElement::scroll_by_pages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- pages : TBasicType TLong - IO () - - -dOMElementScrollByPages :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> CLong -- pages - -> m () -- result -dOMElementScrollByPages _obj pages = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_element_scroll_by_pages _obj' pages - touchManagedPtr _obj - return () - -data DOMElementScrollByPagesMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollByPagesMethodInfo a signature where - overloadedMethod _ = dOMElementScrollByPages - --- method DOMElement::scroll_into_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignWithTop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMElementScrollIntoViewMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollIntoViewMethodInfo a signature where - overloadedMethod _ = dOMElementScrollIntoView - --- method DOMElement::scroll_into_view_if_needed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "centerIfNeeded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMElementScrollIntoViewIfNeededMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementScrollIntoViewIfNeededMethodInfo a signature where - overloadedMethod _ = dOMElementScrollIntoViewIfNeeded - --- method DOMElement::set_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMElementSetAttributeMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetAttributeMethodInfo a signature where - overloadedMethod _ = dOMElementSetAttribute - --- method DOMElement::set_attribute_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMElementSetAttributeNodeMethodInfo -instance (signature ~ (b -> m DOMAttr), MonadIO m, DOMElementK a, DOMAttrK b) => MethodInfo DOMElementSetAttributeNodeMethodInfo a signature where - overloadedMethod _ = dOMElementSetAttributeNode - --- method DOMElement::set_attribute_node_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMElementSetAttributeNodeNsMethodInfo -instance (signature ~ (b -> m DOMAttr), MonadIO m, DOMElementK a, DOMAttrK b) => MethodInfo DOMElementSetAttributeNodeNsMethodInfo a signature where - overloadedMethod _ = dOMElementSetAttributeNodeNs - --- method DOMElement::set_attribute_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMElementSetAttributeNsMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetAttributeNsMethodInfo a signature where - overloadedMethod _ = dOMElementSetAttributeNs - --- method DOMElement::set_class_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMElementSetClassNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetClassNameMethodInfo a signature where - overloadedMethod _ = dOMElementSetClassName - --- method DOMElement::set_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMElementSetId _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - webkit_dom_element_set_id _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DOMElementSetIdMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetIdMethodInfo a signature where - overloadedMethod _ = dOMElementSetId - --- method DOMElement::set_inner_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMElementSetInnerHtmlMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetInnerHtmlMethodInfo a signature where - overloadedMethod _ = dOMElementSetInnerHtml - --- method DOMElement::set_outer_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMElementSetOuterHtmlMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetOuterHtmlMethodInfo a signature where - overloadedMethod _ = dOMElementSetOuterHtml - --- method DOMElement::set_scroll_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMElementSetScrollLeft :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMElementSetScrollLeft _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_element_set_scroll_left _obj' value - touchManagedPtr _obj - return () - -data DOMElementSetScrollLeftMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetScrollLeftMethodInfo a signature where - overloadedMethod _ = dOMElementSetScrollLeft - --- method DOMElement::set_scroll_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMElementSetScrollTop :: - (MonadIO m, DOMElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMElementSetScrollTop _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_element_set_scroll_top _obj' value - touchManagedPtr _obj - return () - -data DOMElementSetScrollTopMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMElementK a) => MethodInfo DOMElementSetScrollTopMethodInfo a signature where - overloadedMethod _ = dOMElementSetScrollTop - - diff --git a/GI/WebKit2WebExtension/Objects/DOMElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMElement.hs-boot +++ /dev/null @@ -1,100 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMElementChildrenPropertyInfo -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 -data DOMElementBlurMethodInfo -data DOMElementFocusMethodInfo -data DOMElementGetAttributeMethodInfo -data DOMElementGetAttributeNodeMethodInfo -data DOMElementGetAttributeNodeNsMethodInfo -data DOMElementGetAttributeNsMethodInfo -data DOMElementGetAttributesMethodInfo -data DOMElementGetChildElementCountMethodInfo -data DOMElementGetChildrenMethodInfo -data DOMElementGetClassNameMethodInfo -data DOMElementGetClientHeightMethodInfo -data DOMElementGetClientLeftMethodInfo -data DOMElementGetClientTopMethodInfo -data DOMElementGetClientWidthMethodInfo -data DOMElementGetElementsByClassNameMethodInfo -data DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo -data DOMElementGetElementsByTagNameMethodInfo -data DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo -data DOMElementGetElementsByTagNameNsMethodInfo -data DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo -data DOMElementGetFirstElementChildMethodInfo -data DOMElementGetIdMethodInfo -data DOMElementGetInnerHtmlMethodInfo -data DOMElementGetLastElementChildMethodInfo -data DOMElementGetNextElementSiblingMethodInfo -data DOMElementGetOffsetHeightMethodInfo -data DOMElementGetOffsetLeftMethodInfo -data DOMElementGetOffsetParentMethodInfo -data DOMElementGetOffsetTopMethodInfo -data DOMElementGetOffsetWidthMethodInfo -data DOMElementGetOuterHtmlMethodInfo -data DOMElementGetPreviousElementSiblingMethodInfo -data DOMElementGetScrollHeightMethodInfo -data DOMElementGetScrollLeftMethodInfo -data DOMElementGetScrollTopMethodInfo -data DOMElementGetScrollWidthMethodInfo -data DOMElementGetStyleMethodInfo -data DOMElementGetTagNameMethodInfo -data DOMElementHasAttributeMethodInfo -data DOMElementHasAttributeNsMethodInfo -data DOMElementHasAttributesMethodInfo -data DOMElementQuerySelectorMethodInfo -data DOMElementQuerySelectorAllMethodInfo -data DOMElementRemoveAttributeMethodInfo -data DOMElementRemoveAttributeNodeMethodInfo -data DOMElementRemoveAttributeNsMethodInfo -data DOMElementScrollByLinesMethodInfo -data DOMElementScrollByPagesMethodInfo -data DOMElementScrollIntoViewMethodInfo -data DOMElementScrollIntoViewIfNeededMethodInfo -data DOMElementSetAttributeMethodInfo -data DOMElementSetAttributeNodeMethodInfo -data DOMElementSetAttributeNodeNsMethodInfo -data DOMElementSetAttributeNsMethodInfo -data DOMElementSetClassNameMethodInfo -data DOMElementSetIdMethodInfo -data DOMElementSetInnerHtmlMethodInfo -data DOMElementSetOuterHtmlMethodInfo -data DOMElementSetScrollLeftMethodInfo -data DOMElementSetScrollTopMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs b/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs +++ /dev/null @@ -1,129 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMEntityReferenceMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMEntityReferenceMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMEntityReferenceMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMEntityReferenceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMEntityReferenceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMEntityReferenceMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMEntityReferenceMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMEntityReferenceMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMEntityReferenceMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMEntityReferenceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMEntityReferenceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMEntityReferenceMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMEntityReferenceMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMEntityReferenceMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMEntityReferenceMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMEntityReferenceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMEntityReferenceMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMEntityReferenceMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMEntityReferenceMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMEntityReferenceMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMEntityReferenceMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMEntityReferenceMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMEntityReferenceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMEntityReferenceMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMEntityReferenceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMEntityReferenceMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMEntityReferenceMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMEntityReferenceMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMEntityReferenceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMEntityReferenceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMEntityReferenceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMEntityReferenceMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMEntityReferenceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMEntityReferenceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMEntityReferenceMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMEntityReferenceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMEntityReferenceMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMEntityReferenceMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMEntityReferenceMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMEntityReferenceMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMEntityReferenceMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMEntityReferenceMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMEntityReferenceMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMEntityReferenceMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMEntityReferenceMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMEntityReferenceMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMEntityReferenceMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMEntityReferenceMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMEntityReferenceMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMEntityReferenceMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMEntityReferenceMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMEntityReferenceMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMEntityReferenceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMEntityReferenceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMEntityReferenceMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMEntityReferenceMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMEntityReferenceMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMEntityReferenceMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMEntityReferenceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMEntityReferenceMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMEntityReferenceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMEntityReferenceMethod t DOMEntityReference, MethodInfo info DOMEntityReference p) => IsLabelProxy t (DOMEntityReference -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMEntityReferenceMethod t DOMEntityReference, MethodInfo info DOMEntityReference p) => IsLabel t (DOMEntityReference -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMEntityReference = DOMEntityReferenceAttributeList -type DOMEntityReferenceAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DOMEntityReference = DOMEntityReferenceSignalList -type DOMEntityReferenceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot b/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMEntityReference where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 diff --git a/GI/WebKit2WebExtension/Objects/DOMEvent.hs b/GI/WebKit2WebExtension/Objects/DOMEvent.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMEvent.hs +++ /dev/null @@ -1,986 +0,0 @@ - - -{- | -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 - DOMEventGetBubblesMethodInfo , - dOMEventGetBubbles , - - --- ** dOMEventGetCancelBubble - DOMEventGetCancelBubbleMethodInfo , - dOMEventGetCancelBubble , - - --- ** dOMEventGetCancelable - DOMEventGetCancelableMethodInfo , - dOMEventGetCancelable , - - --- ** dOMEventGetCurrentTarget - DOMEventGetCurrentTargetMethodInfo , - dOMEventGetCurrentTarget , - - --- ** dOMEventGetEventPhase - DOMEventGetEventPhaseMethodInfo , - dOMEventGetEventPhase , - - --- ** dOMEventGetEventType - DOMEventGetEventTypeMethodInfo , - dOMEventGetEventType , - - --- ** dOMEventGetReturnValue - DOMEventGetReturnValueMethodInfo , - dOMEventGetReturnValue , - - --- ** dOMEventGetSrcElement - DOMEventGetSrcElementMethodInfo , - dOMEventGetSrcElement , - - --- ** dOMEventGetTarget - DOMEventGetTargetMethodInfo , - dOMEventGetTarget , - - --- ** dOMEventGetTimeStamp - DOMEventGetTimeStampMethodInfo , - dOMEventGetTimeStamp , - - --- ** dOMEventInitEvent - DOMEventInitEventMethodInfo , - dOMEventInitEvent , - - --- ** dOMEventPreventDefault - DOMEventPreventDefaultMethodInfo , - dOMEventPreventDefault , - - --- ** dOMEventSetCancelBubble - DOMEventSetCancelBubbleMethodInfo , - dOMEventSetCancelBubble , - - --- ** dOMEventSetReturnValue - DOMEventSetReturnValueMethodInfo , - dOMEventSetReturnValue , - - --- ** dOMEventStopPropagation - DOMEventStopPropagationMethodInfo , - dOMEventStopPropagation , - - - - - -- * Properties --- ** Bubbles - DOMEventBubblesPropertyInfo , - dOMEventBubbles , - getDOMEventBubbles , - - --- ** CancelBubble - DOMEventCancelBubblePropertyInfo , - constructDOMEventCancelBubble , - dOMEventCancelBubble , - getDOMEventCancelBubble , - setDOMEventCancelBubble , - - --- ** Cancelable - DOMEventCancelablePropertyInfo , - dOMEventCancelable , - getDOMEventCancelable , - - --- ** CurrentTarget - DOMEventCurrentTargetPropertyInfo , - dOMEventCurrentTarget , - getDOMEventCurrentTarget , - - --- ** DefaultPrevented - DOMEventDefaultPreventedPropertyInfo , - dOMEventDefaultPrevented , - getDOMEventDefaultPrevented , - - --- ** EventPhase - DOMEventEventPhasePropertyInfo , - dOMEventEventPhase , - getDOMEventEventPhase , - - --- ** IsTrusted - DOMEventIsTrustedPropertyInfo , - dOMEventIsTrusted , - getDOMEventIsTrusted , - - --- ** ReturnValue - DOMEventReturnValuePropertyInfo , - constructDOMEventReturnValue , - dOMEventReturnValue , - getDOMEventReturnValue , - setDOMEventReturnValue , - - --- ** SrcElement - DOMEventSrcElementPropertyInfo , - dOMEventSrcElement , - getDOMEventSrcElement , - - --- ** Target - DOMEventTargetPropertyInfo , - dOMEventTarget , - getDOMEventTarget , - - --- ** TimeStamp - DOMEventTimeStampPropertyInfo , - dOMEventTimeStamp , - getDOMEventTimeStamp , - - --- ** Type - DOMEventTypePropertyInfo , - dOMEventType , - getDOMEventType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMEventMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMEventMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMEventMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMEventMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMEventMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMEventMethod "initEvent" o = DOMEventInitEventMethodInfo - ResolveDOMEventMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMEventMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMEventMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMEventMethod "preventDefault" o = DOMEventPreventDefaultMethodInfo - ResolveDOMEventMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMEventMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMEventMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMEventMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMEventMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMEventMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMEventMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMEventMethod "stopPropagation" o = DOMEventStopPropagationMethodInfo - ResolveDOMEventMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMEventMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMEventMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMEventMethod "getBubbles" o = DOMEventGetBubblesMethodInfo - ResolveDOMEventMethod "getCancelBubble" o = DOMEventGetCancelBubbleMethodInfo - ResolveDOMEventMethod "getCancelable" o = DOMEventGetCancelableMethodInfo - ResolveDOMEventMethod "getCurrentTarget" o = DOMEventGetCurrentTargetMethodInfo - ResolveDOMEventMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMEventMethod "getEventPhase" o = DOMEventGetEventPhaseMethodInfo - ResolveDOMEventMethod "getEventType" o = DOMEventGetEventTypeMethodInfo - ResolveDOMEventMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMEventMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMEventMethod "getReturnValue" o = DOMEventGetReturnValueMethodInfo - ResolveDOMEventMethod "getSrcElement" o = DOMEventGetSrcElementMethodInfo - ResolveDOMEventMethod "getTarget" o = DOMEventGetTargetMethodInfo - ResolveDOMEventMethod "getTimeStamp" o = DOMEventGetTimeStampMethodInfo - ResolveDOMEventMethod "setCancelBubble" o = DOMEventSetCancelBubbleMethodInfo - ResolveDOMEventMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMEventMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMEventMethod "setReturnValue" o = DOMEventSetReturnValueMethodInfo - ResolveDOMEventMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMEventMethod t DOMEvent, MethodInfo info DOMEvent p) => IsLabelProxy t (DOMEvent -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMEventMethod t DOMEvent, MethodInfo info DOMEvent p) => IsLabel t (DOMEvent -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "bubbles" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "bubbles" - attrGet _ = getDOMEventBubbles - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "cancel-bubble" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "cancel-bubble" - attrGet _ = getDOMEventCancelBubble - attrSet _ = setDOMEventCancelBubble - attrConstruct _ = constructDOMEventCancelBubble - attrClear _ = undefined - --- VVV Prop "cancelable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "cancelable" - attrGet _ = getDOMEventCancelable - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "current-target" - -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m (Maybe DOMEventTarget) -getDOMEventCurrentTarget obj = liftIO $ getObjectPropertyObject obj "current-target" DOMEventTarget - -data DOMEventCurrentTargetPropertyInfo -instance AttrInfo DOMEventCurrentTargetPropertyInfo where - type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = DOMEventK - type AttrGetType DOMEventCurrentTargetPropertyInfo = (Maybe DOMEventTarget) - type AttrLabel DOMEventCurrentTargetPropertyInfo = "current-target" - attrGet _ = getDOMEventCurrentTarget - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "default-prevented" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "default-prevented" - attrGet _ = getDOMEventDefaultPrevented - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "event-phase" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMEventEventPhase :: (MonadIO m, DOMEventK o) => o -> m Word32 -getDOMEventEventPhase obj = liftIO $ getObjectPropertyUInt32 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 = "event-phase" - attrGet _ = getDOMEventEventPhase - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-trusted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMEventIsTrusted :: (MonadIO m, DOMEventK o) => o -> m Bool -getDOMEventIsTrusted obj = liftIO $ getObjectPropertyBool obj "is-trusted" - -data DOMEventIsTrustedPropertyInfo -instance AttrInfo DOMEventIsTrustedPropertyInfo where - type AttrAllowedOps DOMEventIsTrustedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMEventIsTrustedPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventIsTrustedPropertyInfo = DOMEventK - type AttrGetType DOMEventIsTrustedPropertyInfo = Bool - type AttrLabel DOMEventIsTrustedPropertyInfo = "is-trusted" - attrGet _ = getDOMEventIsTrusted - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "return-value" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "return-value" - attrGet _ = getDOMEventReturnValue - attrSet _ = setDOMEventReturnValue - attrConstruct _ = constructDOMEventReturnValue - attrClear _ = undefined - --- VVV Prop "src-element" - -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m (Maybe DOMEventTarget) -getDOMEventSrcElement obj = liftIO $ getObjectPropertyObject obj "src-element" DOMEventTarget - -data DOMEventSrcElementPropertyInfo -instance AttrInfo DOMEventSrcElementPropertyInfo where - type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = DOMEventK - type AttrGetType DOMEventSrcElementPropertyInfo = (Maybe DOMEventTarget) - type AttrLabel DOMEventSrcElementPropertyInfo = "src-element" - attrGet _ = getDOMEventSrcElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "target" - -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m (Maybe DOMEventTarget) -getDOMEventTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget - -data DOMEventTargetPropertyInfo -instance AttrInfo DOMEventTargetPropertyInfo where - type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = DOMEventK - type AttrGetType DOMEventTargetPropertyInfo = (Maybe DOMEventTarget) - type AttrLabel DOMEventTargetPropertyInfo = "target" - attrGet _ = getDOMEventTarget - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "time-stamp" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMEventTimeStamp :: (MonadIO m, DOMEventK o) => o -> m Word32 -getDOMEventTimeStamp obj = liftIO $ getObjectPropertyUInt32 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 = "time-stamp" - attrGet _ = getDOMEventTimeStamp - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m (Maybe T.Text) -getDOMEventType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMEventTypePropertyInfo -instance AttrInfo DOMEventTypePropertyInfo where - type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMEventTypePropertyInfo = DOMEventK - type AttrGetType DOMEventTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMEventTypePropertyInfo = "type" - attrGet _ = getDOMEventType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMEvent = DOMEventAttributeList -type DOMEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] :: [(Symbol, *)]) - -dOMEventBubbles :: AttrLabelProxy "bubbles" -dOMEventBubbles = AttrLabelProxy - -dOMEventCancelBubble :: AttrLabelProxy "cancelBubble" -dOMEventCancelBubble = AttrLabelProxy - -dOMEventCancelable :: AttrLabelProxy "cancelable" -dOMEventCancelable = AttrLabelProxy - -dOMEventCurrentTarget :: AttrLabelProxy "currentTarget" -dOMEventCurrentTarget = AttrLabelProxy - -dOMEventDefaultPrevented :: AttrLabelProxy "defaultPrevented" -dOMEventDefaultPrevented = AttrLabelProxy - -dOMEventEventPhase :: AttrLabelProxy "eventPhase" -dOMEventEventPhase = AttrLabelProxy - -dOMEventIsTrusted :: AttrLabelProxy "isTrusted" -dOMEventIsTrusted = AttrLabelProxy - -dOMEventReturnValue :: AttrLabelProxy "returnValue" -dOMEventReturnValue = AttrLabelProxy - -dOMEventSrcElement :: AttrLabelProxy "srcElement" -dOMEventSrcElement = AttrLabelProxy - -dOMEventTarget :: AttrLabelProxy "target" -dOMEventTarget = AttrLabelProxy - -dOMEventTimeStamp :: AttrLabelProxy "timeStamp" -dOMEventTimeStamp = AttrLabelProxy - -dOMEventType :: AttrLabelProxy "type" -dOMEventType = AttrLabelProxy - -type instance SignalList DOMEvent = DOMEventSignalList -type DOMEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMEvent::get_bubbles --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMEventGetBubbles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_event_get_bubbles _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMEventGetBubblesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetBubblesMethodInfo a signature where - overloadedMethod _ = dOMEventGetBubbles - --- method DOMEvent::get_cancel_bubble --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMEventGetCancelBubble _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_event_get_cancel_bubble _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMEventGetCancelBubbleMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetCancelBubbleMethodInfo a signature where - overloadedMethod _ = dOMEventGetCancelBubble - --- method DOMEvent::get_cancelable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMEventGetCancelable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_event_get_cancelable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMEventGetCancelableMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetCancelableMethodInfo a signature where - overloadedMethod _ = dOMEventGetCancelable - --- method DOMEvent::get_current_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMEventGetCurrentTargetMethodInfo -instance (signature ~ (m DOMEventTarget), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetCurrentTargetMethodInfo a signature where - overloadedMethod _ = dOMEventGetCurrentTarget - --- method DOMEvent::get_event_phase --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMEventGetEventPhase _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_event_get_event_phase _obj' - touchManagedPtr _obj - return result - -data DOMEventGetEventPhaseMethodInfo -instance (signature ~ (m Word16), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetEventPhaseMethodInfo a signature where - overloadedMethod _ = dOMEventGetEventPhase - --- method DOMEvent::get_event_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMEventGetEventTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetEventTypeMethodInfo a signature where - overloadedMethod _ = dOMEventGetEventType - --- method DOMEvent::get_return_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMEventGetReturnValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_event_get_return_value _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMEventGetReturnValueMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetReturnValueMethodInfo a signature where - overloadedMethod _ = dOMEventGetReturnValue - --- method DOMEvent::get_src_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMEventGetSrcElementMethodInfo -instance (signature ~ (m DOMEventTarget), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetSrcElementMethodInfo a signature where - overloadedMethod _ = dOMEventGetSrcElement - --- method DOMEvent::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMEventGetTargetMethodInfo -instance (signature ~ (m DOMEventTarget), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetTargetMethodInfo a signature where - overloadedMethod _ = dOMEventGetTarget - --- method DOMEvent::get_time_stamp --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMEventGetTimeStamp _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_event_get_time_stamp _obj' - touchManagedPtr _obj - return result - -data DOMEventGetTimeStampMethodInfo -instance (signature ~ (m Word32), MonadIO m, DOMEventK a) => MethodInfo DOMEventGetTimeStampMethodInfo a signature where - overloadedMethod _ = dOMEventGetTimeStamp - --- method DOMEvent::init_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMEventInitEventMethodInfo -instance (signature ~ (T.Text -> Bool -> Bool -> m ()), MonadIO m, DOMEventK a) => MethodInfo DOMEventInitEventMethodInfo a signature where - overloadedMethod _ = dOMEventInitEvent - --- method DOMEvent::prevent_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMEventPreventDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_event_prevent_default _obj' - touchManagedPtr _obj - return () - -data DOMEventPreventDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMEventK a) => MethodInfo DOMEventPreventDefaultMethodInfo a signature where - overloadedMethod _ = dOMEventPreventDefault - --- method DOMEvent::set_cancel_bubble --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMEventSetCancelBubbleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMEventK a) => MethodInfo DOMEventSetCancelBubbleMethodInfo a signature where - overloadedMethod _ = dOMEventSetCancelBubble - --- method DOMEvent::set_return_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMEventSetReturnValueMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMEventK a) => MethodInfo DOMEventSetReturnValueMethodInfo a signature where - overloadedMethod _ = dOMEventSetReturnValue - --- method DOMEvent::stop_propagation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMEventStopPropagation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_event_stop_propagation _obj' - touchManagedPtr _obj - return () - -data DOMEventStopPropagationMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMEventK a) => MethodInfo DOMEventStopPropagationMethodInfo a signature where - overloadedMethod _ = dOMEventStopPropagation - - diff --git a/GI/WebKit2WebExtension/Objects/DOMEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMEvent.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMEvent.hs-boot +++ /dev/null @@ -1,40 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMEvent where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMEventIsTrustedPropertyInfo -data DOMEventReturnValuePropertyInfo -data DOMEventSrcElementPropertyInfo -data DOMEventTargetPropertyInfo -data DOMEventTimeStampPropertyInfo -data DOMEventTypePropertyInfo -data DOMEventGetBubblesMethodInfo -data DOMEventGetCancelBubbleMethodInfo -data DOMEventGetCancelableMethodInfo -data DOMEventGetCurrentTargetMethodInfo -data DOMEventGetEventPhaseMethodInfo -data DOMEventGetEventTypeMethodInfo -data DOMEventGetReturnValueMethodInfo -data DOMEventGetSrcElementMethodInfo -data DOMEventGetTargetMethodInfo -data DOMEventGetTimeStampMethodInfo -data DOMEventInitEventMethodInfo -data DOMEventPreventDefaultMethodInfo -data DOMEventSetCancelBubbleMethodInfo -data DOMEventSetReturnValueMethodInfo -data DOMEventStopPropagationMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMFile.hs b/GI/WebKit2WebExtension/Objects/DOMFile.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMFile.hs +++ /dev/null @@ -1,164 +0,0 @@ - - -{- | -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 - DOMFileGetNameMethodInfo , - dOMFileGetName , - - - - - -- * Properties --- ** Name - DOMFileNamePropertyInfo , - dOMFileName , - getDOMFileName , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMFileMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMFileMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMFileMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMFileMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMFileMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMFileMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMFileMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMFileMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMFileMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMFileMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMFileMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMFileMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMFileMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMFileMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMFileMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMFileMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMFileMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMFileMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMFileMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMFileMethod "getName" o = DOMFileGetNameMethodInfo - ResolveDOMFileMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMFileMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMFileMethod "getSize" o = DOMBlobGetSizeMethodInfo - ResolveDOMFileMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMFileMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMFileMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMFileMethod t DOMFile, MethodInfo info DOMFile p) => IsLabelProxy t (DOMFile -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMFileMethod t DOMFile, MethodInfo info DOMFile p) => IsLabel t (DOMFile -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMFileName :: (MonadIO m, DOMFileK o) => o -> m (Maybe T.Text) -getDOMFileName obj = liftIO $ getObjectPropertyString obj "name" - -data DOMFileNamePropertyInfo -instance AttrInfo DOMFileNamePropertyInfo where - type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMFileNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMFileNamePropertyInfo = DOMFileK - type AttrGetType DOMFileNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMFileNamePropertyInfo = "name" - attrGet _ = getDOMFileName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMFile = DOMFileAttributeList -type DOMFileAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] :: [(Symbol, *)]) - -dOMFileName :: AttrLabelProxy "name" -dOMFileName = AttrLabelProxy - -type instance SignalList DOMFile = DOMFileSignalList -type DOMFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMFile::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMFileGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMFileK a) => MethodInfo DOMFileGetNameMethodInfo a signature where - overloadedMethod _ = dOMFileGetName - - diff --git a/GI/WebKit2WebExtension/Objects/DOMFile.hs-boot b/GI/WebKit2WebExtension/Objects/DOMFile.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMFile.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMFile where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMFileGetNameMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMFileList.hs b/GI/WebKit2WebExtension/Objects/DOMFileList.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMFileList.hs +++ /dev/null @@ -1,197 +0,0 @@ - - -{- | -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 - DOMFileListGetLengthMethodInfo , - dOMFileListGetLength , - - --- ** dOMFileListItem - DOMFileListItemMethodInfo , - dOMFileListItem , - - - - - -- * Properties --- ** Length - DOMFileListLengthPropertyInfo , - dOMFileListLength , - getDOMFileListLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMFileListMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMFileListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMFileListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMFileListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMFileListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMFileListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMFileListMethod "item" o = DOMFileListItemMethodInfo - ResolveDOMFileListMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMFileListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMFileListMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMFileListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMFileListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMFileListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMFileListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMFileListMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMFileListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMFileListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMFileListMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMFileListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMFileListMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMFileListMethod "getLength" o = DOMFileListGetLengthMethodInfo - ResolveDOMFileListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMFileListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMFileListMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMFileListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMFileListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMFileListMethod t DOMFileList, MethodInfo info DOMFileList p) => IsLabelProxy t (DOMFileList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMFileListMethod t DOMFileList, MethodInfo info DOMFileList p) => IsLabel t (DOMFileList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMFileListLength :: (MonadIO m, DOMFileListK o) => o -> m CULong -getDOMFileListLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMFileListLengthPropertyInfo -instance AttrInfo DOMFileListLengthPropertyInfo where - type AttrAllowedOps DOMFileListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMFileListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMFileListLengthPropertyInfo = DOMFileListK - type AttrGetType DOMFileListLengthPropertyInfo = CULong - type AttrLabel DOMFileListLengthPropertyInfo = "length" - attrGet _ = getDOMFileListLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMFileList = DOMFileListAttributeList -type DOMFileListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMFileListLengthPropertyInfo)] :: [(Symbol, *)]) - -dOMFileListLength :: AttrLabelProxy "length" -dOMFileListLength = AttrLabelProxy - -type instance SignalList DOMFileList = DOMFileListSignalList -type DOMFileListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMFileList::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMFileListGetLength :: - (MonadIO m, DOMFileListK a) => - a -- _obj - -> m CULong -- result -dOMFileListGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_file_list_get_length _obj' - touchManagedPtr _obj - return result - -data DOMFileListGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMFileListK a) => MethodInfo DOMFileListGetLengthMethodInfo a signature where - overloadedMethod _ = dOMFileListGetLength - --- method DOMFileList::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO (Ptr DOMFile) - - -dOMFileListItem :: - (MonadIO m, DOMFileListK a) => - a -- _obj - -> CULong -- index - -> m DOMFile -- result -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' - -data DOMFileListItemMethodInfo -instance (signature ~ (CULong -> m DOMFile), MonadIO m, DOMFileListK a) => MethodInfo DOMFileListItemMethodInfo a signature where - overloadedMethod _ = dOMFileListItem - - diff --git a/GI/WebKit2WebExtension/Objects/DOMFileList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMFileList.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMFileList.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMFileList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMFileListGetLengthMethodInfo -data DOMFileListItemMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs +++ /dev/null @@ -1,2270 +0,0 @@ - - -{- | -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 - DOMHTMLAnchorElementGetCharsetMethodInfo, - dOMHTMLAnchorElementGetCharset , - - --- ** dOMHTMLAnchorElementGetCoords - DOMHTMLAnchorElementGetCoordsMethodInfo , - dOMHTMLAnchorElementGetCoords , - - --- ** dOMHTMLAnchorElementGetHash - DOMHTMLAnchorElementGetHashMethodInfo , - dOMHTMLAnchorElementGetHash , - - --- ** dOMHTMLAnchorElementGetHost - DOMHTMLAnchorElementGetHostMethodInfo , - dOMHTMLAnchorElementGetHost , - - --- ** dOMHTMLAnchorElementGetHostname - DOMHTMLAnchorElementGetHostnameMethodInfo, - dOMHTMLAnchorElementGetHostname , - - --- ** dOMHTMLAnchorElementGetHref - DOMHTMLAnchorElementGetHrefMethodInfo , - dOMHTMLAnchorElementGetHref , - - --- ** dOMHTMLAnchorElementGetHreflang - DOMHTMLAnchorElementGetHreflangMethodInfo, - dOMHTMLAnchorElementGetHreflang , - - --- ** dOMHTMLAnchorElementGetName - DOMHTMLAnchorElementGetNameMethodInfo , - dOMHTMLAnchorElementGetName , - - --- ** dOMHTMLAnchorElementGetPathname - DOMHTMLAnchorElementGetPathnameMethodInfo, - dOMHTMLAnchorElementGetPathname , - - --- ** dOMHTMLAnchorElementGetPort - DOMHTMLAnchorElementGetPortMethodInfo , - dOMHTMLAnchorElementGetPort , - - --- ** dOMHTMLAnchorElementGetProtocol - DOMHTMLAnchorElementGetProtocolMethodInfo, - dOMHTMLAnchorElementGetProtocol , - - --- ** dOMHTMLAnchorElementGetRel - DOMHTMLAnchorElementGetRelMethodInfo , - dOMHTMLAnchorElementGetRel , - - --- ** dOMHTMLAnchorElementGetRev - DOMHTMLAnchorElementGetRevMethodInfo , - dOMHTMLAnchorElementGetRev , - - --- ** dOMHTMLAnchorElementGetSearch - DOMHTMLAnchorElementGetSearchMethodInfo , - dOMHTMLAnchorElementGetSearch , - - --- ** dOMHTMLAnchorElementGetShape - DOMHTMLAnchorElementGetShapeMethodInfo , - dOMHTMLAnchorElementGetShape , - - --- ** dOMHTMLAnchorElementGetTarget - DOMHTMLAnchorElementGetTargetMethodInfo , - dOMHTMLAnchorElementGetTarget , - - --- ** dOMHTMLAnchorElementGetText - DOMHTMLAnchorElementGetTextMethodInfo , - dOMHTMLAnchorElementGetText , - - --- ** dOMHTMLAnchorElementGetTypeAttr - DOMHTMLAnchorElementGetTypeAttrMethodInfo, - dOMHTMLAnchorElementGetTypeAttr , - - --- ** dOMHTMLAnchorElementSetCharset - DOMHTMLAnchorElementSetCharsetMethodInfo, - dOMHTMLAnchorElementSetCharset , - - --- ** dOMHTMLAnchorElementSetCoords - DOMHTMLAnchorElementSetCoordsMethodInfo , - dOMHTMLAnchorElementSetCoords , - - --- ** dOMHTMLAnchorElementSetHash - DOMHTMLAnchorElementSetHashMethodInfo , - dOMHTMLAnchorElementSetHash , - - --- ** dOMHTMLAnchorElementSetHost - DOMHTMLAnchorElementSetHostMethodInfo , - dOMHTMLAnchorElementSetHost , - - --- ** dOMHTMLAnchorElementSetHostname - DOMHTMLAnchorElementSetHostnameMethodInfo, - dOMHTMLAnchorElementSetHostname , - - --- ** dOMHTMLAnchorElementSetHref - DOMHTMLAnchorElementSetHrefMethodInfo , - dOMHTMLAnchorElementSetHref , - - --- ** dOMHTMLAnchorElementSetHreflang - DOMHTMLAnchorElementSetHreflangMethodInfo, - dOMHTMLAnchorElementSetHreflang , - - --- ** dOMHTMLAnchorElementSetName - DOMHTMLAnchorElementSetNameMethodInfo , - dOMHTMLAnchorElementSetName , - - --- ** dOMHTMLAnchorElementSetPathname - DOMHTMLAnchorElementSetPathnameMethodInfo, - dOMHTMLAnchorElementSetPathname , - - --- ** dOMHTMLAnchorElementSetPort - DOMHTMLAnchorElementSetPortMethodInfo , - dOMHTMLAnchorElementSetPort , - - --- ** dOMHTMLAnchorElementSetProtocol - DOMHTMLAnchorElementSetProtocolMethodInfo, - dOMHTMLAnchorElementSetProtocol , - - --- ** dOMHTMLAnchorElementSetRel - DOMHTMLAnchorElementSetRelMethodInfo , - dOMHTMLAnchorElementSetRel , - - --- ** dOMHTMLAnchorElementSetRev - DOMHTMLAnchorElementSetRevMethodInfo , - dOMHTMLAnchorElementSetRev , - - --- ** dOMHTMLAnchorElementSetSearch - DOMHTMLAnchorElementSetSearchMethodInfo , - dOMHTMLAnchorElementSetSearch , - - --- ** dOMHTMLAnchorElementSetShape - DOMHTMLAnchorElementSetShapeMethodInfo , - dOMHTMLAnchorElementSetShape , - - --- ** dOMHTMLAnchorElementSetTarget - DOMHTMLAnchorElementSetTargetMethodInfo , - dOMHTMLAnchorElementSetTarget , - - --- ** dOMHTMLAnchorElementSetTypeAttr - DOMHTMLAnchorElementSetTypeAttrMethodInfo, - dOMHTMLAnchorElementSetTypeAttr , - - - - - -- * Properties --- ** Charset - DOMHTMLAnchorElementCharsetPropertyInfo , - constructDOMHTMLAnchorElementCharset , - dOMHTMLAnchorElementCharset , - getDOMHTMLAnchorElementCharset , - setDOMHTMLAnchorElementCharset , - - --- ** Coords - DOMHTMLAnchorElementCoordsPropertyInfo , - constructDOMHTMLAnchorElementCoords , - dOMHTMLAnchorElementCoords , - getDOMHTMLAnchorElementCoords , - setDOMHTMLAnchorElementCoords , - - --- ** Download - DOMHTMLAnchorElementDownloadPropertyInfo, - clearDOMHTMLAnchorElementDownload , - constructDOMHTMLAnchorElementDownload , - dOMHTMLAnchorElementDownload , - getDOMHTMLAnchorElementDownload , - setDOMHTMLAnchorElementDownload , - - --- ** Hash - DOMHTMLAnchorElementHashPropertyInfo , - constructDOMHTMLAnchorElementHash , - dOMHTMLAnchorElementHash , - getDOMHTMLAnchorElementHash , - setDOMHTMLAnchorElementHash , - - --- ** Host - DOMHTMLAnchorElementHostPropertyInfo , - constructDOMHTMLAnchorElementHost , - dOMHTMLAnchorElementHost , - getDOMHTMLAnchorElementHost , - setDOMHTMLAnchorElementHost , - - --- ** Hostname - DOMHTMLAnchorElementHostnamePropertyInfo, - constructDOMHTMLAnchorElementHostname , - dOMHTMLAnchorElementHostname , - getDOMHTMLAnchorElementHostname , - setDOMHTMLAnchorElementHostname , - - --- ** Href - DOMHTMLAnchorElementHrefPropertyInfo , - constructDOMHTMLAnchorElementHref , - dOMHTMLAnchorElementHref , - getDOMHTMLAnchorElementHref , - setDOMHTMLAnchorElementHref , - - --- ** Hreflang - DOMHTMLAnchorElementHreflangPropertyInfo, - constructDOMHTMLAnchorElementHreflang , - dOMHTMLAnchorElementHreflang , - getDOMHTMLAnchorElementHreflang , - setDOMHTMLAnchorElementHreflang , - - --- ** Name - DOMHTMLAnchorElementNamePropertyInfo , - constructDOMHTMLAnchorElementName , - dOMHTMLAnchorElementName , - getDOMHTMLAnchorElementName , - setDOMHTMLAnchorElementName , - - --- ** Origin - DOMHTMLAnchorElementOriginPropertyInfo , - dOMHTMLAnchorElementOrigin , - getDOMHTMLAnchorElementOrigin , - - --- ** Pathname - DOMHTMLAnchorElementPathnamePropertyInfo, - constructDOMHTMLAnchorElementPathname , - dOMHTMLAnchorElementPathname , - getDOMHTMLAnchorElementPathname , - setDOMHTMLAnchorElementPathname , - - --- ** Ping - DOMHTMLAnchorElementPingPropertyInfo , - clearDOMHTMLAnchorElementPing , - constructDOMHTMLAnchorElementPing , - dOMHTMLAnchorElementPing , - getDOMHTMLAnchorElementPing , - setDOMHTMLAnchorElementPing , - - --- ** Port - DOMHTMLAnchorElementPortPropertyInfo , - constructDOMHTMLAnchorElementPort , - dOMHTMLAnchorElementPort , - getDOMHTMLAnchorElementPort , - setDOMHTMLAnchorElementPort , - - --- ** Protocol - DOMHTMLAnchorElementProtocolPropertyInfo, - constructDOMHTMLAnchorElementProtocol , - dOMHTMLAnchorElementProtocol , - getDOMHTMLAnchorElementProtocol , - setDOMHTMLAnchorElementProtocol , - - --- ** Rel - DOMHTMLAnchorElementRelPropertyInfo , - constructDOMHTMLAnchorElementRel , - dOMHTMLAnchorElementRel , - getDOMHTMLAnchorElementRel , - setDOMHTMLAnchorElementRel , - - --- ** Rev - DOMHTMLAnchorElementRevPropertyInfo , - constructDOMHTMLAnchorElementRev , - dOMHTMLAnchorElementRev , - getDOMHTMLAnchorElementRev , - setDOMHTMLAnchorElementRev , - - --- ** Search - DOMHTMLAnchorElementSearchPropertyInfo , - constructDOMHTMLAnchorElementSearch , - dOMHTMLAnchorElementSearch , - getDOMHTMLAnchorElementSearch , - setDOMHTMLAnchorElementSearch , - - --- ** Shape - DOMHTMLAnchorElementShapePropertyInfo , - constructDOMHTMLAnchorElementShape , - dOMHTMLAnchorElementShape , - getDOMHTMLAnchorElementShape , - setDOMHTMLAnchorElementShape , - - --- ** Target - DOMHTMLAnchorElementTargetPropertyInfo , - constructDOMHTMLAnchorElementTarget , - dOMHTMLAnchorElementTarget , - getDOMHTMLAnchorElementTarget , - setDOMHTMLAnchorElementTarget , - - --- ** Text - DOMHTMLAnchorElementTextPropertyInfo , - clearDOMHTMLAnchorElementText , - constructDOMHTMLAnchorElementText , - dOMHTMLAnchorElementText , - getDOMHTMLAnchorElementText , - setDOMHTMLAnchorElementText , - - --- ** Type - DOMHTMLAnchorElementTypePropertyInfo , - clearDOMHTMLAnchorElementType , - constructDOMHTMLAnchorElementType , - dOMHTMLAnchorElementType , - getDOMHTMLAnchorElementType , - setDOMHTMLAnchorElementType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLAnchorElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLAnchorElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLAnchorElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLAnchorElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLAnchorElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLAnchorElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLAnchorElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLAnchorElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLAnchorElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLAnchorElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLAnchorElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLAnchorElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLAnchorElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLAnchorElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLAnchorElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLAnchorElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLAnchorElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLAnchorElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLAnchorElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLAnchorElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLAnchorElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLAnchorElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLAnchorElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLAnchorElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLAnchorElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLAnchorElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLAnchorElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLAnchorElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLAnchorElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLAnchorElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLAnchorElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLAnchorElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLAnchorElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLAnchorElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLAnchorElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLAnchorElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLAnchorElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLAnchorElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLAnchorElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLAnchorElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLAnchorElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLAnchorElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLAnchorElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLAnchorElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLAnchorElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLAnchorElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLAnchorElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLAnchorElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLAnchorElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLAnchorElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLAnchorElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLAnchorElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLAnchorElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLAnchorElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLAnchorElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLAnchorElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLAnchorElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLAnchorElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLAnchorElementMethod "getCharset" o = DOMHTMLAnchorElementGetCharsetMethodInfo - ResolveDOMHTMLAnchorElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLAnchorElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLAnchorElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLAnchorElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLAnchorElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLAnchorElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLAnchorElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLAnchorElementMethod "getCoords" o = DOMHTMLAnchorElementGetCoordsMethodInfo - ResolveDOMHTMLAnchorElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLAnchorElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLAnchorElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLAnchorElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLAnchorElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLAnchorElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLAnchorElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLAnchorElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLAnchorElementMethod "getHash" o = DOMHTMLAnchorElementGetHashMethodInfo - ResolveDOMHTMLAnchorElementMethod "getHost" o = DOMHTMLAnchorElementGetHostMethodInfo - ResolveDOMHTMLAnchorElementMethod "getHostname" o = DOMHTMLAnchorElementGetHostnameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getHref" o = DOMHTMLAnchorElementGetHrefMethodInfo - ResolveDOMHTMLAnchorElementMethod "getHreflang" o = DOMHTMLAnchorElementGetHreflangMethodInfo - ResolveDOMHTMLAnchorElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLAnchorElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLAnchorElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLAnchorElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLAnchorElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLAnchorElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLAnchorElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getName" o = DOMHTMLAnchorElementGetNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLAnchorElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLAnchorElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLAnchorElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLAnchorElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLAnchorElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLAnchorElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLAnchorElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLAnchorElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLAnchorElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLAnchorElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLAnchorElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLAnchorElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLAnchorElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLAnchorElementMethod "getPathname" o = DOMHTMLAnchorElementGetPathnameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getPort" o = DOMHTMLAnchorElementGetPortMethodInfo - ResolveDOMHTMLAnchorElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLAnchorElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLAnchorElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLAnchorElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLAnchorElementMethod "getProtocol" o = DOMHTMLAnchorElementGetProtocolMethodInfo - ResolveDOMHTMLAnchorElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLAnchorElementMethod "getRel" o = DOMHTMLAnchorElementGetRelMethodInfo - ResolveDOMHTMLAnchorElementMethod "getRev" o = DOMHTMLAnchorElementGetRevMethodInfo - ResolveDOMHTMLAnchorElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLAnchorElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLAnchorElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLAnchorElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLAnchorElementMethod "getSearch" o = DOMHTMLAnchorElementGetSearchMethodInfo - ResolveDOMHTMLAnchorElementMethod "getShape" o = DOMHTMLAnchorElementGetShapeMethodInfo - ResolveDOMHTMLAnchorElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLAnchorElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLAnchorElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "getTarget" o = DOMHTMLAnchorElementGetTargetMethodInfo - ResolveDOMHTMLAnchorElementMethod "getText" o = DOMHTMLAnchorElementGetTextMethodInfo - ResolveDOMHTMLAnchorElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLAnchorElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLAnchorElementMethod "getTypeAttr" o = DOMHTMLAnchorElementGetTypeAttrMethodInfo - ResolveDOMHTMLAnchorElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLAnchorElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLAnchorElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLAnchorElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLAnchorElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLAnchorElementMethod "setCharset" o = DOMHTMLAnchorElementSetCharsetMethodInfo - ResolveDOMHTMLAnchorElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLAnchorElementMethod "setCoords" o = DOMHTMLAnchorElementSetCoordsMethodInfo - ResolveDOMHTMLAnchorElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLAnchorElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLAnchorElementMethod "setHash" o = DOMHTMLAnchorElementSetHashMethodInfo - ResolveDOMHTMLAnchorElementMethod "setHost" o = DOMHTMLAnchorElementSetHostMethodInfo - ResolveDOMHTMLAnchorElementMethod "setHostname" o = DOMHTMLAnchorElementSetHostnameMethodInfo - ResolveDOMHTMLAnchorElementMethod "setHref" o = DOMHTMLAnchorElementSetHrefMethodInfo - ResolveDOMHTMLAnchorElementMethod "setHreflang" o = DOMHTMLAnchorElementSetHreflangMethodInfo - ResolveDOMHTMLAnchorElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLAnchorElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLAnchorElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLAnchorElementMethod "setName" o = DOMHTMLAnchorElementSetNameMethodInfo - ResolveDOMHTMLAnchorElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLAnchorElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLAnchorElementMethod "setPathname" o = DOMHTMLAnchorElementSetPathnameMethodInfo - ResolveDOMHTMLAnchorElementMethod "setPort" o = DOMHTMLAnchorElementSetPortMethodInfo - ResolveDOMHTMLAnchorElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLAnchorElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLAnchorElementMethod "setProtocol" o = DOMHTMLAnchorElementSetProtocolMethodInfo - ResolveDOMHTMLAnchorElementMethod "setRel" o = DOMHTMLAnchorElementSetRelMethodInfo - ResolveDOMHTMLAnchorElementMethod "setRev" o = DOMHTMLAnchorElementSetRevMethodInfo - ResolveDOMHTMLAnchorElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLAnchorElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLAnchorElementMethod "setSearch" o = DOMHTMLAnchorElementSetSearchMethodInfo - ResolveDOMHTMLAnchorElementMethod "setShape" o = DOMHTMLAnchorElementSetShapeMethodInfo - ResolveDOMHTMLAnchorElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLAnchorElementMethod "setTarget" o = DOMHTMLAnchorElementSetTargetMethodInfo - ResolveDOMHTMLAnchorElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLAnchorElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLAnchorElementMethod "setTypeAttr" o = DOMHTMLAnchorElementSetTypeAttrMethodInfo - ResolveDOMHTMLAnchorElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLAnchorElementMethod t DOMHTMLAnchorElement, MethodInfo info DOMHTMLAnchorElement p) => IsLabelProxy t (DOMHTMLAnchorElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLAnchorElementMethod t DOMHTMLAnchorElement, MethodInfo info DOMHTMLAnchorElement p) => IsLabel t (DOMHTMLAnchorElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) - -constructDOMHTMLAnchorElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementCharset val = constructObjectPropertyString "charset" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementCharsetPropertyInfo = "charset" - attrGet _ = getDOMHTMLAnchorElementCharset - attrSet _ = setDOMHTMLAnchorElementCharset - attrConstruct _ = constructDOMHTMLAnchorElementCharset - attrClear _ = undefined - --- VVV Prop "coords" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementCoords obj = liftIO $ getObjectPropertyString obj "coords" - -setDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" (Just val) - -constructDOMHTMLAnchorElementCoords :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementCoords val = constructObjectPropertyString "coords" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementCoordsPropertyInfo = "coords" - attrGet _ = getDOMHTMLAnchorElementCoords - attrSet _ = setDOMHTMLAnchorElementCoords - attrConstruct _ = constructDOMHTMLAnchorElementCoords - attrClear _ = undefined - --- VVV Prop "download" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementDownload obj = liftIO $ getObjectPropertyString obj "download" - -setDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementDownload obj val = liftIO $ setObjectPropertyString obj "download" (Just val) - -constructDOMHTMLAnchorElementDownload :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementDownload val = constructObjectPropertyString "download" (Just val) - -clearDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () -clearDOMHTMLAnchorElementDownload obj = liftIO $ setObjectPropertyString obj "download" (Nothing :: Maybe T.Text) - -data DOMHTMLAnchorElementDownloadPropertyInfo -instance AttrInfo DOMHTMLAnchorElementDownloadPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementDownloadPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementDownloadPropertyInfo = "download" - attrGet _ = getDOMHTMLAnchorElementDownload - attrSet _ = setDOMHTMLAnchorElementDownload - attrConstruct _ = constructDOMHTMLAnchorElementDownload - attrClear _ = clearDOMHTMLAnchorElementDownload - --- VVV Prop "hash" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementHash obj = liftIO $ getObjectPropertyString obj "hash" - -setDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHash obj val = liftIO $ setObjectPropertyString obj "hash" (Just val) - -constructDOMHTMLAnchorElementHash :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHash val = constructObjectPropertyString "hash" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementHashPropertyInfo = "hash" - attrGet _ = getDOMHTMLAnchorElementHash - attrSet _ = setDOMHTMLAnchorElementHash - attrConstruct _ = constructDOMHTMLAnchorElementHash - attrClear _ = undefined - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementHost obj = liftIO $ getObjectPropertyString obj "host" - -setDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHost obj val = liftIO $ setObjectPropertyString obj "host" (Just val) - -constructDOMHTMLAnchorElementHost :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHost val = constructObjectPropertyString "host" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementHostPropertyInfo = "host" - attrGet _ = getDOMHTMLAnchorElementHost - attrSet _ = setDOMHTMLAnchorElementHost - attrConstruct _ = constructDOMHTMLAnchorElementHost - attrClear _ = undefined - --- VVV Prop "hostname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" - -setDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHostname obj val = liftIO $ setObjectPropertyString obj "hostname" (Just val) - -constructDOMHTMLAnchorElementHostname :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHostname val = constructObjectPropertyString "hostname" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementHostnamePropertyInfo = "hostname" - attrGet _ = getDOMHTMLAnchorElementHostname - attrSet _ = setDOMHTMLAnchorElementHostname - attrConstruct _ = constructDOMHTMLAnchorElementHostname - attrClear _ = undefined - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) - -constructDOMHTMLAnchorElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHref val = constructObjectPropertyString "href" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementHrefPropertyInfo = "href" - attrGet _ = getDOMHTMLAnchorElementHref - attrSet _ = setDOMHTMLAnchorElementHref - attrConstruct _ = constructDOMHTMLAnchorElementHref - attrClear _ = undefined - --- VVV Prop "hreflang" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" - -setDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" (Just val) - -constructDOMHTMLAnchorElementHreflang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementHreflang val = constructObjectPropertyString "hreflang" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementHreflangPropertyInfo = "hreflang" - attrGet _ = getDOMHTMLAnchorElementHreflang - attrSet _ = setDOMHTMLAnchorElementHreflang - attrConstruct _ = constructDOMHTMLAnchorElementHreflang - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLAnchorElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLAnchorElementName - attrSet _ = setDOMHTMLAnchorElementName - attrConstruct _ = constructDOMHTMLAnchorElementName - attrClear _ = undefined - --- VVV Prop "origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAnchorElementOrigin :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementOrigin obj = liftIO $ getObjectPropertyString obj "origin" - -data DOMHTMLAnchorElementOriginPropertyInfo -instance AttrInfo DOMHTMLAnchorElementOriginPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementOriginPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementOriginPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementOriginPropertyInfo = "origin" - attrGet _ = getDOMHTMLAnchorElementOrigin - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "pathname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" - -setDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPathname obj val = liftIO $ setObjectPropertyString obj "pathname" (Just val) - -constructDOMHTMLAnchorElementPathname :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPathname val = constructObjectPropertyString "pathname" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementPathnamePropertyInfo = "pathname" - attrGet _ = getDOMHTMLAnchorElementPathname - attrSet _ = setDOMHTMLAnchorElementPathname - attrConstruct _ = constructDOMHTMLAnchorElementPathname - attrClear _ = undefined - --- VVV Prop "ping" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementPing obj = liftIO $ getObjectPropertyString obj "ping" - -setDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPing obj val = liftIO $ setObjectPropertyString obj "ping" (Just val) - -constructDOMHTMLAnchorElementPing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPing val = constructObjectPropertyString "ping" (Just val) - -clearDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () -clearDOMHTMLAnchorElementPing obj = liftIO $ setObjectPropertyString obj "ping" (Nothing :: Maybe T.Text) - -data DOMHTMLAnchorElementPingPropertyInfo -instance AttrInfo DOMHTMLAnchorElementPingPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementPingPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementPingPropertyInfo = "ping" - attrGet _ = getDOMHTMLAnchorElementPing - attrSet _ = setDOMHTMLAnchorElementPing - attrConstruct _ = constructDOMHTMLAnchorElementPing - attrClear _ = clearDOMHTMLAnchorElementPing - --- VVV Prop "port" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementPort obj = liftIO $ getObjectPropertyString obj "port" - -setDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementPort obj val = liftIO $ setObjectPropertyString obj "port" (Just val) - -constructDOMHTMLAnchorElementPort :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementPort val = constructObjectPropertyString "port" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementPortPropertyInfo = "port" - attrGet _ = getDOMHTMLAnchorElementPort - attrSet _ = setDOMHTMLAnchorElementPort - attrConstruct _ = constructDOMHTMLAnchorElementPort - attrClear _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -setDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementProtocol obj val = liftIO $ setObjectPropertyString obj "protocol" (Just val) - -constructDOMHTMLAnchorElementProtocol :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementProtocol val = constructObjectPropertyString "protocol" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementProtocolPropertyInfo = "protocol" - attrGet _ = getDOMHTMLAnchorElementProtocol - attrSet _ = setDOMHTMLAnchorElementProtocol - attrConstruct _ = constructDOMHTMLAnchorElementProtocol - attrClear _ = undefined - --- VVV Prop "rel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementRel obj = liftIO $ getObjectPropertyString obj "rel" - -setDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementRel obj val = liftIO $ setObjectPropertyString obj "rel" (Just val) - -constructDOMHTMLAnchorElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementRel val = constructObjectPropertyString "rel" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementRelPropertyInfo = "rel" - attrGet _ = getDOMHTMLAnchorElementRel - attrSet _ = setDOMHTMLAnchorElementRel - attrConstruct _ = constructDOMHTMLAnchorElementRel - attrClear _ = undefined - --- VVV Prop "rev" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementRev obj = liftIO $ getObjectPropertyString obj "rev" - -setDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementRev obj val = liftIO $ setObjectPropertyString obj "rev" (Just val) - -constructDOMHTMLAnchorElementRev :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementRev val = constructObjectPropertyString "rev" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementRevPropertyInfo = "rev" - attrGet _ = getDOMHTMLAnchorElementRev - attrSet _ = setDOMHTMLAnchorElementRev - attrConstruct _ = constructDOMHTMLAnchorElementRev - attrClear _ = undefined - --- VVV Prop "search" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementSearch obj = liftIO $ getObjectPropertyString obj "search" - -setDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementSearch obj val = liftIO $ setObjectPropertyString obj "search" (Just val) - -constructDOMHTMLAnchorElementSearch :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementSearch val = constructObjectPropertyString "search" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementSearchPropertyInfo = "search" - attrGet _ = getDOMHTMLAnchorElementSearch - attrSet _ = setDOMHTMLAnchorElementSearch - attrConstruct _ = constructDOMHTMLAnchorElementSearch - attrClear _ = undefined - --- VVV Prop "shape" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementShape obj = liftIO $ getObjectPropertyString obj "shape" - -setDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementShape obj val = liftIO $ setObjectPropertyString obj "shape" (Just val) - -constructDOMHTMLAnchorElementShape :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementShape val = constructObjectPropertyString "shape" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementShapePropertyInfo = "shape" - attrGet _ = getDOMHTMLAnchorElementShape - attrSet _ = setDOMHTMLAnchorElementShape - attrConstruct _ = constructDOMHTMLAnchorElementShape - attrClear _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) - -constructDOMHTMLAnchorElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementTarget val = constructObjectPropertyString "target" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementTargetPropertyInfo = "target" - attrGet _ = getDOMHTMLAnchorElementTarget - attrSet _ = setDOMHTMLAnchorElementTarget - attrConstruct _ = constructDOMHTMLAnchorElementTarget - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructDOMHTMLAnchorElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementText val = constructObjectPropertyString "text" (Just val) - -clearDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () -clearDOMHTMLAnchorElementText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) - -data DOMHTMLAnchorElementTextPropertyInfo -instance AttrInfo DOMHTMLAnchorElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementTextPropertyInfo = "text" - attrGet _ = getDOMHTMLAnchorElementText - attrSet _ = setDOMHTMLAnchorElementText - attrConstruct _ = constructDOMHTMLAnchorElementText - attrClear _ = clearDOMHTMLAnchorElementText - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAnchorElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () -setDOMHTMLAnchorElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLAnchorElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAnchorElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m () -clearDOMHTMLAnchorElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLAnchorElementTypePropertyInfo -instance AttrInfo DOMHTMLAnchorElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLAnchorElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = DOMHTMLAnchorElementK - type AttrGetType DOMHTMLAnchorElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAnchorElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLAnchorElementType - attrSet _ = setDOMHTMLAnchorElementType - attrConstruct _ = constructDOMHTMLAnchorElementType - attrClear _ = clearDOMHTMLAnchorElementType - -type instance AttributeList DOMHTMLAnchorElement = DOMHTMLAnchorElementAttributeList -type DOMHTMLAnchorElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLAnchorElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAnchorElementCoordsPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("download", DOMHTMLAnchorElementDownloadPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAnchorElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAnchorElementHostPropertyInfo), '("hostname", DOMHTMLAnchorElementHostnamePropertyInfo), '("href", DOMHTMLAnchorElementHrefPropertyInfo), '("hreflang", DOMHTMLAnchorElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAnchorElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("origin", DOMHTMLAnchorElementOriginPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAnchorElementPathnamePropertyInfo), '("ping", DOMHTMLAnchorElementPingPropertyInfo), '("port", DOMHTMLAnchorElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAnchorElementProtocolPropertyInfo), '("rel", DOMHTMLAnchorElementRelPropertyInfo), '("rev", DOMHTMLAnchorElementRevPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAnchorElementSearchPropertyInfo), '("shape", DOMHTMLAnchorElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAnchorElementTargetPropertyInfo), '("text", DOMHTMLAnchorElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLAnchorElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLAnchorElementCharset :: AttrLabelProxy "charset" -dOMHTMLAnchorElementCharset = AttrLabelProxy - -dOMHTMLAnchorElementCoords :: AttrLabelProxy "coords" -dOMHTMLAnchorElementCoords = AttrLabelProxy - -dOMHTMLAnchorElementDownload :: AttrLabelProxy "download" -dOMHTMLAnchorElementDownload = AttrLabelProxy - -dOMHTMLAnchorElementHash :: AttrLabelProxy "hash" -dOMHTMLAnchorElementHash = AttrLabelProxy - -dOMHTMLAnchorElementHost :: AttrLabelProxy "host" -dOMHTMLAnchorElementHost = AttrLabelProxy - -dOMHTMLAnchorElementHostname :: AttrLabelProxy "hostname" -dOMHTMLAnchorElementHostname = AttrLabelProxy - -dOMHTMLAnchorElementHref :: AttrLabelProxy "href" -dOMHTMLAnchorElementHref = AttrLabelProxy - -dOMHTMLAnchorElementHreflang :: AttrLabelProxy "hreflang" -dOMHTMLAnchorElementHreflang = AttrLabelProxy - -dOMHTMLAnchorElementName :: AttrLabelProxy "name" -dOMHTMLAnchorElementName = AttrLabelProxy - -dOMHTMLAnchorElementOrigin :: AttrLabelProxy "origin" -dOMHTMLAnchorElementOrigin = AttrLabelProxy - -dOMHTMLAnchorElementPathname :: AttrLabelProxy "pathname" -dOMHTMLAnchorElementPathname = AttrLabelProxy - -dOMHTMLAnchorElementPing :: AttrLabelProxy "ping" -dOMHTMLAnchorElementPing = AttrLabelProxy - -dOMHTMLAnchorElementPort :: AttrLabelProxy "port" -dOMHTMLAnchorElementPort = AttrLabelProxy - -dOMHTMLAnchorElementProtocol :: AttrLabelProxy "protocol" -dOMHTMLAnchorElementProtocol = AttrLabelProxy - -dOMHTMLAnchorElementRel :: AttrLabelProxy "rel" -dOMHTMLAnchorElementRel = AttrLabelProxy - -dOMHTMLAnchorElementRev :: AttrLabelProxy "rev" -dOMHTMLAnchorElementRev = AttrLabelProxy - -dOMHTMLAnchorElementSearch :: AttrLabelProxy "search" -dOMHTMLAnchorElementSearch = AttrLabelProxy - -dOMHTMLAnchorElementShape :: AttrLabelProxy "shape" -dOMHTMLAnchorElementShape = AttrLabelProxy - -dOMHTMLAnchorElementTarget :: AttrLabelProxy "target" -dOMHTMLAnchorElementTarget = AttrLabelProxy - -dOMHTMLAnchorElementText :: AttrLabelProxy "text" -dOMHTMLAnchorElementText = AttrLabelProxy - -dOMHTMLAnchorElementType :: AttrLabelProxy "type" -dOMHTMLAnchorElementType = AttrLabelProxy - -type instance SignalList DOMHTMLAnchorElement = DOMHTMLAnchorElementSignalList -type DOMHTMLAnchorElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLAnchorElement::get_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetCharsetMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetCharset - --- method DOMHTMLAnchorElement::get_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetCoordsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetCoordsMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetCoords - --- method DOMHTMLAnchorElement::get_hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetHashMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetHashMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetHash - --- method DOMHTMLAnchorElement::get_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetHostMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetHostMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetHost - --- method DOMHTMLAnchorElement::get_hostname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetHostnameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetHostnameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetHostname - --- method DOMHTMLAnchorElement::get_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetHrefMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetHref - --- method DOMHTMLAnchorElement::get_hreflang --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetHreflangMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetHreflangMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetHreflang - --- method DOMHTMLAnchorElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetName - --- method DOMHTMLAnchorElement::get_pathname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetPathnameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetPathnameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetPathname - --- method DOMHTMLAnchorElement::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetPortMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetPortMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetPort - --- method DOMHTMLAnchorElement::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetProtocolMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetProtocolMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetProtocol - --- method DOMHTMLAnchorElement::get_rel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetRelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetRelMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetRel - --- method DOMHTMLAnchorElement::get_rev --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetRevMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetRevMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetRev - --- method DOMHTMLAnchorElement::get_search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetSearchMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetSearchMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetSearch - --- method DOMHTMLAnchorElement::get_shape --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetShapeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetShapeMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetShape - --- method DOMHTMLAnchorElement::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetTargetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetTarget - --- method DOMHTMLAnchorElement::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetText - --- method DOMHTMLAnchorElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAnchorElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementGetTypeAttr - --- method DOMHTMLAnchorElement::set_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetCharsetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetCharsetMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetCharset - --- method DOMHTMLAnchorElement::set_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetCoordsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetCoordsMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetCoords - --- method DOMHTMLAnchorElement::set_hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetHashMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetHashMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetHash - --- method DOMHTMLAnchorElement::set_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetHostMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetHostMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetHost - --- method DOMHTMLAnchorElement::set_hostname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetHostnameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetHostnameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetHostname - --- method DOMHTMLAnchorElement::set_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetHrefMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetHref - --- method DOMHTMLAnchorElement::set_hreflang --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetHreflangMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetHreflangMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetHreflang - --- method DOMHTMLAnchorElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetName - --- method DOMHTMLAnchorElement::set_pathname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetPathnameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetPathnameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetPathname - --- method DOMHTMLAnchorElement::set_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetPortMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetPortMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetPort - --- method DOMHTMLAnchorElement::set_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetProtocolMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetProtocolMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetProtocol - --- method DOMHTMLAnchorElement::set_rel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetRelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetRelMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetRel - --- method DOMHTMLAnchorElement::set_rev --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetRevMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetRevMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetRev - --- method DOMHTMLAnchorElement::set_search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetSearchMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetSearchMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetSearch - --- method DOMHTMLAnchorElement::set_shape --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetShapeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetShapeMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetShape - --- method DOMHTMLAnchorElement::set_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetTargetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetTarget - --- method DOMHTMLAnchorElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAnchorElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAnchorElementK a) => MethodInfo DOMHTMLAnchorElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLAnchorElementSetTypeAttr - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot +++ /dev/null @@ -1,69 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLAnchorElementGetCharsetMethodInfo -data DOMHTMLAnchorElementGetCoordsMethodInfo -data DOMHTMLAnchorElementGetHashMethodInfo -data DOMHTMLAnchorElementGetHostMethodInfo -data DOMHTMLAnchorElementGetHostnameMethodInfo -data DOMHTMLAnchorElementGetHrefMethodInfo -data DOMHTMLAnchorElementGetHreflangMethodInfo -data DOMHTMLAnchorElementGetNameMethodInfo -data DOMHTMLAnchorElementGetPathnameMethodInfo -data DOMHTMLAnchorElementGetPortMethodInfo -data DOMHTMLAnchorElementGetProtocolMethodInfo -data DOMHTMLAnchorElementGetRelMethodInfo -data DOMHTMLAnchorElementGetRevMethodInfo -data DOMHTMLAnchorElementGetSearchMethodInfo -data DOMHTMLAnchorElementGetShapeMethodInfo -data DOMHTMLAnchorElementGetTargetMethodInfo -data DOMHTMLAnchorElementGetTextMethodInfo -data DOMHTMLAnchorElementGetTypeAttrMethodInfo -data DOMHTMLAnchorElementSetCharsetMethodInfo -data DOMHTMLAnchorElementSetCoordsMethodInfo -data DOMHTMLAnchorElementSetHashMethodInfo -data DOMHTMLAnchorElementSetHostMethodInfo -data DOMHTMLAnchorElementSetHostnameMethodInfo -data DOMHTMLAnchorElementSetHrefMethodInfo -data DOMHTMLAnchorElementSetHreflangMethodInfo -data DOMHTMLAnchorElementSetNameMethodInfo -data DOMHTMLAnchorElementSetPathnameMethodInfo -data DOMHTMLAnchorElementSetPortMethodInfo -data DOMHTMLAnchorElementSetProtocolMethodInfo -data DOMHTMLAnchorElementSetRelMethodInfo -data DOMHTMLAnchorElementSetRevMethodInfo -data DOMHTMLAnchorElementSetSearchMethodInfo -data DOMHTMLAnchorElementSetShapeMethodInfo -data DOMHTMLAnchorElementSetTargetMethodInfo -data DOMHTMLAnchorElementSetTypeAttrMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs +++ /dev/null @@ -1,1408 +0,0 @@ - - -{- | -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 - DOMHTMLAppletElementGetAlignMethodInfo , - dOMHTMLAppletElementGetAlign , - - --- ** dOMHTMLAppletElementGetAlt - DOMHTMLAppletElementGetAltMethodInfo , - dOMHTMLAppletElementGetAlt , - - --- ** dOMHTMLAppletElementGetArchive - DOMHTMLAppletElementGetArchiveMethodInfo, - dOMHTMLAppletElementGetArchive , - - --- ** dOMHTMLAppletElementGetCode - DOMHTMLAppletElementGetCodeMethodInfo , - dOMHTMLAppletElementGetCode , - - --- ** dOMHTMLAppletElementGetCodeBase - DOMHTMLAppletElementGetCodeBaseMethodInfo, - dOMHTMLAppletElementGetCodeBase , - - --- ** dOMHTMLAppletElementGetHeight - DOMHTMLAppletElementGetHeightMethodInfo , - dOMHTMLAppletElementGetHeight , - - --- ** dOMHTMLAppletElementGetHspace - DOMHTMLAppletElementGetHspaceMethodInfo , - dOMHTMLAppletElementGetHspace , - - --- ** dOMHTMLAppletElementGetName - DOMHTMLAppletElementGetNameMethodInfo , - dOMHTMLAppletElementGetName , - - --- ** dOMHTMLAppletElementGetObject - DOMHTMLAppletElementGetObjectMethodInfo , - dOMHTMLAppletElementGetObject , - - --- ** dOMHTMLAppletElementGetVspace - DOMHTMLAppletElementGetVspaceMethodInfo , - dOMHTMLAppletElementGetVspace , - - --- ** dOMHTMLAppletElementGetWidth - DOMHTMLAppletElementGetWidthMethodInfo , - dOMHTMLAppletElementGetWidth , - - --- ** dOMHTMLAppletElementSetAlign - DOMHTMLAppletElementSetAlignMethodInfo , - dOMHTMLAppletElementSetAlign , - - --- ** dOMHTMLAppletElementSetAlt - DOMHTMLAppletElementSetAltMethodInfo , - dOMHTMLAppletElementSetAlt , - - --- ** dOMHTMLAppletElementSetArchive - DOMHTMLAppletElementSetArchiveMethodInfo, - dOMHTMLAppletElementSetArchive , - - --- ** dOMHTMLAppletElementSetCode - DOMHTMLAppletElementSetCodeMethodInfo , - dOMHTMLAppletElementSetCode , - - --- ** dOMHTMLAppletElementSetCodeBase - DOMHTMLAppletElementSetCodeBaseMethodInfo, - dOMHTMLAppletElementSetCodeBase , - - --- ** dOMHTMLAppletElementSetHeight - DOMHTMLAppletElementSetHeightMethodInfo , - dOMHTMLAppletElementSetHeight , - - --- ** dOMHTMLAppletElementSetHspace - DOMHTMLAppletElementSetHspaceMethodInfo , - dOMHTMLAppletElementSetHspace , - - --- ** dOMHTMLAppletElementSetName - DOMHTMLAppletElementSetNameMethodInfo , - dOMHTMLAppletElementSetName , - - --- ** dOMHTMLAppletElementSetObject - DOMHTMLAppletElementSetObjectMethodInfo , - dOMHTMLAppletElementSetObject , - - --- ** dOMHTMLAppletElementSetVspace - DOMHTMLAppletElementSetVspaceMethodInfo , - dOMHTMLAppletElementSetVspace , - - --- ** dOMHTMLAppletElementSetWidth - DOMHTMLAppletElementSetWidthMethodInfo , - dOMHTMLAppletElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLAppletElementAlignPropertyInfo , - constructDOMHTMLAppletElementAlign , - dOMHTMLAppletElementAlign , - getDOMHTMLAppletElementAlign , - setDOMHTMLAppletElementAlign , - - --- ** Alt - DOMHTMLAppletElementAltPropertyInfo , - constructDOMHTMLAppletElementAlt , - dOMHTMLAppletElementAlt , - getDOMHTMLAppletElementAlt , - setDOMHTMLAppletElementAlt , - - --- ** Archive - DOMHTMLAppletElementArchivePropertyInfo , - constructDOMHTMLAppletElementArchive , - dOMHTMLAppletElementArchive , - getDOMHTMLAppletElementArchive , - setDOMHTMLAppletElementArchive , - - --- ** Code - DOMHTMLAppletElementCodePropertyInfo , - constructDOMHTMLAppletElementCode , - dOMHTMLAppletElementCode , - getDOMHTMLAppletElementCode , - setDOMHTMLAppletElementCode , - - --- ** CodeBase - DOMHTMLAppletElementCodeBasePropertyInfo, - constructDOMHTMLAppletElementCodeBase , - dOMHTMLAppletElementCodeBase , - getDOMHTMLAppletElementCodeBase , - setDOMHTMLAppletElementCodeBase , - - --- ** Height - DOMHTMLAppletElementHeightPropertyInfo , - constructDOMHTMLAppletElementHeight , - dOMHTMLAppletElementHeight , - getDOMHTMLAppletElementHeight , - setDOMHTMLAppletElementHeight , - - --- ** Hspace - DOMHTMLAppletElementHspacePropertyInfo , - constructDOMHTMLAppletElementHspace , - dOMHTMLAppletElementHspace , - getDOMHTMLAppletElementHspace , - setDOMHTMLAppletElementHspace , - - --- ** Name - DOMHTMLAppletElementNamePropertyInfo , - constructDOMHTMLAppletElementName , - dOMHTMLAppletElementName , - getDOMHTMLAppletElementName , - setDOMHTMLAppletElementName , - - --- ** Object - DOMHTMLAppletElementObjectPropertyInfo , - constructDOMHTMLAppletElementObject , - dOMHTMLAppletElementObject , - getDOMHTMLAppletElementObject , - setDOMHTMLAppletElementObject , - - --- ** Vspace - DOMHTMLAppletElementVspacePropertyInfo , - constructDOMHTMLAppletElementVspace , - dOMHTMLAppletElementVspace , - getDOMHTMLAppletElementVspace , - setDOMHTMLAppletElementVspace , - - --- ** Width - DOMHTMLAppletElementWidthPropertyInfo , - constructDOMHTMLAppletElementWidth , - dOMHTMLAppletElementWidth , - getDOMHTMLAppletElementWidth , - setDOMHTMLAppletElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLAppletElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLAppletElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLAppletElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLAppletElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLAppletElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLAppletElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLAppletElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLAppletElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLAppletElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLAppletElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLAppletElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLAppletElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLAppletElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLAppletElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLAppletElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLAppletElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLAppletElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLAppletElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLAppletElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLAppletElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLAppletElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLAppletElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLAppletElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLAppletElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLAppletElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLAppletElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLAppletElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLAppletElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLAppletElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLAppletElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLAppletElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLAppletElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLAppletElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLAppletElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLAppletElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLAppletElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLAppletElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLAppletElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLAppletElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLAppletElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLAppletElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLAppletElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLAppletElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLAppletElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLAppletElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLAppletElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLAppletElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLAppletElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLAppletElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLAppletElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLAppletElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLAppletElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLAppletElementMethod "getAlign" o = DOMHTMLAppletElementGetAlignMethodInfo - ResolveDOMHTMLAppletElementMethod "getAlt" o = DOMHTMLAppletElementGetAltMethodInfo - ResolveDOMHTMLAppletElementMethod "getArchive" o = DOMHTMLAppletElementGetArchiveMethodInfo - ResolveDOMHTMLAppletElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLAppletElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLAppletElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLAppletElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLAppletElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLAppletElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLAppletElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLAppletElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLAppletElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLAppletElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLAppletElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLAppletElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLAppletElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLAppletElementMethod "getCode" o = DOMHTMLAppletElementGetCodeMethodInfo - ResolveDOMHTMLAppletElementMethod "getCodeBase" o = DOMHTMLAppletElementGetCodeBaseMethodInfo - ResolveDOMHTMLAppletElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLAppletElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLAppletElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLAppletElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLAppletElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLAppletElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLAppletElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLAppletElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLAppletElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLAppletElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLAppletElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLAppletElementMethod "getHeight" o = DOMHTMLAppletElementGetHeightMethodInfo - ResolveDOMHTMLAppletElementMethod "getHspace" o = DOMHTMLAppletElementGetHspaceMethodInfo - ResolveDOMHTMLAppletElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLAppletElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLAppletElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLAppletElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLAppletElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLAppletElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLAppletElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLAppletElementMethod "getName" o = DOMHTMLAppletElementGetNameMethodInfo - ResolveDOMHTMLAppletElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLAppletElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLAppletElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLAppletElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLAppletElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLAppletElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLAppletElementMethod "getObject" o = DOMHTMLAppletElementGetObjectMethodInfo - ResolveDOMHTMLAppletElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLAppletElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLAppletElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLAppletElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLAppletElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLAppletElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLAppletElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLAppletElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLAppletElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLAppletElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLAppletElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLAppletElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLAppletElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLAppletElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLAppletElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLAppletElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLAppletElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLAppletElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLAppletElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLAppletElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLAppletElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLAppletElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLAppletElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLAppletElementMethod "getVspace" o = DOMHTMLAppletElementGetVspaceMethodInfo - ResolveDOMHTMLAppletElementMethod "getWidth" o = DOMHTMLAppletElementGetWidthMethodInfo - ResolveDOMHTMLAppletElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLAppletElementMethod "setAlign" o = DOMHTMLAppletElementSetAlignMethodInfo - ResolveDOMHTMLAppletElementMethod "setAlt" o = DOMHTMLAppletElementSetAltMethodInfo - ResolveDOMHTMLAppletElementMethod "setArchive" o = DOMHTMLAppletElementSetArchiveMethodInfo - ResolveDOMHTMLAppletElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLAppletElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLAppletElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLAppletElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLAppletElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLAppletElementMethod "setCode" o = DOMHTMLAppletElementSetCodeMethodInfo - ResolveDOMHTMLAppletElementMethod "setCodeBase" o = DOMHTMLAppletElementSetCodeBaseMethodInfo - ResolveDOMHTMLAppletElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLAppletElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLAppletElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLAppletElementMethod "setHeight" o = DOMHTMLAppletElementSetHeightMethodInfo - ResolveDOMHTMLAppletElementMethod "setHspace" o = DOMHTMLAppletElementSetHspaceMethodInfo - ResolveDOMHTMLAppletElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLAppletElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLAppletElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLAppletElementMethod "setName" o = DOMHTMLAppletElementSetNameMethodInfo - ResolveDOMHTMLAppletElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLAppletElementMethod "setObject" o = DOMHTMLAppletElementSetObjectMethodInfo - ResolveDOMHTMLAppletElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLAppletElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLAppletElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLAppletElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLAppletElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLAppletElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLAppletElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLAppletElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLAppletElementMethod "setVspace" o = DOMHTMLAppletElementSetVspaceMethodInfo - ResolveDOMHTMLAppletElementMethod "setWidth" o = DOMHTMLAppletElementSetWidthMethodInfo - ResolveDOMHTMLAppletElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLAppletElementMethod t DOMHTMLAppletElement, MethodInfo info DOMHTMLAppletElement p) => IsLabelProxy t (DOMHTMLAppletElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLAppletElementMethod t DOMHTMLAppletElement, MethodInfo info DOMHTMLAppletElement p) => IsLabel t (DOMHTMLAppletElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLAppletElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLAppletElementAlign - attrSet _ = setDOMHTMLAppletElementAlign - attrConstruct _ = constructDOMHTMLAppletElementAlign - attrClear _ = undefined - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) - -constructDOMHTMLAppletElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementAlt val = constructObjectPropertyString "alt" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementAltPropertyInfo = "alt" - attrGet _ = getDOMHTMLAppletElementAlt - attrSet _ = setDOMHTMLAppletElementAlt - attrConstruct _ = constructDOMHTMLAppletElementAlt - attrClear _ = undefined - --- VVV Prop "archive" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementArchive obj = liftIO $ getObjectPropertyString obj "archive" - -setDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" (Just val) - -constructDOMHTMLAppletElementArchive :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementArchive val = constructObjectPropertyString "archive" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementArchivePropertyInfo = "archive" - attrGet _ = getDOMHTMLAppletElementArchive - attrSet _ = setDOMHTMLAppletElementArchive - attrConstruct _ = constructDOMHTMLAppletElementArchive - attrClear _ = undefined - --- VVV Prop "code" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementCode obj = liftIO $ getObjectPropertyString obj "code" - -setDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementCode obj val = liftIO $ setObjectPropertyString obj "code" (Just val) - -constructDOMHTMLAppletElementCode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementCode val = constructObjectPropertyString "code" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementCodePropertyInfo = "code" - attrGet _ = getDOMHTMLAppletElementCode - attrSet _ = setDOMHTMLAppletElementCode - attrConstruct _ = constructDOMHTMLAppletElementCode - attrClear _ = undefined - --- VVV Prop "code-base" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLAppletElementCodeBase :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementCodeBase val = constructObjectPropertyString "code-base" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementCodeBasePropertyInfo = "code-base" - attrGet _ = getDOMHTMLAppletElementCodeBase - attrSet _ = setDOMHTMLAppletElementCodeBase - attrConstruct _ = constructDOMHTMLAppletElementCodeBase - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) - -constructDOMHTMLAppletElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementHeight val = constructObjectPropertyString "height" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLAppletElementHeight - attrSet _ = setDOMHTMLAppletElementHeight - attrConstruct _ = constructDOMHTMLAppletElementHeight - attrClear _ = undefined - --- VVV Prop "hspace" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m CLong -getDOMHTMLAppletElementHspace obj = liftIO $ getObjectPropertyLong obj "hspace" - -setDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> CLong -> m () -setDOMHTMLAppletElementHspace obj val = liftIO $ setObjectPropertyLong obj "hspace" val - -constructDOMHTMLAppletElementHspace :: CLong -> IO ([Char], GValue) -constructDOMHTMLAppletElementHspace val = constructObjectPropertyLong "hspace" val - -data DOMHTMLAppletElementHspacePropertyInfo -instance AttrInfo DOMHTMLAppletElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementHspacePropertyInfo = CLong - type AttrLabel DOMHTMLAppletElementHspacePropertyInfo = "hspace" - attrGet _ = getDOMHTMLAppletElementHspace - attrSet _ = setDOMHTMLAppletElementHspace - attrConstruct _ = constructDOMHTMLAppletElementHspace - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLAppletElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLAppletElementName - attrSet _ = setDOMHTMLAppletElementName - attrConstruct _ = constructDOMHTMLAppletElementName - attrClear _ = undefined - --- VVV Prop "object" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementObject obj = liftIO $ getObjectPropertyString obj "object" - -setDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementObject obj val = liftIO $ setObjectPropertyString obj "object" (Just val) - -constructDOMHTMLAppletElementObject :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementObject val = constructObjectPropertyString "object" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementObjectPropertyInfo = "object" - attrGet _ = getDOMHTMLAppletElementObject - attrSet _ = setDOMHTMLAppletElementObject - attrConstruct _ = constructDOMHTMLAppletElementObject - attrClear _ = undefined - --- VVV Prop "vspace" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m CLong -getDOMHTMLAppletElementVspace obj = liftIO $ getObjectPropertyLong obj "vspace" - -setDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> CLong -> m () -setDOMHTMLAppletElementVspace obj val = liftIO $ setObjectPropertyLong obj "vspace" val - -constructDOMHTMLAppletElementVspace :: CLong -> IO ([Char], GValue) -constructDOMHTMLAppletElementVspace val = constructObjectPropertyLong "vspace" val - -data DOMHTMLAppletElementVspacePropertyInfo -instance AttrInfo DOMHTMLAppletElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLAppletElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = DOMHTMLAppletElementK - type AttrGetType DOMHTMLAppletElementVspacePropertyInfo = CLong - type AttrLabel DOMHTMLAppletElementVspacePropertyInfo = "vspace" - attrGet _ = getDOMHTMLAppletElementVspace - attrSet _ = setDOMHTMLAppletElementVspace - attrConstruct _ = constructDOMHTMLAppletElementVspace - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAppletElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () -setDOMHTMLAppletElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLAppletElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAppletElementWidth val = constructObjectPropertyString "width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAppletElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLAppletElementWidth - attrSet _ = setDOMHTMLAppletElementWidth - attrConstruct _ = constructDOMHTMLAppletElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLAppletElement = DOMHTMLAppletElementAttributeList -type DOMHTMLAppletElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLAppletElementAlignPropertyInfo), '("alt", DOMHTMLAppletElementAltPropertyInfo), '("archive", DOMHTMLAppletElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLAppletElementCodePropertyInfo), '("codeBase", DOMHTMLAppletElementCodeBasePropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLAppletElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLAppletElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAppletElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("object", DOMHTMLAppletElementObjectPropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("vspace", DOMHTMLAppletElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLAppletElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLAppletElementAlign :: AttrLabelProxy "align" -dOMHTMLAppletElementAlign = AttrLabelProxy - -dOMHTMLAppletElementAlt :: AttrLabelProxy "alt" -dOMHTMLAppletElementAlt = AttrLabelProxy - -dOMHTMLAppletElementArchive :: AttrLabelProxy "archive" -dOMHTMLAppletElementArchive = AttrLabelProxy - -dOMHTMLAppletElementCode :: AttrLabelProxy "code" -dOMHTMLAppletElementCode = AttrLabelProxy - -dOMHTMLAppletElementCodeBase :: AttrLabelProxy "codeBase" -dOMHTMLAppletElementCodeBase = AttrLabelProxy - -dOMHTMLAppletElementHeight :: AttrLabelProxy "height" -dOMHTMLAppletElementHeight = AttrLabelProxy - -dOMHTMLAppletElementHspace :: AttrLabelProxy "hspace" -dOMHTMLAppletElementHspace = AttrLabelProxy - -dOMHTMLAppletElementName :: AttrLabelProxy "name" -dOMHTMLAppletElementName = AttrLabelProxy - -dOMHTMLAppletElementObject :: AttrLabelProxy "object" -dOMHTMLAppletElementObject = AttrLabelProxy - -dOMHTMLAppletElementVspace :: AttrLabelProxy "vspace" -dOMHTMLAppletElementVspace = AttrLabelProxy - -dOMHTMLAppletElementWidth :: AttrLabelProxy "width" -dOMHTMLAppletElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLAppletElement = DOMHTMLAppletElementSignalList -type DOMHTMLAppletElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLAppletElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetAlign - --- method DOMHTMLAppletElement::get_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetAltMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetAlt - --- method DOMHTMLAppletElement::get_archive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetArchiveMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetArchiveMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetArchive - --- method DOMHTMLAppletElement::get_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetCodeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetCodeMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetCode - --- method DOMHTMLAppletElement::get_code_base --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetCodeBaseMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetCodeBaseMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetCodeBase - --- method DOMHTMLAppletElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetHeightMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetHeight - --- method DOMHTMLAppletElement::get_hspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLAppletElementGetHspace :: - (MonadIO m, DOMHTMLAppletElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLAppletElementGetHspace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_applet_element_get_hspace _obj' - touchManagedPtr _obj - return result - -data DOMHTMLAppletElementGetHspaceMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetHspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetHspace - --- method DOMHTMLAppletElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetName - --- method DOMHTMLAppletElement::get_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetObjectMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetObjectMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetObject - --- method DOMHTMLAppletElement::get_vspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLAppletElementGetVspace :: - (MonadIO m, DOMHTMLAppletElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLAppletElementGetVspace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_applet_element_get_vspace _obj' - touchManagedPtr _obj - return result - -data DOMHTMLAppletElementGetVspaceMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetVspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetVspace - --- method DOMHTMLAppletElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAppletElementGetWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementGetWidth - --- method DOMHTMLAppletElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetAlign - --- method DOMHTMLAppletElement::set_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetAltMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetAlt - --- method DOMHTMLAppletElement::set_archive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetArchiveMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetArchiveMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetArchive - --- method DOMHTMLAppletElement::set_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetCodeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetCodeMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetCode - --- method DOMHTMLAppletElement::set_code_base --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetCodeBaseMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetCodeBaseMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetCodeBase - --- method DOMHTMLAppletElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetHeightMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetHeight - --- method DOMHTMLAppletElement::set_hspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLAppletElementSetHspace :: - (MonadIO m, DOMHTMLAppletElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLAppletElementSetHspace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_applet_element_set_hspace _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLAppletElementSetHspaceMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetHspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetHspace - --- method DOMHTMLAppletElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetName - --- method DOMHTMLAppletElement::set_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetObjectMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetObjectMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetObject - --- method DOMHTMLAppletElement::set_vspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLAppletElementSetVspace :: - (MonadIO m, DOMHTMLAppletElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLAppletElementSetVspace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_applet_element_set_vspace _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLAppletElementSetVspaceMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetVspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetVspace - --- method DOMHTMLAppletElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAppletElementSetWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAppletElementK a) => MethodInfo DOMHTMLAppletElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLAppletElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot +++ /dev/null @@ -1,46 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLAppletElementGetAlignMethodInfo -data DOMHTMLAppletElementGetAltMethodInfo -data DOMHTMLAppletElementGetArchiveMethodInfo -data DOMHTMLAppletElementGetCodeMethodInfo -data DOMHTMLAppletElementGetCodeBaseMethodInfo -data DOMHTMLAppletElementGetHeightMethodInfo -data DOMHTMLAppletElementGetHspaceMethodInfo -data DOMHTMLAppletElementGetNameMethodInfo -data DOMHTMLAppletElementGetObjectMethodInfo -data DOMHTMLAppletElementGetVspaceMethodInfo -data DOMHTMLAppletElementGetWidthMethodInfo -data DOMHTMLAppletElementSetAlignMethodInfo -data DOMHTMLAppletElementSetAltMethodInfo -data DOMHTMLAppletElementSetArchiveMethodInfo -data DOMHTMLAppletElementSetCodeMethodInfo -data DOMHTMLAppletElementSetCodeBaseMethodInfo -data DOMHTMLAppletElementSetHeightMethodInfo -data DOMHTMLAppletElementSetHspaceMethodInfo -data DOMHTMLAppletElementSetNameMethodInfo -data DOMHTMLAppletElementSetObjectMethodInfo -data DOMHTMLAppletElementSetVspaceMethodInfo -data DOMHTMLAppletElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs +++ /dev/null @@ -1,1402 +0,0 @@ - - -{- | -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 - DOMHTMLAreaElementGetAltMethodInfo , - dOMHTMLAreaElementGetAlt , - - --- ** dOMHTMLAreaElementGetCoords - DOMHTMLAreaElementGetCoordsMethodInfo , - dOMHTMLAreaElementGetCoords , - - --- ** dOMHTMLAreaElementGetHash - DOMHTMLAreaElementGetHashMethodInfo , - dOMHTMLAreaElementGetHash , - - --- ** dOMHTMLAreaElementGetHost - DOMHTMLAreaElementGetHostMethodInfo , - dOMHTMLAreaElementGetHost , - - --- ** dOMHTMLAreaElementGetHostname - DOMHTMLAreaElementGetHostnameMethodInfo , - dOMHTMLAreaElementGetHostname , - - --- ** dOMHTMLAreaElementGetHref - DOMHTMLAreaElementGetHrefMethodInfo , - dOMHTMLAreaElementGetHref , - - --- ** dOMHTMLAreaElementGetNoHref - DOMHTMLAreaElementGetNoHrefMethodInfo , - dOMHTMLAreaElementGetNoHref , - - --- ** dOMHTMLAreaElementGetPathname - DOMHTMLAreaElementGetPathnameMethodInfo , - dOMHTMLAreaElementGetPathname , - - --- ** dOMHTMLAreaElementGetPort - DOMHTMLAreaElementGetPortMethodInfo , - dOMHTMLAreaElementGetPort , - - --- ** dOMHTMLAreaElementGetProtocol - DOMHTMLAreaElementGetProtocolMethodInfo , - dOMHTMLAreaElementGetProtocol , - - --- ** dOMHTMLAreaElementGetSearch - DOMHTMLAreaElementGetSearchMethodInfo , - dOMHTMLAreaElementGetSearch , - - --- ** dOMHTMLAreaElementGetShape - DOMHTMLAreaElementGetShapeMethodInfo , - dOMHTMLAreaElementGetShape , - - --- ** dOMHTMLAreaElementGetTarget - DOMHTMLAreaElementGetTargetMethodInfo , - dOMHTMLAreaElementGetTarget , - - --- ** dOMHTMLAreaElementSetAlt - DOMHTMLAreaElementSetAltMethodInfo , - dOMHTMLAreaElementSetAlt , - - --- ** dOMHTMLAreaElementSetCoords - DOMHTMLAreaElementSetCoordsMethodInfo , - dOMHTMLAreaElementSetCoords , - - --- ** dOMHTMLAreaElementSetHref - DOMHTMLAreaElementSetHrefMethodInfo , - dOMHTMLAreaElementSetHref , - - --- ** dOMHTMLAreaElementSetNoHref - DOMHTMLAreaElementSetNoHrefMethodInfo , - dOMHTMLAreaElementSetNoHref , - - --- ** dOMHTMLAreaElementSetShape - DOMHTMLAreaElementSetShapeMethodInfo , - dOMHTMLAreaElementSetShape , - - --- ** dOMHTMLAreaElementSetTarget - DOMHTMLAreaElementSetTargetMethodInfo , - dOMHTMLAreaElementSetTarget , - - - - - -- * Properties --- ** Alt - DOMHTMLAreaElementAltPropertyInfo , - constructDOMHTMLAreaElementAlt , - dOMHTMLAreaElementAlt , - getDOMHTMLAreaElementAlt , - setDOMHTMLAreaElementAlt , - - --- ** Coords - DOMHTMLAreaElementCoordsPropertyInfo , - constructDOMHTMLAreaElementCoords , - dOMHTMLAreaElementCoords , - getDOMHTMLAreaElementCoords , - setDOMHTMLAreaElementCoords , - - --- ** Hash - DOMHTMLAreaElementHashPropertyInfo , - dOMHTMLAreaElementHash , - getDOMHTMLAreaElementHash , - - --- ** Host - DOMHTMLAreaElementHostPropertyInfo , - dOMHTMLAreaElementHost , - getDOMHTMLAreaElementHost , - - --- ** Hostname - DOMHTMLAreaElementHostnamePropertyInfo , - dOMHTMLAreaElementHostname , - getDOMHTMLAreaElementHostname , - - --- ** Href - DOMHTMLAreaElementHrefPropertyInfo , - constructDOMHTMLAreaElementHref , - dOMHTMLAreaElementHref , - getDOMHTMLAreaElementHref , - setDOMHTMLAreaElementHref , - - --- ** NoHref - DOMHTMLAreaElementNoHrefPropertyInfo , - constructDOMHTMLAreaElementNoHref , - dOMHTMLAreaElementNoHref , - getDOMHTMLAreaElementNoHref , - setDOMHTMLAreaElementNoHref , - - --- ** Pathname - DOMHTMLAreaElementPathnamePropertyInfo , - dOMHTMLAreaElementPathname , - getDOMHTMLAreaElementPathname , - - --- ** Ping - DOMHTMLAreaElementPingPropertyInfo , - clearDOMHTMLAreaElementPing , - constructDOMHTMLAreaElementPing , - dOMHTMLAreaElementPing , - getDOMHTMLAreaElementPing , - setDOMHTMLAreaElementPing , - - --- ** Port - DOMHTMLAreaElementPortPropertyInfo , - dOMHTMLAreaElementPort , - getDOMHTMLAreaElementPort , - - --- ** Protocol - DOMHTMLAreaElementProtocolPropertyInfo , - dOMHTMLAreaElementProtocol , - getDOMHTMLAreaElementProtocol , - - --- ** Rel - DOMHTMLAreaElementRelPropertyInfo , - clearDOMHTMLAreaElementRel , - constructDOMHTMLAreaElementRel , - dOMHTMLAreaElementRel , - getDOMHTMLAreaElementRel , - setDOMHTMLAreaElementRel , - - --- ** Search - DOMHTMLAreaElementSearchPropertyInfo , - dOMHTMLAreaElementSearch , - getDOMHTMLAreaElementSearch , - - --- ** Shape - DOMHTMLAreaElementShapePropertyInfo , - constructDOMHTMLAreaElementShape , - dOMHTMLAreaElementShape , - getDOMHTMLAreaElementShape , - setDOMHTMLAreaElementShape , - - --- ** Target - DOMHTMLAreaElementTargetPropertyInfo , - constructDOMHTMLAreaElementTarget , - dOMHTMLAreaElementTarget , - getDOMHTMLAreaElementTarget , - setDOMHTMLAreaElementTarget , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLAreaElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLAreaElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLAreaElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLAreaElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLAreaElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLAreaElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLAreaElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLAreaElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLAreaElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLAreaElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLAreaElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLAreaElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLAreaElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLAreaElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLAreaElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLAreaElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLAreaElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLAreaElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLAreaElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLAreaElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLAreaElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLAreaElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLAreaElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLAreaElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLAreaElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLAreaElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLAreaElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLAreaElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLAreaElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLAreaElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLAreaElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLAreaElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLAreaElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLAreaElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLAreaElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLAreaElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLAreaElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLAreaElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLAreaElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLAreaElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLAreaElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLAreaElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLAreaElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLAreaElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLAreaElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLAreaElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLAreaElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLAreaElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLAreaElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLAreaElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLAreaElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLAreaElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLAreaElementMethod "getAlt" o = DOMHTMLAreaElementGetAltMethodInfo - ResolveDOMHTMLAreaElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLAreaElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLAreaElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLAreaElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLAreaElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLAreaElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLAreaElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLAreaElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLAreaElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLAreaElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLAreaElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLAreaElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLAreaElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLAreaElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLAreaElementMethod "getCoords" o = DOMHTMLAreaElementGetCoordsMethodInfo - ResolveDOMHTMLAreaElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLAreaElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLAreaElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLAreaElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLAreaElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLAreaElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLAreaElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLAreaElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLAreaElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLAreaElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLAreaElementMethod "getHash" o = DOMHTMLAreaElementGetHashMethodInfo - ResolveDOMHTMLAreaElementMethod "getHost" o = DOMHTMLAreaElementGetHostMethodInfo - ResolveDOMHTMLAreaElementMethod "getHostname" o = DOMHTMLAreaElementGetHostnameMethodInfo - ResolveDOMHTMLAreaElementMethod "getHref" o = DOMHTMLAreaElementGetHrefMethodInfo - ResolveDOMHTMLAreaElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLAreaElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLAreaElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLAreaElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLAreaElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLAreaElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLAreaElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLAreaElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLAreaElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLAreaElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLAreaElementMethod "getNoHref" o = DOMHTMLAreaElementGetNoHrefMethodInfo - ResolveDOMHTMLAreaElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLAreaElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLAreaElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLAreaElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLAreaElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLAreaElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLAreaElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLAreaElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLAreaElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLAreaElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLAreaElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLAreaElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLAreaElementMethod "getPathname" o = DOMHTMLAreaElementGetPathnameMethodInfo - ResolveDOMHTMLAreaElementMethod "getPort" o = DOMHTMLAreaElementGetPortMethodInfo - ResolveDOMHTMLAreaElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLAreaElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLAreaElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLAreaElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLAreaElementMethod "getProtocol" o = DOMHTMLAreaElementGetProtocolMethodInfo - ResolveDOMHTMLAreaElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLAreaElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLAreaElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLAreaElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLAreaElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLAreaElementMethod "getSearch" o = DOMHTMLAreaElementGetSearchMethodInfo - ResolveDOMHTMLAreaElementMethod "getShape" o = DOMHTMLAreaElementGetShapeMethodInfo - ResolveDOMHTMLAreaElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLAreaElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLAreaElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLAreaElementMethod "getTarget" o = DOMHTMLAreaElementGetTargetMethodInfo - ResolveDOMHTMLAreaElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLAreaElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLAreaElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLAreaElementMethod "setAlt" o = DOMHTMLAreaElementSetAltMethodInfo - ResolveDOMHTMLAreaElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLAreaElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLAreaElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLAreaElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLAreaElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLAreaElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLAreaElementMethod "setCoords" o = DOMHTMLAreaElementSetCoordsMethodInfo - ResolveDOMHTMLAreaElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLAreaElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLAreaElementMethod "setHref" o = DOMHTMLAreaElementSetHrefMethodInfo - ResolveDOMHTMLAreaElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLAreaElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLAreaElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLAreaElementMethod "setNoHref" o = DOMHTMLAreaElementSetNoHrefMethodInfo - ResolveDOMHTMLAreaElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLAreaElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLAreaElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLAreaElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLAreaElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLAreaElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLAreaElementMethod "setShape" o = DOMHTMLAreaElementSetShapeMethodInfo - ResolveDOMHTMLAreaElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLAreaElementMethod "setTarget" o = DOMHTMLAreaElementSetTargetMethodInfo - ResolveDOMHTMLAreaElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLAreaElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLAreaElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLAreaElementMethod t DOMHTMLAreaElement, MethodInfo info DOMHTMLAreaElement p) => IsLabelProxy t (DOMHTMLAreaElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLAreaElementMethod t DOMHTMLAreaElement, MethodInfo info DOMHTMLAreaElement p) => IsLabel t (DOMHTMLAreaElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) - -constructDOMHTMLAreaElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementAlt val = constructObjectPropertyString "alt" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementAltPropertyInfo = "alt" - attrGet _ = getDOMHTMLAreaElementAlt - attrSet _ = setDOMHTMLAreaElementAlt - attrConstruct _ = constructDOMHTMLAreaElementAlt - attrClear _ = undefined - --- VVV Prop "coords" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementCoords obj = liftIO $ getObjectPropertyString obj "coords" - -setDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" (Just val) - -constructDOMHTMLAreaElementCoords :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementCoords val = constructObjectPropertyString "coords" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementCoordsPropertyInfo = "coords" - attrGet _ = getDOMHTMLAreaElementCoords - attrSet _ = setDOMHTMLAreaElementCoords - attrConstruct _ = constructDOMHTMLAreaElementCoords - attrClear _ = undefined - --- VVV Prop "hash" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementHash :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementHash obj = liftIO $ getObjectPropertyString obj "hash" - -data DOMHTMLAreaElementHashPropertyInfo -instance AttrInfo DOMHTMLAreaElementHashPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHashPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementHashPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementHashPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHashPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementHashPropertyInfo = "hash" - attrGet _ = getDOMHTMLAreaElementHash - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementHost :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementHost obj = liftIO $ getObjectPropertyString obj "host" - -data DOMHTMLAreaElementHostPropertyInfo -instance AttrInfo DOMHTMLAreaElementHostPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHostPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementHostPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementHostPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHostPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementHostPropertyInfo = "host" - attrGet _ = getDOMHTMLAreaElementHost - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "hostname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementHostname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" - -data DOMHTMLAreaElementHostnamePropertyInfo -instance AttrInfo DOMHTMLAreaElementHostnamePropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementHostnamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementHostnamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementHostnamePropertyInfo = "hostname" - attrGet _ = getDOMHTMLAreaElementHostname - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) - -constructDOMHTMLAreaElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementHref val = constructObjectPropertyString "href" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementHrefPropertyInfo = "href" - attrGet _ = getDOMHTMLAreaElementHref - attrSet _ = setDOMHTMLAreaElementHref - attrConstruct _ = constructDOMHTMLAreaElementHref - attrClear _ = undefined - --- VVV Prop "no-href" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "no-href" - attrGet _ = getDOMHTMLAreaElementNoHref - attrSet _ = setDOMHTMLAreaElementNoHref - attrConstruct _ = constructDOMHTMLAreaElementNoHref - attrClear _ = undefined - --- VVV Prop "pathname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementPathname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" - -data DOMHTMLAreaElementPathnamePropertyInfo -instance AttrInfo DOMHTMLAreaElementPathnamePropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPathnamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPathnamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementPathnamePropertyInfo = "pathname" - attrGet _ = getDOMHTMLAreaElementPathname - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ping" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementPing obj = liftIO $ getObjectPropertyString obj "ping" - -setDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementPing obj val = liftIO $ setObjectPropertyString obj "ping" (Just val) - -constructDOMHTMLAreaElementPing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementPing val = constructObjectPropertyString "ping" (Just val) - -clearDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m () -clearDOMHTMLAreaElementPing obj = liftIO $ setObjectPropertyString obj "ping" (Nothing :: Maybe T.Text) - -data DOMHTMLAreaElementPingPropertyInfo -instance AttrInfo DOMHTMLAreaElementPingPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementPingPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementPingPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPingPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementPingPropertyInfo = "ping" - attrGet _ = getDOMHTMLAreaElementPing - attrSet _ = setDOMHTMLAreaElementPing - attrConstruct _ = constructDOMHTMLAreaElementPing - attrClear _ = clearDOMHTMLAreaElementPing - --- VVV Prop "port" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementPort :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementPort obj = liftIO $ getObjectPropertyString obj "port" - -data DOMHTMLAreaElementPortPropertyInfo -instance AttrInfo DOMHTMLAreaElementPortPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementPortPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementPortPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementPortPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementPortPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementPortPropertyInfo = "port" - attrGet _ = getDOMHTMLAreaElementPort - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementProtocol :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -data DOMHTMLAreaElementProtocolPropertyInfo -instance AttrInfo DOMHTMLAreaElementProtocolPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementProtocolPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementProtocolPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementProtocolPropertyInfo = "protocol" - attrGet _ = getDOMHTMLAreaElementProtocol - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "rel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementRel obj = liftIO $ getObjectPropertyString obj "rel" - -setDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementRel obj val = liftIO $ setObjectPropertyString obj "rel" (Just val) - -constructDOMHTMLAreaElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementRel val = constructObjectPropertyString "rel" (Just val) - -clearDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m () -clearDOMHTMLAreaElementRel obj = liftIO $ setObjectPropertyString obj "rel" (Nothing :: Maybe T.Text) - -data DOMHTMLAreaElementRelPropertyInfo -instance AttrInfo DOMHTMLAreaElementRelPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementRelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLAreaElementRelPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementRelPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementRelPropertyInfo = "rel" - attrGet _ = getDOMHTMLAreaElementRel - attrSet _ = setDOMHTMLAreaElementRel - attrConstruct _ = constructDOMHTMLAreaElementRel - attrClear _ = clearDOMHTMLAreaElementRel - --- VVV Prop "search" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLAreaElementSearch :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementSearch obj = liftIO $ getObjectPropertyString obj "search" - -data DOMHTMLAreaElementSearchPropertyInfo -instance AttrInfo DOMHTMLAreaElementSearchPropertyInfo where - type AttrAllowedOps DOMHTMLAreaElementSearchPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = DOMHTMLAreaElementK - type AttrGetType DOMHTMLAreaElementSearchPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementSearchPropertyInfo = "search" - attrGet _ = getDOMHTMLAreaElementSearch - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "shape" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementShape obj = liftIO $ getObjectPropertyString obj "shape" - -setDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementShape obj val = liftIO $ setObjectPropertyString obj "shape" (Just val) - -constructDOMHTMLAreaElementShape :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementShape val = constructObjectPropertyString "shape" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementShapePropertyInfo = "shape" - attrGet _ = getDOMHTMLAreaElementShape - attrSet _ = setDOMHTMLAreaElementShape - attrConstruct _ = constructDOMHTMLAreaElementShape - attrClear _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLAreaElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () -setDOMHTMLAreaElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) - -constructDOMHTMLAreaElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLAreaElementTarget val = constructObjectPropertyString "target" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLAreaElementTargetPropertyInfo = "target" - attrGet _ = getDOMHTMLAreaElementTarget - attrSet _ = setDOMHTMLAreaElementTarget - attrConstruct _ = constructDOMHTMLAreaElementTarget - attrClear _ = undefined - -type instance AttributeList DOMHTMLAreaElement = DOMHTMLAreaElementAttributeList -type DOMHTMLAreaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("alt", DOMHTMLAreaElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAreaElementCoordsPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAreaElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAreaElementHostPropertyInfo), '("hostname", DOMHTMLAreaElementHostnamePropertyInfo), '("href", DOMHTMLAreaElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noHref", DOMHTMLAreaElementNoHrefPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("rel", DOMHTMLAreaElementRelPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAreaElementSearchPropertyInfo), '("shape", DOMHTMLAreaElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAreaElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLAreaElementAlt :: AttrLabelProxy "alt" -dOMHTMLAreaElementAlt = AttrLabelProxy - -dOMHTMLAreaElementCoords :: AttrLabelProxy "coords" -dOMHTMLAreaElementCoords = AttrLabelProxy - -dOMHTMLAreaElementHash :: AttrLabelProxy "hash" -dOMHTMLAreaElementHash = AttrLabelProxy - -dOMHTMLAreaElementHost :: AttrLabelProxy "host" -dOMHTMLAreaElementHost = AttrLabelProxy - -dOMHTMLAreaElementHostname :: AttrLabelProxy "hostname" -dOMHTMLAreaElementHostname = AttrLabelProxy - -dOMHTMLAreaElementHref :: AttrLabelProxy "href" -dOMHTMLAreaElementHref = AttrLabelProxy - -dOMHTMLAreaElementNoHref :: AttrLabelProxy "noHref" -dOMHTMLAreaElementNoHref = AttrLabelProxy - -dOMHTMLAreaElementPathname :: AttrLabelProxy "pathname" -dOMHTMLAreaElementPathname = AttrLabelProxy - -dOMHTMLAreaElementPing :: AttrLabelProxy "ping" -dOMHTMLAreaElementPing = AttrLabelProxy - -dOMHTMLAreaElementPort :: AttrLabelProxy "port" -dOMHTMLAreaElementPort = AttrLabelProxy - -dOMHTMLAreaElementProtocol :: AttrLabelProxy "protocol" -dOMHTMLAreaElementProtocol = AttrLabelProxy - -dOMHTMLAreaElementRel :: AttrLabelProxy "rel" -dOMHTMLAreaElementRel = AttrLabelProxy - -dOMHTMLAreaElementSearch :: AttrLabelProxy "search" -dOMHTMLAreaElementSearch = AttrLabelProxy - -dOMHTMLAreaElementShape :: AttrLabelProxy "shape" -dOMHTMLAreaElementShape = AttrLabelProxy - -dOMHTMLAreaElementTarget :: AttrLabelProxy "target" -dOMHTMLAreaElementTarget = AttrLabelProxy - -type instance SignalList DOMHTMLAreaElement = DOMHTMLAreaElementSignalList -type DOMHTMLAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLAreaElement::get_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetAltMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetAlt - --- method DOMHTMLAreaElement::get_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetCoordsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetCoordsMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetCoords - --- method DOMHTMLAreaElement::get_hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetHashMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetHashMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetHash - --- method DOMHTMLAreaElement::get_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetHostMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetHostMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetHost - --- method DOMHTMLAreaElement::get_hostname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetHostnameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetHostnameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetHostname - --- method DOMHTMLAreaElement::get_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetHrefMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetHref - --- method DOMHTMLAreaElement::get_no_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetNoHrefMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetNoHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetNoHref - --- method DOMHTMLAreaElement::get_pathname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetPathnameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetPathnameMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetPathname - --- method DOMHTMLAreaElement::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetPortMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetPortMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetPort - --- method DOMHTMLAreaElement::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetProtocolMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetProtocolMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetProtocol - --- method DOMHTMLAreaElement::get_search --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetSearchMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetSearchMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetSearch - --- method DOMHTMLAreaElement::get_shape --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetShapeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetShapeMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetShape - --- method DOMHTMLAreaElement::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLAreaElementGetTargetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementGetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementGetTarget - --- method DOMHTMLAreaElement::set_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAreaElementSetAltMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementSetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementSetAlt - --- method DOMHTMLAreaElement::set_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAreaElementSetCoordsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementSetCoordsMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementSetCoords - --- method DOMHTMLAreaElement::set_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAreaElementSetHrefMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementSetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementSetHref - --- method DOMHTMLAreaElement::set_no_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAreaElementSetNoHrefMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementSetNoHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementSetNoHref - --- method DOMHTMLAreaElement::set_shape --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAreaElementSetShapeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementSetShapeMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementSetShape - --- method DOMHTMLAreaElement::set_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLAreaElementSetTargetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLAreaElementK a) => MethodInfo DOMHTMLAreaElementSetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLAreaElementSetTarget - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot +++ /dev/null @@ -1,47 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLAreaElementGetAltMethodInfo -data DOMHTMLAreaElementGetCoordsMethodInfo -data DOMHTMLAreaElementGetHashMethodInfo -data DOMHTMLAreaElementGetHostMethodInfo -data DOMHTMLAreaElementGetHostnameMethodInfo -data DOMHTMLAreaElementGetHrefMethodInfo -data DOMHTMLAreaElementGetNoHrefMethodInfo -data DOMHTMLAreaElementGetPathnameMethodInfo -data DOMHTMLAreaElementGetPortMethodInfo -data DOMHTMLAreaElementGetProtocolMethodInfo -data DOMHTMLAreaElementGetSearchMethodInfo -data DOMHTMLAreaElementGetShapeMethodInfo -data DOMHTMLAreaElementGetTargetMethodInfo -data DOMHTMLAreaElementSetAltMethodInfo -data DOMHTMLAreaElementSetCoordsMethodInfo -data DOMHTMLAreaElementSetHrefMethodInfo -data DOMHTMLAreaElementSetNoHrefMethodInfo -data DOMHTMLAreaElementSetShapeMethodInfo -data DOMHTMLAreaElementSetTargetMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLBRElementGetClearMethodInfo , - dOMHTMLBRElementGetClear , - - --- ** dOMHTMLBRElementSetClear - DOMHTMLBRElementSetClearMethodInfo , - dOMHTMLBRElementSetClear , - - - - - -- * Properties --- ** Clear - DOMHTMLBRElementClearPropertyInfo , - constructDOMHTMLBRElementClear , - dOMHTMLBRElementClear , - getDOMHTMLBRElementClear , - setDOMHTMLBRElementClear , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLBRElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLBRElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLBRElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLBRElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLBRElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLBRElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLBRElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLBRElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLBRElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLBRElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLBRElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLBRElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLBRElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLBRElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLBRElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLBRElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLBRElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLBRElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLBRElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLBRElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLBRElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLBRElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLBRElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLBRElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLBRElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLBRElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLBRElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLBRElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLBRElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLBRElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLBRElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLBRElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLBRElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLBRElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLBRElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLBRElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLBRElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLBRElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLBRElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLBRElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLBRElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLBRElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLBRElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLBRElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLBRElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLBRElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLBRElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLBRElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLBRElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLBRElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLBRElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLBRElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLBRElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLBRElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLBRElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLBRElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLBRElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLBRElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLBRElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLBRElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLBRElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLBRElementMethod "getClear" o = DOMHTMLBRElementGetClearMethodInfo - ResolveDOMHTMLBRElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLBRElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLBRElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLBRElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLBRElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLBRElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLBRElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLBRElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLBRElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBRElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLBRElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBRElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLBRElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLBRElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLBRElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLBRElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLBRElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLBRElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLBRElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLBRElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLBRElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLBRElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLBRElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLBRElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLBRElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLBRElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLBRElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLBRElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLBRElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLBRElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLBRElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLBRElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLBRElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLBRElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLBRElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLBRElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLBRElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLBRElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLBRElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLBRElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLBRElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLBRElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLBRElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLBRElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLBRElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLBRElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLBRElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLBRElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLBRElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLBRElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLBRElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLBRElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLBRElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLBRElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLBRElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLBRElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLBRElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLBRElementMethod "setClear" o = DOMHTMLBRElementSetClearMethodInfo - ResolveDOMHTMLBRElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLBRElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLBRElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLBRElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLBRElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLBRElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLBRElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLBRElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLBRElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLBRElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLBRElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLBRElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLBRElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLBRElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLBRElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLBRElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLBRElementMethod t DOMHTMLBRElement, MethodInfo info DOMHTMLBRElement p) => IsLabelProxy t (DOMHTMLBRElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLBRElementMethod t DOMHTMLBRElement, MethodInfo info DOMHTMLBRElement p) => IsLabel t (DOMHTMLBRElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "clear" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> m (Maybe T.Text) -getDOMHTMLBRElementClear obj = liftIO $ getObjectPropertyString obj "clear" - -setDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> T.Text -> m () -setDOMHTMLBRElementClear obj val = liftIO $ setObjectPropertyString obj "clear" (Just val) - -constructDOMHTMLBRElementClear :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBRElementClear val = constructObjectPropertyString "clear" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBRElementClearPropertyInfo = "clear" - attrGet _ = getDOMHTMLBRElementClear - attrSet _ = setDOMHTMLBRElementClear - attrConstruct _ = constructDOMHTMLBRElementClear - attrClear _ = undefined - -type instance AttributeList DOMHTMLBRElement = DOMHTMLBRElementAttributeList -type DOMHTMLBRElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clear", DOMHTMLBRElementClearPropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLBRElementClear :: AttrLabelProxy "clear" -dOMHTMLBRElementClear = AttrLabelProxy - -type instance SignalList DOMHTMLBRElement = DOMHTMLBRElementSignalList -type DOMHTMLBRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLBRElement::get_clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBRElementGetClearMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBRElementK a) => MethodInfo DOMHTMLBRElementGetClearMethodInfo a signature where - overloadedMethod _ = dOMHTMLBRElementGetClear - --- method DOMHTMLBRElement::set_clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBRElementSetClearMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBRElementK a) => MethodInfo DOMHTMLBRElementSetClearMethodInfo a signature where - overloadedMethod _ = dOMHTMLBRElementSetClear - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLBRElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLBRElementGetClearMethodInfo -data DOMHTMLBRElementSetClearMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs +++ /dev/null @@ -1,428 +0,0 @@ - - -{- | -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 - DOMHTMLBaseElementGetHrefMethodInfo , - dOMHTMLBaseElementGetHref , - - --- ** dOMHTMLBaseElementGetTarget - DOMHTMLBaseElementGetTargetMethodInfo , - dOMHTMLBaseElementGetTarget , - - --- ** dOMHTMLBaseElementSetHref - DOMHTMLBaseElementSetHrefMethodInfo , - dOMHTMLBaseElementSetHref , - - --- ** dOMHTMLBaseElementSetTarget - DOMHTMLBaseElementSetTargetMethodInfo , - dOMHTMLBaseElementSetTarget , - - - - - -- * Properties --- ** Href - DOMHTMLBaseElementHrefPropertyInfo , - constructDOMHTMLBaseElementHref , - dOMHTMLBaseElementHref , - getDOMHTMLBaseElementHref , - setDOMHTMLBaseElementHref , - - --- ** Target - DOMHTMLBaseElementTargetPropertyInfo , - constructDOMHTMLBaseElementTarget , - dOMHTMLBaseElementTarget , - getDOMHTMLBaseElementTarget , - setDOMHTMLBaseElementTarget , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLBaseElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLBaseElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLBaseElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLBaseElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLBaseElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLBaseElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLBaseElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLBaseElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLBaseElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLBaseElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLBaseElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLBaseElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLBaseElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLBaseElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLBaseElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLBaseElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLBaseElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLBaseElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLBaseElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLBaseElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLBaseElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLBaseElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLBaseElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLBaseElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLBaseElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLBaseElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLBaseElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLBaseElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLBaseElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLBaseElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLBaseElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLBaseElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLBaseElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLBaseElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLBaseElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLBaseElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLBaseElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLBaseElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLBaseElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLBaseElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLBaseElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLBaseElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLBaseElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLBaseElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLBaseElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLBaseElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLBaseElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLBaseElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLBaseElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLBaseElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLBaseElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLBaseElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLBaseElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLBaseElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLBaseElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLBaseElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLBaseElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLBaseElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLBaseElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLBaseElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLBaseElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLBaseElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLBaseElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLBaseElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLBaseElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLBaseElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLBaseElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLBaseElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLBaseElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLBaseElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBaseElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLBaseElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBaseElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLBaseElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLBaseElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLBaseElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLBaseElementMethod "getHref" o = DOMHTMLBaseElementGetHrefMethodInfo - ResolveDOMHTMLBaseElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLBaseElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLBaseElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLBaseElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLBaseElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLBaseElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLBaseElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLBaseElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLBaseElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLBaseElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLBaseElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLBaseElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLBaseElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLBaseElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLBaseElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLBaseElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLBaseElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLBaseElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLBaseElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLBaseElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLBaseElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLBaseElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLBaseElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLBaseElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLBaseElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLBaseElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLBaseElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLBaseElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLBaseElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLBaseElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLBaseElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLBaseElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLBaseElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLBaseElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLBaseElementMethod "getTarget" o = DOMHTMLBaseElementGetTargetMethodInfo - ResolveDOMHTMLBaseElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLBaseElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLBaseElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLBaseElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLBaseElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLBaseElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLBaseElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLBaseElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLBaseElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLBaseElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLBaseElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLBaseElementMethod "setHref" o = DOMHTMLBaseElementSetHrefMethodInfo - ResolveDOMHTMLBaseElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLBaseElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLBaseElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLBaseElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLBaseElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLBaseElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLBaseElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLBaseElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLBaseElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLBaseElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLBaseElementMethod "setTarget" o = DOMHTMLBaseElementSetTargetMethodInfo - ResolveDOMHTMLBaseElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLBaseElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLBaseElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLBaseElementMethod t DOMHTMLBaseElement, MethodInfo info DOMHTMLBaseElement p) => IsLabelProxy t (DOMHTMLBaseElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLBaseElementMethod t DOMHTMLBaseElement, MethodInfo info DOMHTMLBaseElement p) => IsLabel t (DOMHTMLBaseElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m (Maybe T.Text) -getDOMHTMLBaseElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () -setDOMHTMLBaseElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) - -constructDOMHTMLBaseElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseElementHref val = constructObjectPropertyString "href" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBaseElementHrefPropertyInfo = "href" - attrGet _ = getDOMHTMLBaseElementHref - attrSet _ = setDOMHTMLBaseElementHref - attrConstruct _ = constructDOMHTMLBaseElementHref - attrClear _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m (Maybe T.Text) -getDOMHTMLBaseElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () -setDOMHTMLBaseElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) - -constructDOMHTMLBaseElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBaseElementTarget val = constructObjectPropertyString "target" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBaseElementTargetPropertyInfo = "target" - attrGet _ = getDOMHTMLBaseElementTarget - attrSet _ = setDOMHTMLBaseElementTarget - attrConstruct _ = constructDOMHTMLBaseElementTarget - attrClear _ = undefined - -type instance AttributeList DOMHTMLBaseElement = DOMHTMLBaseElementAttributeList -type DOMHTMLBaseElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLBaseElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLBaseElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLBaseElementHref :: AttrLabelProxy "href" -dOMHTMLBaseElementHref = AttrLabelProxy - -dOMHTMLBaseElementTarget :: AttrLabelProxy "target" -dOMHTMLBaseElementTarget = AttrLabelProxy - -type instance SignalList DOMHTMLBaseElement = DOMHTMLBaseElementSignalList -type DOMHTMLBaseElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLBaseElement::get_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBaseElementGetHrefMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBaseElementK a) => MethodInfo DOMHTMLBaseElementGetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseElementGetHref - --- method DOMHTMLBaseElement::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBaseElementGetTargetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBaseElementK a) => MethodInfo DOMHTMLBaseElementGetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseElementGetTarget - --- method DOMHTMLBaseElement::set_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBaseElementSetHrefMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBaseElementK a) => MethodInfo DOMHTMLBaseElementSetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseElementSetHref - --- method DOMHTMLBaseElement::set_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBaseElementSetTargetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBaseElementK a) => MethodInfo DOMHTMLBaseElementSetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseElementSetTarget - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLBaseElementGetHrefMethodInfo -data DOMHTMLBaseElementGetTargetMethodInfo -data DOMHTMLBaseElementSetHrefMethodInfo -data DOMHTMLBaseElementSetTargetMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs +++ /dev/null @@ -1,419 +0,0 @@ - - -{- | -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 - DOMHTMLBaseFontElementGetColorMethodInfo, - dOMHTMLBaseFontElementGetColor , - - --- ** dOMHTMLBaseFontElementGetFace - DOMHTMLBaseFontElementGetFaceMethodInfo , - dOMHTMLBaseFontElementGetFace , - - --- ** dOMHTMLBaseFontElementGetSize - DOMHTMLBaseFontElementGetSizeMethodInfo , - dOMHTMLBaseFontElementGetSize , - - --- ** dOMHTMLBaseFontElementSetColor - DOMHTMLBaseFontElementSetColorMethodInfo, - dOMHTMLBaseFontElementSetColor , - - --- ** dOMHTMLBaseFontElementSetFace - DOMHTMLBaseFontElementSetFaceMethodInfo , - dOMHTMLBaseFontElementSetFace , - - --- ** dOMHTMLBaseFontElementSetSize - DOMHTMLBaseFontElementSetSizeMethodInfo , - dOMHTMLBaseFontElementSetSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLBaseFontElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLBaseFontElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLBaseFontElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLBaseFontElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLBaseFontElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLBaseFontElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLBaseFontElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLBaseFontElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLBaseFontElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLBaseFontElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLBaseFontElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLBaseFontElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLBaseFontElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLBaseFontElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLBaseFontElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLBaseFontElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLBaseFontElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLBaseFontElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLBaseFontElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLBaseFontElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLBaseFontElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLBaseFontElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLBaseFontElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLBaseFontElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLBaseFontElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLBaseFontElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLBaseFontElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLBaseFontElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLBaseFontElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLBaseFontElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLBaseFontElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLBaseFontElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLBaseFontElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLBaseFontElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLBaseFontElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getColor" o = DOMHTMLBaseFontElementGetColorMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getFace" o = DOMHTMLBaseFontElementGetFaceMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getSize" o = DOMHTMLBaseFontElementGetSizeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLBaseFontElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setColor" o = DOMHTMLBaseFontElementSetColorMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setFace" o = DOMHTMLBaseFontElementSetFaceMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setSize" o = DOMHTMLBaseFontElementSetSizeMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLBaseFontElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLBaseFontElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLBaseFontElementMethod t DOMHTMLBaseFontElement, MethodInfo info DOMHTMLBaseFontElement p) => IsLabelProxy t (DOMHTMLBaseFontElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLBaseFontElementMethod t DOMHTMLBaseFontElement, MethodInfo info DOMHTMLBaseFontElement p) => IsLabel t (DOMHTMLBaseFontElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementAttributeList -type DOMHTMLBaseFontElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementSignalList -type DOMHTMLBaseFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLBaseFontElement::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 - -{-# DEPRECATED dOMHTMLBaseFontElementGetColor ["(Since version 2.12)"]#-} -dOMHTMLBaseFontElementGetColor :: - (MonadIO m, DOMHTMLBaseFontElementK a) => - a -- _obj - -> m T.Text -- result -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' - -data DOMHTMLBaseFontElementGetColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementGetColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseFontElementGetColor - --- method DOMHTMLBaseFontElement::get_face --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 - -{-# DEPRECATED dOMHTMLBaseFontElementGetFace ["(Since version 2.12)"]#-} -dOMHTMLBaseFontElementGetFace :: - (MonadIO m, DOMHTMLBaseFontElementK a) => - a -- _obj - -> m T.Text -- result -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' - -data DOMHTMLBaseFontElementGetFaceMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementGetFaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseFontElementGetFace - --- method DOMHTMLBaseFontElement::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - -{-# DEPRECATED dOMHTMLBaseFontElementGetSize ["(Since version 2.12)"]#-} -dOMHTMLBaseFontElementGetSize :: - (MonadIO m, DOMHTMLBaseFontElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLBaseFontElementGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_base_font_element_get_size _obj' - touchManagedPtr _obj - return result - -data DOMHTMLBaseFontElementGetSizeMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementGetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseFontElementGetSize - --- method DOMHTMLBaseFontElement::set_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () - -{-# DEPRECATED dOMHTMLBaseFontElementSetColor ["(Since version 2.12)"]#-} -dOMHTMLBaseFontElementSetColor :: - (MonadIO m, DOMHTMLBaseFontElementK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -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 () - -data DOMHTMLBaseFontElementSetColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementSetColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseFontElementSetColor - --- method DOMHTMLBaseFontElement::set_face --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () - -{-# DEPRECATED dOMHTMLBaseFontElementSetFace ["(Since version 2.12)"]#-} -dOMHTMLBaseFontElementSetFace :: - (MonadIO m, DOMHTMLBaseFontElementK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -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 () - -data DOMHTMLBaseFontElementSetFaceMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementSetFaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseFontElementSetFace - --- method DOMHTMLBaseFontElement::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - -{-# DEPRECATED dOMHTMLBaseFontElementSetSize ["(Since version 2.12)"]#-} -dOMHTMLBaseFontElementSetSize :: - (MonadIO m, DOMHTMLBaseFontElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLBaseFontElementSetSize _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_base_font_element_set_size _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLBaseFontElementSetSizeMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLBaseFontElementK a) => MethodInfo DOMHTMLBaseFontElementSetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLBaseFontElementSetSize - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMHTMLBaseFontElementGetColorMethodInfo -data DOMHTMLBaseFontElementGetFaceMethodInfo -data DOMHTMLBaseFontElementGetSizeMethodInfo -data DOMHTMLBaseFontElementSetColorMethodInfo -data DOMHTMLBaseFontElementSetFaceMethodInfo -data DOMHTMLBaseFontElementSetSizeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs +++ /dev/null @@ -1,868 +0,0 @@ - - -{- | -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 - DOMHTMLBodyElementGetALinkMethodInfo , - dOMHTMLBodyElementGetALink , - - --- ** dOMHTMLBodyElementGetBackground - DOMHTMLBodyElementGetBackgroundMethodInfo, - dOMHTMLBodyElementGetBackground , - - --- ** dOMHTMLBodyElementGetBgColor - DOMHTMLBodyElementGetBgColorMethodInfo , - dOMHTMLBodyElementGetBgColor , - - --- ** dOMHTMLBodyElementGetLink - DOMHTMLBodyElementGetLinkMethodInfo , - dOMHTMLBodyElementGetLink , - - --- ** dOMHTMLBodyElementGetText - DOMHTMLBodyElementGetTextMethodInfo , - dOMHTMLBodyElementGetText , - - --- ** dOMHTMLBodyElementGetVLink - DOMHTMLBodyElementGetVLinkMethodInfo , - dOMHTMLBodyElementGetVLink , - - --- ** dOMHTMLBodyElementSetALink - DOMHTMLBodyElementSetALinkMethodInfo , - dOMHTMLBodyElementSetALink , - - --- ** dOMHTMLBodyElementSetBackground - DOMHTMLBodyElementSetBackgroundMethodInfo, - dOMHTMLBodyElementSetBackground , - - --- ** dOMHTMLBodyElementSetBgColor - DOMHTMLBodyElementSetBgColorMethodInfo , - dOMHTMLBodyElementSetBgColor , - - --- ** dOMHTMLBodyElementSetLink - DOMHTMLBodyElementSetLinkMethodInfo , - dOMHTMLBodyElementSetLink , - - --- ** dOMHTMLBodyElementSetText - DOMHTMLBodyElementSetTextMethodInfo , - dOMHTMLBodyElementSetText , - - --- ** dOMHTMLBodyElementSetVLink - DOMHTMLBodyElementSetVLinkMethodInfo , - dOMHTMLBodyElementSetVLink , - - - - - -- * Properties --- ** ALink - DOMHTMLBodyElementALinkPropertyInfo , - constructDOMHTMLBodyElementALink , - dOMHTMLBodyElementALink , - getDOMHTMLBodyElementALink , - setDOMHTMLBodyElementALink , - - --- ** Background - DOMHTMLBodyElementBackgroundPropertyInfo, - constructDOMHTMLBodyElementBackground , - dOMHTMLBodyElementBackground , - getDOMHTMLBodyElementBackground , - setDOMHTMLBodyElementBackground , - - --- ** BgColor - DOMHTMLBodyElementBgColorPropertyInfo , - constructDOMHTMLBodyElementBgColor , - dOMHTMLBodyElementBgColor , - getDOMHTMLBodyElementBgColor , - setDOMHTMLBodyElementBgColor , - - --- ** Link - DOMHTMLBodyElementLinkPropertyInfo , - constructDOMHTMLBodyElementLink , - dOMHTMLBodyElementLink , - getDOMHTMLBodyElementLink , - setDOMHTMLBodyElementLink , - - --- ** Text - DOMHTMLBodyElementTextPropertyInfo , - constructDOMHTMLBodyElementText , - dOMHTMLBodyElementText , - getDOMHTMLBodyElementText , - setDOMHTMLBodyElementText , - - --- ** VLink - DOMHTMLBodyElementVLinkPropertyInfo , - constructDOMHTMLBodyElementVLink , - dOMHTMLBodyElementVLink , - getDOMHTMLBodyElementVLink , - setDOMHTMLBodyElementVLink , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLBodyElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLBodyElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLBodyElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLBodyElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLBodyElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLBodyElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLBodyElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLBodyElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLBodyElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLBodyElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLBodyElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLBodyElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLBodyElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLBodyElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLBodyElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLBodyElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLBodyElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLBodyElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLBodyElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLBodyElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLBodyElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLBodyElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLBodyElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLBodyElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLBodyElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLBodyElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLBodyElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLBodyElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLBodyElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLBodyElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLBodyElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLBodyElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLBodyElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLBodyElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLBodyElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLBodyElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLBodyElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLBodyElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLBodyElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLBodyElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLBodyElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLBodyElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLBodyElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLBodyElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLBodyElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLBodyElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLBodyElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLBodyElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLBodyElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLBodyElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLBodyElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLBodyElementMethod "getALink" o = DOMHTMLBodyElementGetALinkMethodInfo - ResolveDOMHTMLBodyElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLBodyElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLBodyElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLBodyElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLBodyElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLBodyElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLBodyElementMethod "getBackground" o = DOMHTMLBodyElementGetBackgroundMethodInfo - ResolveDOMHTMLBodyElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLBodyElementMethod "getBgColor" o = DOMHTMLBodyElementGetBgColorMethodInfo - ResolveDOMHTMLBodyElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLBodyElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLBodyElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLBodyElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLBodyElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLBodyElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLBodyElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLBodyElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLBodyElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLBodyElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLBodyElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLBodyElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBodyElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLBodyElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLBodyElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLBodyElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLBodyElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLBodyElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLBodyElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLBodyElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLBodyElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLBodyElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLBodyElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLBodyElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLBodyElementMethod "getLink" o = DOMHTMLBodyElementGetLinkMethodInfo - ResolveDOMHTMLBodyElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLBodyElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLBodyElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLBodyElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLBodyElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLBodyElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLBodyElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLBodyElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLBodyElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLBodyElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLBodyElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLBodyElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLBodyElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLBodyElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLBodyElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLBodyElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLBodyElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLBodyElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLBodyElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLBodyElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLBodyElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLBodyElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLBodyElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLBodyElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLBodyElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLBodyElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLBodyElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLBodyElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLBodyElementMethod "getText" o = DOMHTMLBodyElementGetTextMethodInfo - ResolveDOMHTMLBodyElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLBodyElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLBodyElementMethod "getVLink" o = DOMHTMLBodyElementGetVLinkMethodInfo - ResolveDOMHTMLBodyElementMethod "setALink" o = DOMHTMLBodyElementSetALinkMethodInfo - ResolveDOMHTMLBodyElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLBodyElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLBodyElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLBodyElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLBodyElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLBodyElementMethod "setBackground" o = DOMHTMLBodyElementSetBackgroundMethodInfo - ResolveDOMHTMLBodyElementMethod "setBgColor" o = DOMHTMLBodyElementSetBgColorMethodInfo - ResolveDOMHTMLBodyElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLBodyElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLBodyElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLBodyElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLBodyElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLBodyElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLBodyElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLBodyElementMethod "setLink" o = DOMHTMLBodyElementSetLinkMethodInfo - ResolveDOMHTMLBodyElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLBodyElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLBodyElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLBodyElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLBodyElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLBodyElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLBodyElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLBodyElementMethod "setText" o = DOMHTMLBodyElementSetTextMethodInfo - ResolveDOMHTMLBodyElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLBodyElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLBodyElementMethod "setVLink" o = DOMHTMLBodyElementSetVLinkMethodInfo - ResolveDOMHTMLBodyElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLBodyElementMethod t DOMHTMLBodyElement, MethodInfo info DOMHTMLBodyElement p) => IsLabelProxy t (DOMHTMLBodyElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLBodyElementMethod t DOMHTMLBodyElement, MethodInfo info DOMHTMLBodyElement p) => IsLabel t (DOMHTMLBodyElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "a-link" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLBodyElementALink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementALink val = constructObjectPropertyString "a-link" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBodyElementALinkPropertyInfo = "a-link" - attrGet _ = getDOMHTMLBodyElementALink - attrSet _ = setDOMHTMLBodyElementALink - attrConstruct _ = constructDOMHTMLBodyElementALink - attrClear _ = undefined - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) -getDOMHTMLBodyElementBackground obj = liftIO $ getObjectPropertyString obj "background" - -setDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) - -constructDOMHTMLBodyElementBackground :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementBackground val = constructObjectPropertyString "background" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBodyElementBackgroundPropertyInfo = "background" - attrGet _ = getDOMHTMLBodyElementBackground - attrSet _ = setDOMHTMLBodyElementBackground - attrConstruct _ = constructDOMHTMLBodyElementBackground - attrClear _ = undefined - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLBodyElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementBgColor val = constructObjectPropertyString "bg-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBodyElementBgColorPropertyInfo = "bg-color" - attrGet _ = getDOMHTMLBodyElementBgColor - attrSet _ = setDOMHTMLBodyElementBgColor - attrConstruct _ = constructDOMHTMLBodyElementBgColor - attrClear _ = undefined - --- VVV Prop "link" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) -getDOMHTMLBodyElementLink obj = liftIO $ getObjectPropertyString obj "link" - -setDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementLink obj val = liftIO $ setObjectPropertyString obj "link" (Just val) - -constructDOMHTMLBodyElementLink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementLink val = constructObjectPropertyString "link" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBodyElementLinkPropertyInfo = "link" - attrGet _ = getDOMHTMLBodyElementLink - attrSet _ = setDOMHTMLBodyElementLink - attrConstruct _ = constructDOMHTMLBodyElementLink - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe T.Text) -getDOMHTMLBodyElementText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () -setDOMHTMLBodyElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructDOMHTMLBodyElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementText val = constructObjectPropertyString "text" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBodyElementTextPropertyInfo = "text" - attrGet _ = getDOMHTMLBodyElementText - attrSet _ = setDOMHTMLBodyElementText - attrConstruct _ = constructDOMHTMLBodyElementText - attrClear _ = undefined - --- VVV Prop "v-link" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLBodyElementVLink :: T.Text -> IO ([Char], GValue) -constructDOMHTMLBodyElementVLink val = constructObjectPropertyString "v-link" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLBodyElementVLinkPropertyInfo = "v-link" - attrGet _ = getDOMHTMLBodyElementVLink - attrSet _ = setDOMHTMLBodyElementVLink - attrConstruct _ = constructDOMHTMLBodyElementVLink - attrClear _ = undefined - -type instance AttributeList DOMHTMLBodyElement = DOMHTMLBodyElementAttributeList -type DOMHTMLBodyElementAttributeList = ('[ '("aLink", DOMHTMLBodyElementALinkPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLBodyElementBgColorPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("link", DOMHTMLBodyElementLinkPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLBodyElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("vLink", DOMHTMLBodyElementVLinkPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLBodyElementALink :: AttrLabelProxy "aLink" -dOMHTMLBodyElementALink = AttrLabelProxy - -dOMHTMLBodyElementBackground :: AttrLabelProxy "background" -dOMHTMLBodyElementBackground = AttrLabelProxy - -dOMHTMLBodyElementBgColor :: AttrLabelProxy "bgColor" -dOMHTMLBodyElementBgColor = AttrLabelProxy - -dOMHTMLBodyElementLink :: AttrLabelProxy "link" -dOMHTMLBodyElementLink = AttrLabelProxy - -dOMHTMLBodyElementText :: AttrLabelProxy "text" -dOMHTMLBodyElementText = AttrLabelProxy - -dOMHTMLBodyElementVLink :: AttrLabelProxy "vLink" -dOMHTMLBodyElementVLink = AttrLabelProxy - -type instance SignalList DOMHTMLBodyElement = DOMHTMLBodyElementSignalList -type DOMHTMLBodyElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLBodyElement::get_a_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBodyElementGetALinkMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementGetALinkMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementGetALink - --- method DOMHTMLBodyElement::get_background --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBodyElementGetBackgroundMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementGetBackgroundMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementGetBackground - --- method DOMHTMLBodyElement::get_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBodyElementGetBgColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementGetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementGetBgColor - --- method DOMHTMLBodyElement::get_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBodyElementGetLinkMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementGetLinkMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementGetLink - --- method DOMHTMLBodyElement::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBodyElementGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementGetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementGetText - --- method DOMHTMLBodyElement::get_v_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLBodyElementGetVLinkMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementGetVLinkMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementGetVLink - --- method DOMHTMLBodyElement::set_a_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBodyElementSetALinkMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementSetALinkMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementSetALink - --- method DOMHTMLBodyElement::set_background --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBodyElementSetBackgroundMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementSetBackgroundMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementSetBackground - --- method DOMHTMLBodyElement::set_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBodyElementSetBgColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementSetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementSetBgColor - --- method DOMHTMLBodyElement::set_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBodyElementSetLinkMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementSetLinkMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementSetLink - --- method DOMHTMLBodyElement::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBodyElementSetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementSetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementSetText - --- method DOMHTMLBodyElement::set_v_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLBodyElementSetVLinkMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLBodyElementK a) => MethodInfo DOMHTMLBodyElementSetVLinkMethodInfo a signature where - overloadedMethod _ = dOMHTMLBodyElementSetVLink - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLBodyElementGetALinkMethodInfo -data DOMHTMLBodyElementGetBackgroundMethodInfo -data DOMHTMLBodyElementGetBgColorMethodInfo -data DOMHTMLBodyElementGetLinkMethodInfo -data DOMHTMLBodyElementGetTextMethodInfo -data DOMHTMLBodyElementGetVLinkMethodInfo -data DOMHTMLBodyElementSetALinkMethodInfo -data DOMHTMLBodyElementSetBackgroundMethodInfo -data DOMHTMLBodyElementSetBgColorMethodInfo -data DOMHTMLBodyElementSetLinkMethodInfo -data DOMHTMLBodyElementSetTextMethodInfo -data DOMHTMLBodyElementSetVLinkMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs +++ /dev/null @@ -1,1142 +0,0 @@ - - -{- | -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 - DOMHTMLButtonElementGetAutofocusMethodInfo, - dOMHTMLButtonElementGetAutofocus , - - --- ** dOMHTMLButtonElementGetButtonType - DOMHTMLButtonElementGetButtonTypeMethodInfo, - dOMHTMLButtonElementGetButtonType , - - --- ** dOMHTMLButtonElementGetDisabled - DOMHTMLButtonElementGetDisabledMethodInfo, - dOMHTMLButtonElementGetDisabled , - - --- ** dOMHTMLButtonElementGetForm - DOMHTMLButtonElementGetFormMethodInfo , - dOMHTMLButtonElementGetForm , - - --- ** dOMHTMLButtonElementGetName - DOMHTMLButtonElementGetNameMethodInfo , - dOMHTMLButtonElementGetName , - - --- ** dOMHTMLButtonElementGetValue - DOMHTMLButtonElementGetValueMethodInfo , - dOMHTMLButtonElementGetValue , - - --- ** dOMHTMLButtonElementGetWillValidate - DOMHTMLButtonElementGetWillValidateMethodInfo, - dOMHTMLButtonElementGetWillValidate , - - --- ** dOMHTMLButtonElementSetAutofocus - DOMHTMLButtonElementSetAutofocusMethodInfo, - dOMHTMLButtonElementSetAutofocus , - - --- ** dOMHTMLButtonElementSetButtonType - DOMHTMLButtonElementSetButtonTypeMethodInfo, - dOMHTMLButtonElementSetButtonType , - - --- ** dOMHTMLButtonElementSetDisabled - DOMHTMLButtonElementSetDisabledMethodInfo, - dOMHTMLButtonElementSetDisabled , - - --- ** dOMHTMLButtonElementSetName - DOMHTMLButtonElementSetNameMethodInfo , - dOMHTMLButtonElementSetName , - - --- ** dOMHTMLButtonElementSetValue - DOMHTMLButtonElementSetValueMethodInfo , - dOMHTMLButtonElementSetValue , - - - - - -- * Properties --- ** Autofocus - DOMHTMLButtonElementAutofocusPropertyInfo, - constructDOMHTMLButtonElementAutofocus , - dOMHTMLButtonElementAutofocus , - getDOMHTMLButtonElementAutofocus , - setDOMHTMLButtonElementAutofocus , - - --- ** Disabled - DOMHTMLButtonElementDisabledPropertyInfo, - constructDOMHTMLButtonElementDisabled , - dOMHTMLButtonElementDisabled , - getDOMHTMLButtonElementDisabled , - setDOMHTMLButtonElementDisabled , - - --- ** Form - DOMHTMLButtonElementFormPropertyInfo , - dOMHTMLButtonElementForm , - getDOMHTMLButtonElementForm , - - --- ** FormAction - DOMHTMLButtonElementFormActionPropertyInfo, - clearDOMHTMLButtonElementFormAction , - constructDOMHTMLButtonElementFormAction , - dOMHTMLButtonElementFormAction , - getDOMHTMLButtonElementFormAction , - setDOMHTMLButtonElementFormAction , - - --- ** FormEnctype - DOMHTMLButtonElementFormEnctypePropertyInfo, - clearDOMHTMLButtonElementFormEnctype , - constructDOMHTMLButtonElementFormEnctype, - dOMHTMLButtonElementFormEnctype , - getDOMHTMLButtonElementFormEnctype , - setDOMHTMLButtonElementFormEnctype , - - --- ** FormMethod - DOMHTMLButtonElementFormMethodPropertyInfo, - clearDOMHTMLButtonElementFormMethod , - constructDOMHTMLButtonElementFormMethod , - dOMHTMLButtonElementFormMethod , - getDOMHTMLButtonElementFormMethod , - setDOMHTMLButtonElementFormMethod , - - --- ** FormNoValidate - DOMHTMLButtonElementFormNoValidatePropertyInfo, - constructDOMHTMLButtonElementFormNoValidate, - dOMHTMLButtonElementFormNoValidate , - getDOMHTMLButtonElementFormNoValidate , - setDOMHTMLButtonElementFormNoValidate , - - --- ** FormTarget - DOMHTMLButtonElementFormTargetPropertyInfo, - clearDOMHTMLButtonElementFormTarget , - constructDOMHTMLButtonElementFormTarget , - dOMHTMLButtonElementFormTarget , - getDOMHTMLButtonElementFormTarget , - setDOMHTMLButtonElementFormTarget , - - --- ** Labels - DOMHTMLButtonElementLabelsPropertyInfo , - dOMHTMLButtonElementLabels , - getDOMHTMLButtonElementLabels , - - --- ** Name - DOMHTMLButtonElementNamePropertyInfo , - constructDOMHTMLButtonElementName , - dOMHTMLButtonElementName , - getDOMHTMLButtonElementName , - setDOMHTMLButtonElementName , - - --- ** Type - DOMHTMLButtonElementTypePropertyInfo , - clearDOMHTMLButtonElementType , - constructDOMHTMLButtonElementType , - dOMHTMLButtonElementType , - getDOMHTMLButtonElementType , - setDOMHTMLButtonElementType , - - --- ** ValidationMessage - DOMHTMLButtonElementValidationMessagePropertyInfo, - dOMHTMLButtonElementValidationMessage , - getDOMHTMLButtonElementValidationMessage, - - --- ** Value - DOMHTMLButtonElementValuePropertyInfo , - constructDOMHTMLButtonElementValue , - dOMHTMLButtonElementValue , - getDOMHTMLButtonElementValue , - setDOMHTMLButtonElementValue , - - --- ** WillValidate - DOMHTMLButtonElementWillValidatePropertyInfo, - dOMHTMLButtonElementWillValidate , - getDOMHTMLButtonElementWillValidate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLButtonElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLButtonElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLButtonElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLButtonElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLButtonElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLButtonElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLButtonElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLButtonElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLButtonElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLButtonElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLButtonElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLButtonElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLButtonElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLButtonElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLButtonElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLButtonElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLButtonElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLButtonElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLButtonElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLButtonElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLButtonElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLButtonElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLButtonElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLButtonElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLButtonElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLButtonElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLButtonElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLButtonElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLButtonElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLButtonElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLButtonElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLButtonElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLButtonElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLButtonElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLButtonElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLButtonElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLButtonElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLButtonElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLButtonElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLButtonElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLButtonElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLButtonElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLButtonElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLButtonElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLButtonElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLButtonElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLButtonElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLButtonElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLButtonElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLButtonElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLButtonElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLButtonElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLButtonElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLButtonElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLButtonElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLButtonElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLButtonElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLButtonElementMethod "getAutofocus" o = DOMHTMLButtonElementGetAutofocusMethodInfo - ResolveDOMHTMLButtonElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLButtonElementMethod "getButtonType" o = DOMHTMLButtonElementGetButtonTypeMethodInfo - ResolveDOMHTMLButtonElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLButtonElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLButtonElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLButtonElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLButtonElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLButtonElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLButtonElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLButtonElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLButtonElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLButtonElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLButtonElementMethod "getDisabled" o = DOMHTMLButtonElementGetDisabledMethodInfo - ResolveDOMHTMLButtonElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLButtonElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLButtonElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLButtonElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLButtonElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLButtonElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLButtonElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLButtonElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLButtonElementMethod "getForm" o = DOMHTMLButtonElementGetFormMethodInfo - ResolveDOMHTMLButtonElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLButtonElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLButtonElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLButtonElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLButtonElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLButtonElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLButtonElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLButtonElementMethod "getName" o = DOMHTMLButtonElementGetNameMethodInfo - ResolveDOMHTMLButtonElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLButtonElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLButtonElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLButtonElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLButtonElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLButtonElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLButtonElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLButtonElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLButtonElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLButtonElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLButtonElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLButtonElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLButtonElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLButtonElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLButtonElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLButtonElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLButtonElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLButtonElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLButtonElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLButtonElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLButtonElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLButtonElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLButtonElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLButtonElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLButtonElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLButtonElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLButtonElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLButtonElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLButtonElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLButtonElementMethod "getValue" o = DOMHTMLButtonElementGetValueMethodInfo - ResolveDOMHTMLButtonElementMethod "getWillValidate" o = DOMHTMLButtonElementGetWillValidateMethodInfo - ResolveDOMHTMLButtonElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLButtonElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLButtonElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLButtonElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLButtonElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLButtonElementMethod "setAutofocus" o = DOMHTMLButtonElementSetAutofocusMethodInfo - ResolveDOMHTMLButtonElementMethod "setButtonType" o = DOMHTMLButtonElementSetButtonTypeMethodInfo - ResolveDOMHTMLButtonElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLButtonElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLButtonElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLButtonElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLButtonElementMethod "setDisabled" o = DOMHTMLButtonElementSetDisabledMethodInfo - ResolveDOMHTMLButtonElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLButtonElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLButtonElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLButtonElementMethod "setName" o = DOMHTMLButtonElementSetNameMethodInfo - ResolveDOMHTMLButtonElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLButtonElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLButtonElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLButtonElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLButtonElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLButtonElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLButtonElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLButtonElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLButtonElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLButtonElementMethod "setValue" o = DOMHTMLButtonElementSetValueMethodInfo - ResolveDOMHTMLButtonElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLButtonElementMethod t DOMHTMLButtonElement, MethodInfo info DOMHTMLButtonElement p) => IsLabelProxy t (DOMHTMLButtonElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLButtonElementMethod t DOMHTMLButtonElement, MethodInfo info DOMHTMLButtonElement p) => IsLabel t (DOMHTMLButtonElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "autofocus" - attrGet _ = getDOMHTMLButtonElementAutofocus - attrSet _ = setDOMHTMLButtonElementAutofocus - attrConstruct _ = constructDOMHTMLButtonElementAutofocus - attrClear _ = undefined - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLButtonElementDisabled - attrSet _ = setDOMHTMLButtonElementDisabled - attrConstruct _ = constructDOMHTMLButtonElementDisabled - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLButtonElementForm :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLButtonElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLButtonElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLButtonElementFormPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementFormPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLButtonElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLButtonElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "form-action" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLButtonElementFormAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormAction val = constructObjectPropertyString "form-action" (Just val) - -clearDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () -clearDOMHTMLButtonElementFormAction obj = liftIO $ setObjectPropertyString obj "form-action" (Nothing :: Maybe T.Text) - -data DOMHTMLButtonElementFormActionPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormActionPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormActionPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementFormActionPropertyInfo = "form-action" - attrGet _ = getDOMHTMLButtonElementFormAction - attrSet _ = setDOMHTMLButtonElementFormAction - attrConstruct _ = constructDOMHTMLButtonElementFormAction - attrClear _ = clearDOMHTMLButtonElementFormAction - --- VVV Prop "form-enctype" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLButtonElementFormEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormEnctype val = constructObjectPropertyString "form-enctype" (Just val) - -clearDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () -clearDOMHTMLButtonElementFormEnctype obj = liftIO $ setObjectPropertyString obj "form-enctype" (Nothing :: Maybe T.Text) - -data DOMHTMLButtonElementFormEnctypePropertyInfo -instance AttrInfo DOMHTMLButtonElementFormEnctypePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormEnctypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementFormEnctypePropertyInfo = "form-enctype" - attrGet _ = getDOMHTMLButtonElementFormEnctype - attrSet _ = setDOMHTMLButtonElementFormEnctype - attrConstruct _ = constructDOMHTMLButtonElementFormEnctype - attrClear _ = clearDOMHTMLButtonElementFormEnctype - --- VVV Prop "form-method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLButtonElementFormMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormMethod val = constructObjectPropertyString "form-method" (Just val) - -clearDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () -clearDOMHTMLButtonElementFormMethod obj = liftIO $ setObjectPropertyString obj "form-method" (Nothing :: Maybe T.Text) - -data DOMHTMLButtonElementFormMethodPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormMethodPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormMethodPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementFormMethodPropertyInfo = "form-method" - attrGet _ = getDOMHTMLButtonElementFormMethod - attrSet _ = setDOMHTMLButtonElementFormMethod - attrConstruct _ = constructDOMHTMLButtonElementFormMethod - attrClear _ = clearDOMHTMLButtonElementFormMethod - --- VVV Prop "form-no-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "form-no-validate" - attrGet _ = getDOMHTMLButtonElementFormNoValidate - attrSet _ = setDOMHTMLButtonElementFormNoValidate - attrConstruct _ = constructDOMHTMLButtonElementFormNoValidate - attrClear _ = undefined - --- VVV Prop "form-target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLButtonElementFormTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementFormTarget val = constructObjectPropertyString "form-target" (Just val) - -clearDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () -clearDOMHTMLButtonElementFormTarget obj = liftIO $ setObjectPropertyString obj "form-target" (Nothing :: Maybe T.Text) - -data DOMHTMLButtonElementFormTargetPropertyInfo -instance AttrInfo DOMHTMLButtonElementFormTargetPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementFormTargetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementFormTargetPropertyInfo = "form-target" - attrGet _ = getDOMHTMLButtonElementFormTarget - attrSet _ = setDOMHTMLButtonElementFormTarget - attrConstruct _ = constructDOMHTMLButtonElementFormTarget - attrClear _ = clearDOMHTMLButtonElementFormTarget - --- VVV Prop "labels" - -- Type: TInterface "WebKit2WebExtension" "DOMNodeList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLButtonElementLabels :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe DOMNodeList) -getDOMHTMLButtonElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLButtonElementLabelsPropertyInfo -instance AttrInfo DOMHTMLButtonElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementLabelsPropertyInfo = (Maybe DOMNodeList) - type AttrLabel DOMHTMLButtonElementLabelsPropertyInfo = "labels" - attrGet _ = getDOMHTMLButtonElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) -getDOMHTMLButtonElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLButtonElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLButtonElementName - attrSet _ = setDOMHTMLButtonElementName - attrConstruct _ = constructDOMHTMLButtonElementName - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) -getDOMHTMLButtonElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLButtonElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m () -clearDOMHTMLButtonElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLButtonElementTypePropertyInfo -instance AttrInfo DOMHTMLButtonElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLButtonElementTypePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLButtonElementType - attrSet _ = setDOMHTMLButtonElementType - attrConstruct _ = constructDOMHTMLButtonElementType - attrClear _ = clearDOMHTMLButtonElementType - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLButtonElementValidationMessage :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) -getDOMHTMLButtonElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLButtonElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLButtonElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLButtonElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = DOMHTMLButtonElementK - type AttrGetType DOMHTMLButtonElementValidationMessagePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementValidationMessagePropertyInfo = "validation-message" - attrGet _ = getDOMHTMLButtonElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m (Maybe T.Text) -getDOMHTMLButtonElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () -setDOMHTMLButtonElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) - -constructDOMHTMLButtonElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLButtonElementValue val = constructObjectPropertyString "value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLButtonElementValuePropertyInfo = "value" - attrGet _ = getDOMHTMLButtonElementValue - attrSet _ = setDOMHTMLButtonElementValue - attrConstruct _ = constructDOMHTMLButtonElementValue - attrClear _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "will-validate" - attrGet _ = getDOMHTMLButtonElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLButtonElement = DOMHTMLButtonElementAttributeList -type DOMHTMLButtonElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLButtonElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLButtonElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLButtonElementFormPropertyInfo), '("formAction", DOMHTMLButtonElementFormActionPropertyInfo), '("formEnctype", DOMHTMLButtonElementFormEnctypePropertyInfo), '("formMethod", DOMHTMLButtonElementFormMethodPropertyInfo), '("formNoValidate", DOMHTMLButtonElementFormNoValidatePropertyInfo), '("formTarget", DOMHTMLButtonElementFormTargetPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLButtonElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLButtonElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLButtonElementTypePropertyInfo), '("validationMessage", DOMHTMLButtonElementValidationMessagePropertyInfo), '("value", DOMHTMLButtonElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLButtonElementWillValidatePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLButtonElementAutofocus :: AttrLabelProxy "autofocus" -dOMHTMLButtonElementAutofocus = AttrLabelProxy - -dOMHTMLButtonElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLButtonElementDisabled = AttrLabelProxy - -dOMHTMLButtonElementForm :: AttrLabelProxy "form" -dOMHTMLButtonElementForm = AttrLabelProxy - -dOMHTMLButtonElementFormAction :: AttrLabelProxy "formAction" -dOMHTMLButtonElementFormAction = AttrLabelProxy - -dOMHTMLButtonElementFormEnctype :: AttrLabelProxy "formEnctype" -dOMHTMLButtonElementFormEnctype = AttrLabelProxy - -dOMHTMLButtonElementFormMethod :: AttrLabelProxy "formMethod" -dOMHTMLButtonElementFormMethod = AttrLabelProxy - -dOMHTMLButtonElementFormNoValidate :: AttrLabelProxy "formNoValidate" -dOMHTMLButtonElementFormNoValidate = AttrLabelProxy - -dOMHTMLButtonElementFormTarget :: AttrLabelProxy "formTarget" -dOMHTMLButtonElementFormTarget = AttrLabelProxy - -dOMHTMLButtonElementLabels :: AttrLabelProxy "labels" -dOMHTMLButtonElementLabels = AttrLabelProxy - -dOMHTMLButtonElementName :: AttrLabelProxy "name" -dOMHTMLButtonElementName = AttrLabelProxy - -dOMHTMLButtonElementType :: AttrLabelProxy "type" -dOMHTMLButtonElementType = AttrLabelProxy - -dOMHTMLButtonElementValidationMessage :: AttrLabelProxy "validationMessage" -dOMHTMLButtonElementValidationMessage = AttrLabelProxy - -dOMHTMLButtonElementValue :: AttrLabelProxy "value" -dOMHTMLButtonElementValue = AttrLabelProxy - -dOMHTMLButtonElementWillValidate :: AttrLabelProxy "willValidate" -dOMHTMLButtonElementWillValidate = AttrLabelProxy - -type instance SignalList DOMHTMLButtonElement = DOMHTMLButtonElementSignalList -type DOMHTMLButtonElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLButtonElement::get_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLButtonElementGetAutofocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementGetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementGetAutofocus - --- method DOMHTMLButtonElement::get_button_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLButtonElementGetButtonTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementGetButtonTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementGetButtonType - --- method DOMHTMLButtonElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLButtonElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementGetDisabled - --- method DOMHTMLButtonElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLButtonElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementGetForm - --- method DOMHTMLButtonElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLButtonElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementGetName - --- method DOMHTMLButtonElement::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLButtonElementGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementGetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementGetValue - --- method DOMHTMLButtonElement::get_will_validate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLButtonElementGetWillValidateMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementGetWillValidateMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementGetWillValidate - --- method DOMHTMLButtonElement::set_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLButtonElementSetAutofocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementSetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementSetAutofocus - --- method DOMHTMLButtonElement::set_button_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLButtonElementSetButtonTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementSetButtonTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementSetButtonType - --- method DOMHTMLButtonElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLButtonElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementSetDisabled - --- method DOMHTMLButtonElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLButtonElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementSetName - --- method DOMHTMLButtonElement::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLButtonElementSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLButtonElementK a) => MethodInfo DOMHTMLButtonElementSetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLButtonElementSetValue - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot +++ /dev/null @@ -1,39 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLButtonElementGetAutofocusMethodInfo -data DOMHTMLButtonElementGetButtonTypeMethodInfo -data DOMHTMLButtonElementGetDisabledMethodInfo -data DOMHTMLButtonElementGetFormMethodInfo -data DOMHTMLButtonElementGetNameMethodInfo -data DOMHTMLButtonElementGetValueMethodInfo -data DOMHTMLButtonElementGetWillValidateMethodInfo -data DOMHTMLButtonElementSetAutofocusMethodInfo -data DOMHTMLButtonElementSetButtonTypeMethodInfo -data DOMHTMLButtonElementSetDisabledMethodInfo -data DOMHTMLButtonElementSetNameMethodInfo -data DOMHTMLButtonElementSetValueMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs +++ /dev/null @@ -1,418 +0,0 @@ - - -{- | -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 - DOMHTMLCanvasElementGetHeightMethodInfo , - dOMHTMLCanvasElementGetHeight , - - --- ** dOMHTMLCanvasElementGetWidth - DOMHTMLCanvasElementGetWidthMethodInfo , - dOMHTMLCanvasElementGetWidth , - - --- ** dOMHTMLCanvasElementSetHeight - DOMHTMLCanvasElementSetHeightMethodInfo , - dOMHTMLCanvasElementSetHeight , - - --- ** dOMHTMLCanvasElementSetWidth - DOMHTMLCanvasElementSetWidthMethodInfo , - dOMHTMLCanvasElementSetWidth , - - - - - -- * Properties --- ** Height - DOMHTMLCanvasElementHeightPropertyInfo , - constructDOMHTMLCanvasElementHeight , - dOMHTMLCanvasElementHeight , - getDOMHTMLCanvasElementHeight , - setDOMHTMLCanvasElementHeight , - - --- ** Width - DOMHTMLCanvasElementWidthPropertyInfo , - constructDOMHTMLCanvasElementWidth , - dOMHTMLCanvasElementWidth , - getDOMHTMLCanvasElementWidth , - setDOMHTMLCanvasElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLCanvasElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLCanvasElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLCanvasElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLCanvasElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLCanvasElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLCanvasElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLCanvasElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLCanvasElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLCanvasElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLCanvasElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLCanvasElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLCanvasElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLCanvasElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLCanvasElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLCanvasElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLCanvasElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLCanvasElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLCanvasElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLCanvasElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLCanvasElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLCanvasElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLCanvasElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLCanvasElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLCanvasElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLCanvasElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLCanvasElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLCanvasElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLCanvasElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLCanvasElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLCanvasElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLCanvasElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLCanvasElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLCanvasElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLCanvasElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLCanvasElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLCanvasElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLCanvasElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLCanvasElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLCanvasElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLCanvasElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLCanvasElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLCanvasElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLCanvasElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLCanvasElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLCanvasElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLCanvasElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLCanvasElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLCanvasElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLCanvasElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLCanvasElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLCanvasElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLCanvasElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLCanvasElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLCanvasElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLCanvasElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLCanvasElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLCanvasElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLCanvasElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLCanvasElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLCanvasElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLCanvasElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLCanvasElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLCanvasElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLCanvasElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLCanvasElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLCanvasElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLCanvasElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLCanvasElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLCanvasElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLCanvasElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLCanvasElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLCanvasElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLCanvasElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLCanvasElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLCanvasElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLCanvasElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLCanvasElementMethod "getHeight" o = DOMHTMLCanvasElementGetHeightMethodInfo - ResolveDOMHTMLCanvasElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLCanvasElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLCanvasElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLCanvasElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLCanvasElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLCanvasElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLCanvasElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLCanvasElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLCanvasElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLCanvasElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLCanvasElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLCanvasElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLCanvasElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLCanvasElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLCanvasElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLCanvasElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLCanvasElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLCanvasElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLCanvasElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLCanvasElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLCanvasElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLCanvasElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLCanvasElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLCanvasElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLCanvasElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLCanvasElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLCanvasElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLCanvasElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLCanvasElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLCanvasElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLCanvasElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLCanvasElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLCanvasElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLCanvasElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLCanvasElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLCanvasElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLCanvasElementMethod "getWidth" o = DOMHTMLCanvasElementGetWidthMethodInfo - ResolveDOMHTMLCanvasElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLCanvasElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLCanvasElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLCanvasElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLCanvasElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLCanvasElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLCanvasElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLCanvasElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLCanvasElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLCanvasElementMethod "setHeight" o = DOMHTMLCanvasElementSetHeightMethodInfo - ResolveDOMHTMLCanvasElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLCanvasElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLCanvasElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLCanvasElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLCanvasElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLCanvasElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLCanvasElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLCanvasElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLCanvasElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLCanvasElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLCanvasElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLCanvasElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLCanvasElementMethod "setWidth" o = DOMHTMLCanvasElementSetWidthMethodInfo - ResolveDOMHTMLCanvasElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLCanvasElementMethod t DOMHTMLCanvasElement, MethodInfo info DOMHTMLCanvasElement p) => IsLabelProxy t (DOMHTMLCanvasElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLCanvasElementMethod t DOMHTMLCanvasElement, MethodInfo info DOMHTMLCanvasElement p) => IsLabel t (DOMHTMLCanvasElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m CLong -getDOMHTMLCanvasElementHeight obj = liftIO $ getObjectPropertyLong obj "height" - -setDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> CLong -> m () -setDOMHTMLCanvasElementHeight obj val = liftIO $ setObjectPropertyLong obj "height" val - -constructDOMHTMLCanvasElementHeight :: CLong -> IO ([Char], GValue) -constructDOMHTMLCanvasElementHeight val = constructObjectPropertyLong "height" val - -data DOMHTMLCanvasElementHeightPropertyInfo -instance AttrInfo DOMHTMLCanvasElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLCanvasElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = DOMHTMLCanvasElementK - type AttrGetType DOMHTMLCanvasElementHeightPropertyInfo = CLong - type AttrLabel DOMHTMLCanvasElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLCanvasElementHeight - attrSet _ = setDOMHTMLCanvasElementHeight - attrConstruct _ = constructDOMHTMLCanvasElementHeight - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m CLong -getDOMHTMLCanvasElementWidth obj = liftIO $ getObjectPropertyLong obj "width" - -setDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> CLong -> m () -setDOMHTMLCanvasElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val - -constructDOMHTMLCanvasElementWidth :: CLong -> IO ([Char], GValue) -constructDOMHTMLCanvasElementWidth val = constructObjectPropertyLong "width" val - -data DOMHTMLCanvasElementWidthPropertyInfo -instance AttrInfo DOMHTMLCanvasElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLCanvasElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = DOMHTMLCanvasElementK - type AttrGetType DOMHTMLCanvasElementWidthPropertyInfo = CLong - type AttrLabel DOMHTMLCanvasElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLCanvasElementWidth - attrSet _ = setDOMHTMLCanvasElementWidth - attrConstruct _ = constructDOMHTMLCanvasElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLCanvasElement = DOMHTMLCanvasElementAttributeList -type DOMHTMLCanvasElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLCanvasElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLCanvasElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLCanvasElementHeight :: AttrLabelProxy "height" -dOMHTMLCanvasElementHeight = AttrLabelProxy - -dOMHTMLCanvasElementWidth :: AttrLabelProxy "width" -dOMHTMLCanvasElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLCanvasElement = DOMHTMLCanvasElementSignalList -type DOMHTMLCanvasElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLCanvasElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLCanvasElementGetHeight :: - (MonadIO m, DOMHTMLCanvasElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLCanvasElementGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_canvas_element_get_height _obj' - touchManagedPtr _obj - return result - -data DOMHTMLCanvasElementGetHeightMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLCanvasElementGetHeight - --- method DOMHTMLCanvasElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLCanvasElementGetWidth :: - (MonadIO m, DOMHTMLCanvasElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLCanvasElementGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_canvas_element_get_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLCanvasElementGetWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLCanvasElementGetWidth - --- method DOMHTMLCanvasElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLCanvasElementSetHeight :: - (MonadIO m, DOMHTMLCanvasElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLCanvasElementSetHeight _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_canvas_element_set_height _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLCanvasElementSetHeightMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLCanvasElementSetHeight - --- method DOMHTMLCanvasElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLCanvasElementSetWidth :: - (MonadIO m, DOMHTMLCanvasElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLCanvasElementSetWidth _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_canvas_element_set_width _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLCanvasElementSetWidthMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLCanvasElementK a) => MethodInfo DOMHTMLCanvasElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLCanvasElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLCanvasElementGetHeightMethodInfo -data DOMHTMLCanvasElementGetWidthMethodInfo -data DOMHTMLCanvasElementSetHeightMethodInfo -data DOMHTMLCanvasElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs +++ /dev/null @@ -1,236 +0,0 @@ - - -{- | -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 - DOMHTMLCollectionGetLengthMethodInfo , - dOMHTMLCollectionGetLength , - - --- ** dOMHTMLCollectionItem - DOMHTMLCollectionItemMethodInfo , - dOMHTMLCollectionItem , - - --- ** dOMHTMLCollectionNamedItem - DOMHTMLCollectionNamedItemMethodInfo , - dOMHTMLCollectionNamedItem , - - - - - -- * Properties --- ** Length - DOMHTMLCollectionLengthPropertyInfo , - dOMHTMLCollectionLength , - getDOMHTMLCollectionLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLCollectionMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLCollectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLCollectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLCollectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLCollectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLCollectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLCollectionMethod "item" o = DOMHTMLCollectionItemMethodInfo - ResolveDOMHTMLCollectionMethod "namedItem" o = DOMHTMLCollectionNamedItemMethodInfo - ResolveDOMHTMLCollectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLCollectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLCollectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLCollectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLCollectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLCollectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLCollectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLCollectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLCollectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLCollectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLCollectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLCollectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLCollectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLCollectionMethod "getLength" o = DOMHTMLCollectionGetLengthMethodInfo - ResolveDOMHTMLCollectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLCollectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLCollectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLCollectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLCollectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLCollectionMethod t DOMHTMLCollection, MethodInfo info DOMHTMLCollection p) => IsLabelProxy t (DOMHTMLCollection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLCollectionMethod t DOMHTMLCollection, MethodInfo info DOMHTMLCollection p) => IsLabel t (DOMHTMLCollection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLCollectionLength :: (MonadIO m, DOMHTMLCollectionK o) => o -> m CULong -getDOMHTMLCollectionLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMHTMLCollectionLengthPropertyInfo -instance AttrInfo DOMHTMLCollectionLengthPropertyInfo where - type AttrAllowedOps DOMHTMLCollectionLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLCollectionLengthPropertyInfo = DOMHTMLCollectionK - type AttrGetType DOMHTMLCollectionLengthPropertyInfo = CULong - type AttrLabel DOMHTMLCollectionLengthPropertyInfo = "length" - attrGet _ = getDOMHTMLCollectionLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLCollection = DOMHTMLCollectionAttributeList -type DOMHTMLCollectionAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLCollectionLengthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLCollectionLength :: AttrLabelProxy "length" -dOMHTMLCollectionLength = AttrLabelProxy - -type instance SignalList DOMHTMLCollection = DOMHTMLCollectionSignalList -type DOMHTMLCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLCollection::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMHTMLCollectionGetLength :: - (MonadIO m, DOMHTMLCollectionK a) => - a -- _obj - -> m CULong -- result -dOMHTMLCollectionGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_collection_get_length _obj' - touchManagedPtr _obj - return result - -data DOMHTMLCollectionGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMHTMLCollectionK a) => MethodInfo DOMHTMLCollectionGetLengthMethodInfo a signature where - overloadedMethod _ = dOMHTMLCollectionGetLength - --- method DOMHTMLCollection::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO (Ptr DOMNode) - - -dOMHTMLCollectionItem :: - (MonadIO m, DOMHTMLCollectionK a) => - a -- _obj - -> CULong -- index - -> m DOMNode -- result -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' - -data DOMHTMLCollectionItemMethodInfo -instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMHTMLCollectionK a) => MethodInfo DOMHTMLCollectionItemMethodInfo a signature where - overloadedMethod _ = dOMHTMLCollectionItem - --- method DOMHTMLCollection::named_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLCollectionNamedItemMethodInfo -instance (signature ~ (T.Text -> m DOMNode), MonadIO m, DOMHTMLCollectionK a) => MethodInfo DOMHTMLCollectionNamedItemMethodInfo a signature where - overloadedMethod _ = dOMHTMLCollectionNamedItem - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLCollection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLCollectionGetLengthMethodInfo -data DOMHTMLCollectionItemMethodInfo -data DOMHTMLCollectionNamedItemMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs +++ /dev/null @@ -1,315 +0,0 @@ - - -{- | -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 - DOMHTMLDListElementGetCompactMethodInfo , - dOMHTMLDListElementGetCompact , - - --- ** dOMHTMLDListElementSetCompact - DOMHTMLDListElementSetCompactMethodInfo , - dOMHTMLDListElementSetCompact , - - - - - -- * Properties --- ** Compact - DOMHTMLDListElementCompactPropertyInfo , - constructDOMHTMLDListElementCompact , - dOMHTMLDListElementCompact , - getDOMHTMLDListElementCompact , - setDOMHTMLDListElementCompact , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLDListElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLDListElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLDListElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLDListElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLDListElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLDListElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLDListElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLDListElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLDListElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLDListElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLDListElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLDListElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLDListElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLDListElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLDListElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLDListElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLDListElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLDListElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLDListElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLDListElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLDListElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLDListElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLDListElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLDListElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLDListElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLDListElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLDListElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLDListElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLDListElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLDListElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLDListElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLDListElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLDListElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLDListElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLDListElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLDListElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLDListElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLDListElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLDListElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLDListElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLDListElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLDListElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLDListElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLDListElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLDListElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLDListElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLDListElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLDListElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLDListElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLDListElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLDListElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLDListElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLDListElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLDListElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLDListElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLDListElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLDListElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLDListElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLDListElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLDListElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLDListElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLDListElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLDListElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLDListElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLDListElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLDListElementMethod "getCompact" o = DOMHTMLDListElementGetCompactMethodInfo - ResolveDOMHTMLDListElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLDListElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLDListElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLDListElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLDListElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDListElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLDListElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDListElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLDListElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLDListElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLDListElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLDListElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLDListElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLDListElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLDListElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLDListElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLDListElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLDListElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLDListElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLDListElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLDListElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLDListElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLDListElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLDListElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLDListElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLDListElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLDListElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLDListElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLDListElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLDListElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLDListElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLDListElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLDListElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLDListElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLDListElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLDListElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLDListElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLDListElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLDListElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLDListElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLDListElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLDListElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLDListElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLDListElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLDListElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLDListElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLDListElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLDListElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLDListElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLDListElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLDListElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLDListElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLDListElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLDListElementMethod "setCompact" o = DOMHTMLDListElementSetCompactMethodInfo - ResolveDOMHTMLDListElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLDListElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLDListElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLDListElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLDListElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLDListElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLDListElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLDListElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLDListElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLDListElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLDListElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLDListElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLDListElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLDListElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLDListElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLDListElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLDListElementMethod t DOMHTMLDListElement, MethodInfo info DOMHTMLDListElement p) => IsLabelProxy t (DOMHTMLDListElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLDListElementMethod t DOMHTMLDListElement, MethodInfo info DOMHTMLDListElement p) => IsLabel t (DOMHTMLDListElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "compact" - attrGet _ = getDOMHTMLDListElementCompact - attrSet _ = setDOMHTMLDListElementCompact - attrConstruct _ = constructDOMHTMLDListElementCompact - attrClear _ = undefined - -type instance AttributeList DOMHTMLDListElement = DOMHTMLDListElementAttributeList -type DOMHTMLDListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDListElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLDListElementCompact :: AttrLabelProxy "compact" -dOMHTMLDListElementCompact = AttrLabelProxy - -type instance SignalList DOMHTMLDListElement = DOMHTMLDListElementSignalList -type DOMHTMLDListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLDListElement::get_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDListElementGetCompactMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLDListElementK a) => MethodInfo DOMHTMLDListElementGetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLDListElementGetCompact - --- method DOMHTMLDListElement::set_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDListElementSetCompactMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLDListElementK a) => MethodInfo DOMHTMLDListElementSetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLDListElementSetCompact - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLDListElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLDListElementGetCompactMethodInfo -data DOMHTMLDListElementSetCompactMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs +++ /dev/null @@ -1,315 +0,0 @@ - - -{- | -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 - DOMHTMLDirectoryElementGetCompactMethodInfo, - dOMHTMLDirectoryElementGetCompact , - - --- ** dOMHTMLDirectoryElementSetCompact - DOMHTMLDirectoryElementSetCompactMethodInfo, - dOMHTMLDirectoryElementSetCompact , - - - - - -- * Properties --- ** Compact - DOMHTMLDirectoryElementCompactPropertyInfo, - constructDOMHTMLDirectoryElementCompact , - dOMHTMLDirectoryElementCompact , - getDOMHTMLDirectoryElementCompact , - setDOMHTMLDirectoryElementCompact , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLDirectoryElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLDirectoryElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLDirectoryElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLDirectoryElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLDirectoryElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLDirectoryElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLDirectoryElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLDirectoryElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLDirectoryElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLDirectoryElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLDirectoryElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLDirectoryElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLDirectoryElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLDirectoryElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLDirectoryElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLDirectoryElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLDirectoryElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLDirectoryElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLDirectoryElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLDirectoryElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLDirectoryElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLDirectoryElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLDirectoryElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLDirectoryElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLDirectoryElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLDirectoryElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLDirectoryElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLDirectoryElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLDirectoryElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLDirectoryElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLDirectoryElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLDirectoryElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLDirectoryElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLDirectoryElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLDirectoryElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getCompact" o = DOMHTMLDirectoryElementGetCompactMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLDirectoryElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setCompact" o = DOMHTMLDirectoryElementSetCompactMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLDirectoryElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLDirectoryElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLDirectoryElementMethod t DOMHTMLDirectoryElement, MethodInfo info DOMHTMLDirectoryElement p) => IsLabelProxy t (DOMHTMLDirectoryElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLDirectoryElementMethod t DOMHTMLDirectoryElement, MethodInfo info DOMHTMLDirectoryElement p) => IsLabel t (DOMHTMLDirectoryElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "compact" - attrGet _ = getDOMHTMLDirectoryElementCompact - attrSet _ = setDOMHTMLDirectoryElementCompact - attrConstruct _ = constructDOMHTMLDirectoryElementCompact - attrClear _ = undefined - -type instance AttributeList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementAttributeList -type DOMHTMLDirectoryElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDirectoryElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLDirectoryElementCompact :: AttrLabelProxy "compact" -dOMHTMLDirectoryElementCompact = AttrLabelProxy - -type instance SignalList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementSignalList -type DOMHTMLDirectoryElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLDirectoryElement::get_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDirectoryElementGetCompactMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLDirectoryElementK a) => MethodInfo DOMHTMLDirectoryElementGetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLDirectoryElementGetCompact - --- method DOMHTMLDirectoryElement::set_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDirectoryElementSetCompactMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLDirectoryElementK a) => MethodInfo DOMHTMLDirectoryElementSetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLDirectoryElementSetCompact - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLDirectoryElementGetCompactMethodInfo -data DOMHTMLDirectoryElementSetCompactMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLDivElementGetAlignMethodInfo , - dOMHTMLDivElementGetAlign , - - --- ** dOMHTMLDivElementSetAlign - DOMHTMLDivElementSetAlignMethodInfo , - dOMHTMLDivElementSetAlign , - - - - - -- * Properties --- ** Align - DOMHTMLDivElementAlignPropertyInfo , - constructDOMHTMLDivElementAlign , - dOMHTMLDivElementAlign , - getDOMHTMLDivElementAlign , - setDOMHTMLDivElementAlign , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLDivElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLDivElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLDivElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLDivElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLDivElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLDivElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLDivElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLDivElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLDivElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLDivElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLDivElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLDivElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLDivElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLDivElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLDivElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLDivElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLDivElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLDivElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLDivElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLDivElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLDivElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLDivElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLDivElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLDivElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLDivElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLDivElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLDivElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLDivElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLDivElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLDivElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLDivElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLDivElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLDivElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLDivElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLDivElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLDivElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLDivElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLDivElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLDivElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLDivElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLDivElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLDivElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLDivElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLDivElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLDivElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLDivElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLDivElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLDivElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLDivElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLDivElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLDivElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLDivElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLDivElementMethod "getAlign" o = DOMHTMLDivElementGetAlignMethodInfo - ResolveDOMHTMLDivElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLDivElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLDivElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLDivElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLDivElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLDivElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLDivElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLDivElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLDivElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLDivElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLDivElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLDivElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLDivElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLDivElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLDivElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLDivElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLDivElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLDivElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDivElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLDivElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDivElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLDivElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLDivElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLDivElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLDivElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLDivElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLDivElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLDivElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLDivElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLDivElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLDivElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLDivElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLDivElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLDivElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLDivElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLDivElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLDivElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLDivElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLDivElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLDivElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLDivElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLDivElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLDivElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLDivElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLDivElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLDivElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLDivElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLDivElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLDivElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLDivElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLDivElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLDivElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLDivElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLDivElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLDivElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLDivElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLDivElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLDivElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLDivElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLDivElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLDivElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLDivElementMethod "setAlign" o = DOMHTMLDivElementSetAlignMethodInfo - ResolveDOMHTMLDivElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLDivElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLDivElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLDivElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLDivElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLDivElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLDivElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLDivElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLDivElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLDivElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLDivElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLDivElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLDivElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLDivElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLDivElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLDivElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLDivElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLDivElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLDivElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLDivElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLDivElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLDivElementMethod t DOMHTMLDivElement, MethodInfo info DOMHTMLDivElement p) => IsLabelProxy t (DOMHTMLDivElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLDivElementMethod t DOMHTMLDivElement, MethodInfo info DOMHTMLDivElement p) => IsLabel t (DOMHTMLDivElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> m (Maybe T.Text) -getDOMHTMLDivElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> T.Text -> m () -setDOMHTMLDivElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLDivElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDivElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDivElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLDivElementAlign - attrSet _ = setDOMHTMLDivElementAlign - attrConstruct _ = constructDOMHTMLDivElementAlign - attrClear _ = undefined - -type instance AttributeList DOMHTMLDivElement = DOMHTMLDivElementAttributeList -type DOMHTMLDivElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLDivElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLDivElementAlign :: AttrLabelProxy "align" -dOMHTMLDivElementAlign = AttrLabelProxy - -type instance SignalList DOMHTMLDivElement = DOMHTMLDivElementSignalList -type DOMHTMLDivElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLDivElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDivElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDivElementK a) => MethodInfo DOMHTMLDivElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLDivElementGetAlign - --- method DOMHTMLDivElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDivElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDivElementK a) => MethodInfo DOMHTMLDivElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLDivElementSetAlign - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLDivElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLDivElementGetAlignMethodInfo -data DOMHTMLDivElementSetAlignMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs +++ /dev/null @@ -1,1495 +0,0 @@ - - -{- | -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 - DOMHTMLDocumentCaptureEventsMethodInfo , - dOMHTMLDocumentCaptureEvents , - - --- ** dOMHTMLDocumentClear - DOMHTMLDocumentClearMethodInfo , - dOMHTMLDocumentClear , - - --- ** dOMHTMLDocumentClose - DOMHTMLDocumentCloseMethodInfo , - dOMHTMLDocumentClose , - - --- ** dOMHTMLDocumentGetAlinkColor - DOMHTMLDocumentGetAlinkColorMethodInfo , - dOMHTMLDocumentGetAlinkColor , - - --- ** dOMHTMLDocumentGetBgColor - DOMHTMLDocumentGetBgColorMethodInfo , - dOMHTMLDocumentGetBgColor , - - --- ** dOMHTMLDocumentGetCompatMode - DOMHTMLDocumentGetCompatModeMethodInfo , - dOMHTMLDocumentGetCompatMode , - - --- ** dOMHTMLDocumentGetDesignMode - DOMHTMLDocumentGetDesignModeMethodInfo , - dOMHTMLDocumentGetDesignMode , - - --- ** dOMHTMLDocumentGetDir - DOMHTMLDocumentGetDirMethodInfo , - dOMHTMLDocumentGetDir , - - --- ** dOMHTMLDocumentGetEmbeds - DOMHTMLDocumentGetEmbedsMethodInfo , - dOMHTMLDocumentGetEmbeds , - - --- ** dOMHTMLDocumentGetFgColor - DOMHTMLDocumentGetFgColorMethodInfo , - dOMHTMLDocumentGetFgColor , - - --- ** dOMHTMLDocumentGetHeight - DOMHTMLDocumentGetHeightMethodInfo , - dOMHTMLDocumentGetHeight , - - --- ** dOMHTMLDocumentGetLinkColor - DOMHTMLDocumentGetLinkColorMethodInfo , - dOMHTMLDocumentGetLinkColor , - - --- ** dOMHTMLDocumentGetPlugins - DOMHTMLDocumentGetPluginsMethodInfo , - dOMHTMLDocumentGetPlugins , - - --- ** dOMHTMLDocumentGetScripts - DOMHTMLDocumentGetScriptsMethodInfo , - dOMHTMLDocumentGetScripts , - - --- ** dOMHTMLDocumentGetVlinkColor - DOMHTMLDocumentGetVlinkColorMethodInfo , - dOMHTMLDocumentGetVlinkColor , - - --- ** dOMHTMLDocumentGetWidth - DOMHTMLDocumentGetWidthMethodInfo , - dOMHTMLDocumentGetWidth , - - --- ** dOMHTMLDocumentReleaseEvents - DOMHTMLDocumentReleaseEventsMethodInfo , - dOMHTMLDocumentReleaseEvents , - - --- ** dOMHTMLDocumentSetAlinkColor - DOMHTMLDocumentSetAlinkColorMethodInfo , - dOMHTMLDocumentSetAlinkColor , - - --- ** dOMHTMLDocumentSetBgColor - DOMHTMLDocumentSetBgColorMethodInfo , - dOMHTMLDocumentSetBgColor , - - --- ** dOMHTMLDocumentSetDesignMode - DOMHTMLDocumentSetDesignModeMethodInfo , - dOMHTMLDocumentSetDesignMode , - - --- ** dOMHTMLDocumentSetDir - DOMHTMLDocumentSetDirMethodInfo , - dOMHTMLDocumentSetDir , - - --- ** dOMHTMLDocumentSetFgColor - DOMHTMLDocumentSetFgColorMethodInfo , - dOMHTMLDocumentSetFgColor , - - --- ** dOMHTMLDocumentSetLinkColor - DOMHTMLDocumentSetLinkColorMethodInfo , - dOMHTMLDocumentSetLinkColor , - - --- ** dOMHTMLDocumentSetVlinkColor - DOMHTMLDocumentSetVlinkColorMethodInfo , - dOMHTMLDocumentSetVlinkColor , - - - - - -- * Properties --- ** AlinkColor - DOMHTMLDocumentAlinkColorPropertyInfo , - constructDOMHTMLDocumentAlinkColor , - dOMHTMLDocumentAlinkColor , - getDOMHTMLDocumentAlinkColor , - setDOMHTMLDocumentAlinkColor , - - --- ** BgColor - DOMHTMLDocumentBgColorPropertyInfo , - constructDOMHTMLDocumentBgColor , - dOMHTMLDocumentBgColor , - getDOMHTMLDocumentBgColor , - setDOMHTMLDocumentBgColor , - - --- ** CompatMode - DOMHTMLDocumentCompatModePropertyInfo , - dOMHTMLDocumentCompatMode , - getDOMHTMLDocumentCompatMode , - - --- ** DesignMode - DOMHTMLDocumentDesignModePropertyInfo , - constructDOMHTMLDocumentDesignMode , - dOMHTMLDocumentDesignMode , - getDOMHTMLDocumentDesignMode , - setDOMHTMLDocumentDesignMode , - - --- ** Dir - DOMHTMLDocumentDirPropertyInfo , - constructDOMHTMLDocumentDir , - dOMHTMLDocumentDir , - getDOMHTMLDocumentDir , - setDOMHTMLDocumentDir , - - --- ** Embeds - DOMHTMLDocumentEmbedsPropertyInfo , - dOMHTMLDocumentEmbeds , - getDOMHTMLDocumentEmbeds , - - --- ** FgColor - DOMHTMLDocumentFgColorPropertyInfo , - constructDOMHTMLDocumentFgColor , - dOMHTMLDocumentFgColor , - getDOMHTMLDocumentFgColor , - setDOMHTMLDocumentFgColor , - - --- ** Height - DOMHTMLDocumentHeightPropertyInfo , - dOMHTMLDocumentHeight , - getDOMHTMLDocumentHeight , - - --- ** LinkColor - DOMHTMLDocumentLinkColorPropertyInfo , - constructDOMHTMLDocumentLinkColor , - dOMHTMLDocumentLinkColor , - getDOMHTMLDocumentLinkColor , - setDOMHTMLDocumentLinkColor , - - --- ** Plugins - DOMHTMLDocumentPluginsPropertyInfo , - dOMHTMLDocumentPlugins , - getDOMHTMLDocumentPlugins , - - --- ** Scripts - DOMHTMLDocumentScriptsPropertyInfo , - dOMHTMLDocumentScripts , - getDOMHTMLDocumentScripts , - - --- ** VlinkColor - DOMHTMLDocumentVlinkColorPropertyInfo , - constructDOMHTMLDocumentVlinkColor , - dOMHTMLDocumentVlinkColor , - getDOMHTMLDocumentVlinkColor , - setDOMHTMLDocumentVlinkColor , - - --- ** Width - DOMHTMLDocumentWidthPropertyInfo , - dOMHTMLDocumentWidth , - getDOMHTMLDocumentWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLDocumentMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLDocumentMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLDocumentMethod "adoptNode" o = DOMDocumentAdoptNodeMethodInfo - ResolveDOMHTMLDocumentMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLDocumentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLDocumentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLDocumentMethod "captureEvents" o = DOMHTMLDocumentCaptureEventsMethodInfo - ResolveDOMHTMLDocumentMethod "clear" o = DOMHTMLDocumentClearMethodInfo - ResolveDOMHTMLDocumentMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLDocumentMethod "close" o = DOMHTMLDocumentCloseMethodInfo - ResolveDOMHTMLDocumentMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLDocumentMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLDocumentMethod "createAttribute" o = DOMDocumentCreateAttributeMethodInfo - ResolveDOMHTMLDocumentMethod "createAttributeNs" o = DOMDocumentCreateAttributeNsMethodInfo - ResolveDOMHTMLDocumentMethod "createCdataSection" o = DOMDocumentCreateCdataSectionMethodInfo - ResolveDOMHTMLDocumentMethod "createComment" o = DOMDocumentCreateCommentMethodInfo - ResolveDOMHTMLDocumentMethod "createCssStyleDeclaration" o = DOMDocumentCreateCssStyleDeclarationMethodInfo - ResolveDOMHTMLDocumentMethod "createDocumentFragment" o = DOMDocumentCreateDocumentFragmentMethodInfo - ResolveDOMHTMLDocumentMethod "createElement" o = DOMDocumentCreateElementMethodInfo - ResolveDOMHTMLDocumentMethod "createElementNs" o = DOMDocumentCreateElementNsMethodInfo - ResolveDOMHTMLDocumentMethod "createEntityReference" o = DOMDocumentCreateEntityReferenceMethodInfo - ResolveDOMHTMLDocumentMethod "createEvent" o = DOMDocumentCreateEventMethodInfo - ResolveDOMHTMLDocumentMethod "createExpression" o = DOMDocumentCreateExpressionMethodInfo - ResolveDOMHTMLDocumentMethod "createNodeIterator" o = DOMDocumentCreateNodeIteratorMethodInfo - ResolveDOMHTMLDocumentMethod "createNsResolver" o = DOMDocumentCreateNsResolverMethodInfo - ResolveDOMHTMLDocumentMethod "createProcessingInstruction" o = DOMDocumentCreateProcessingInstructionMethodInfo - ResolveDOMHTMLDocumentMethod "createRange" o = DOMDocumentCreateRangeMethodInfo - ResolveDOMHTMLDocumentMethod "createTextNode" o = DOMDocumentCreateTextNodeMethodInfo - ResolveDOMHTMLDocumentMethod "createTreeWalker" o = DOMDocumentCreateTreeWalkerMethodInfo - ResolveDOMHTMLDocumentMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLDocumentMethod "elementFromPoint" o = DOMDocumentElementFromPointMethodInfo - ResolveDOMHTMLDocumentMethod "evaluate" o = DOMDocumentEvaluateMethodInfo - ResolveDOMHTMLDocumentMethod "execCommand" o = DOMDocumentExecCommandMethodInfo - ResolveDOMHTMLDocumentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLDocumentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLDocumentMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLDocumentMethod "hasFocus" o = DOMDocumentHasFocusMethodInfo - ResolveDOMHTMLDocumentMethod "importNode" o = DOMDocumentImportNodeMethodInfo - ResolveDOMHTMLDocumentMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLDocumentMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLDocumentMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLDocumentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLDocumentMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLDocumentMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLDocumentMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLDocumentMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLDocumentMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLDocumentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLDocumentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLDocumentMethod "queryCommandEnabled" o = DOMDocumentQueryCommandEnabledMethodInfo - ResolveDOMHTMLDocumentMethod "queryCommandIndeterm" o = DOMDocumentQueryCommandIndetermMethodInfo - ResolveDOMHTMLDocumentMethod "queryCommandState" o = DOMDocumentQueryCommandStateMethodInfo - ResolveDOMHTMLDocumentMethod "queryCommandSupported" o = DOMDocumentQueryCommandSupportedMethodInfo - ResolveDOMHTMLDocumentMethod "queryCommandValue" o = DOMDocumentQueryCommandValueMethodInfo - ResolveDOMHTMLDocumentMethod "querySelector" o = DOMDocumentQuerySelectorMethodInfo - ResolveDOMHTMLDocumentMethod "querySelectorAll" o = DOMDocumentQuerySelectorAllMethodInfo - ResolveDOMHTMLDocumentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLDocumentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLDocumentMethod "releaseEvents" o = DOMHTMLDocumentReleaseEventsMethodInfo - ResolveDOMHTMLDocumentMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLDocumentMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLDocumentMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLDocumentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLDocumentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLDocumentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLDocumentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLDocumentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLDocumentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLDocumentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLDocumentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLDocumentMethod "getActiveElement" o = DOMDocumentGetActiveElementMethodInfo - ResolveDOMHTMLDocumentMethod "getAlinkColor" o = DOMHTMLDocumentGetAlinkColorMethodInfo - ResolveDOMHTMLDocumentMethod "getAnchors" o = DOMDocumentGetAnchorsMethodInfo - ResolveDOMHTMLDocumentMethod "getApplets" o = DOMDocumentGetAppletsMethodInfo - ResolveDOMHTMLDocumentMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLDocumentMethod "getBgColor" o = DOMHTMLDocumentGetBgColorMethodInfo - ResolveDOMHTMLDocumentMethod "getBody" o = DOMDocumentGetBodyMethodInfo - ResolveDOMHTMLDocumentMethod "getCharacterSet" o = DOMDocumentGetCharacterSetMethodInfo - ResolveDOMHTMLDocumentMethod "getCharset" o = DOMDocumentGetCharsetMethodInfo - ResolveDOMHTMLDocumentMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLDocumentMethod "getCompatMode" o = DOMHTMLDocumentGetCompatModeMethodInfo - ResolveDOMHTMLDocumentMethod "getCookie" o = DOMDocumentGetCookieMethodInfo - ResolveDOMHTMLDocumentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLDocumentMethod "getDefaultCharset" o = DOMDocumentGetDefaultCharsetMethodInfo - ResolveDOMHTMLDocumentMethod "getDefaultView" o = DOMDocumentGetDefaultViewMethodInfo - ResolveDOMHTMLDocumentMethod "getDesignMode" o = DOMHTMLDocumentGetDesignModeMethodInfo - ResolveDOMHTMLDocumentMethod "getDir" o = DOMHTMLDocumentGetDirMethodInfo - ResolveDOMHTMLDocumentMethod "getDoctype" o = DOMDocumentGetDoctypeMethodInfo - ResolveDOMHTMLDocumentMethod "getDocumentElement" o = DOMDocumentGetDocumentElementMethodInfo - ResolveDOMHTMLDocumentMethod "getDocumentUri" o = DOMDocumentGetDocumentUriMethodInfo - ResolveDOMHTMLDocumentMethod "getDomain" o = DOMDocumentGetDomainMethodInfo - ResolveDOMHTMLDocumentMethod "getElementById" o = DOMDocumentGetElementByIdMethodInfo - ResolveDOMHTMLDocumentMethod "getElementsByClassName" o = DOMDocumentGetElementsByClassNameMethodInfo - ResolveDOMHTMLDocumentMethod "getElementsByClassNameAsHtmlCollection" o = DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDocumentMethod "getElementsByName" o = DOMDocumentGetElementsByNameMethodInfo - ResolveDOMHTMLDocumentMethod "getElementsByTagName" o = DOMDocumentGetElementsByTagNameMethodInfo - ResolveDOMHTMLDocumentMethod "getElementsByTagNameAsHtmlCollection" o = DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLDocumentMethod "getElementsByTagNameNs" o = DOMDocumentGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLDocumentMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLDocumentMethod "getEmbeds" o = DOMHTMLDocumentGetEmbedsMethodInfo - ResolveDOMHTMLDocumentMethod "getFgColor" o = DOMHTMLDocumentGetFgColorMethodInfo - ResolveDOMHTMLDocumentMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLDocumentMethod "getForms" o = DOMDocumentGetFormsMethodInfo - ResolveDOMHTMLDocumentMethod "getHead" o = DOMDocumentGetHeadMethodInfo - ResolveDOMHTMLDocumentMethod "getHeight" o = DOMHTMLDocumentGetHeightMethodInfo - ResolveDOMHTMLDocumentMethod "getImages" o = DOMDocumentGetImagesMethodInfo - ResolveDOMHTMLDocumentMethod "getImplementation" o = DOMDocumentGetImplementationMethodInfo - ResolveDOMHTMLDocumentMethod "getInputEncoding" o = DOMDocumentGetInputEncodingMethodInfo - ResolveDOMHTMLDocumentMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLDocumentMethod "getLastModified" o = DOMDocumentGetLastModifiedMethodInfo - ResolveDOMHTMLDocumentMethod "getLinkColor" o = DOMHTMLDocumentGetLinkColorMethodInfo - ResolveDOMHTMLDocumentMethod "getLinks" o = DOMDocumentGetLinksMethodInfo - ResolveDOMHTMLDocumentMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLDocumentMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLDocumentMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLDocumentMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLDocumentMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLDocumentMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLDocumentMethod "getOverrideStyle" o = DOMDocumentGetOverrideStyleMethodInfo - ResolveDOMHTMLDocumentMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLDocumentMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLDocumentMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLDocumentMethod "getPlugins" o = DOMHTMLDocumentGetPluginsMethodInfo - ResolveDOMHTMLDocumentMethod "getPreferredStylesheetSet" o = DOMDocumentGetPreferredStylesheetSetMethodInfo - ResolveDOMHTMLDocumentMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLDocumentMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLDocumentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLDocumentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLDocumentMethod "getReadyState" o = DOMDocumentGetReadyStateMethodInfo - ResolveDOMHTMLDocumentMethod "getReferrer" o = DOMDocumentGetReferrerMethodInfo - ResolveDOMHTMLDocumentMethod "getScripts" o = DOMHTMLDocumentGetScriptsMethodInfo - ResolveDOMHTMLDocumentMethod "getSelectedStylesheetSet" o = DOMDocumentGetSelectedStylesheetSetMethodInfo - ResolveDOMHTMLDocumentMethod "getStyleSheets" o = DOMDocumentGetStyleSheetsMethodInfo - ResolveDOMHTMLDocumentMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLDocumentMethod "getTitle" o = DOMDocumentGetTitleMethodInfo - ResolveDOMHTMLDocumentMethod "getUrl" o = DOMDocumentGetUrlMethodInfo - ResolveDOMHTMLDocumentMethod "getVlinkColor" o = DOMHTMLDocumentGetVlinkColorMethodInfo - ResolveDOMHTMLDocumentMethod "getWidth" o = DOMHTMLDocumentGetWidthMethodInfo - ResolveDOMHTMLDocumentMethod "getXmlEncoding" o = DOMDocumentGetXmlEncodingMethodInfo - ResolveDOMHTMLDocumentMethod "getXmlStandalone" o = DOMDocumentGetXmlStandaloneMethodInfo - ResolveDOMHTMLDocumentMethod "getXmlVersion" o = DOMDocumentGetXmlVersionMethodInfo - ResolveDOMHTMLDocumentMethod "setAlinkColor" o = DOMHTMLDocumentSetAlinkColorMethodInfo - ResolveDOMHTMLDocumentMethod "setBgColor" o = DOMHTMLDocumentSetBgColorMethodInfo - ResolveDOMHTMLDocumentMethod "setBody" o = DOMDocumentSetBodyMethodInfo - ResolveDOMHTMLDocumentMethod "setCharset" o = DOMDocumentSetCharsetMethodInfo - ResolveDOMHTMLDocumentMethod "setCookie" o = DOMDocumentSetCookieMethodInfo - ResolveDOMHTMLDocumentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLDocumentMethod "setDesignMode" o = DOMHTMLDocumentSetDesignModeMethodInfo - ResolveDOMHTMLDocumentMethod "setDir" o = DOMHTMLDocumentSetDirMethodInfo - ResolveDOMHTMLDocumentMethod "setDocumentUri" o = DOMDocumentSetDocumentUriMethodInfo - ResolveDOMHTMLDocumentMethod "setFgColor" o = DOMHTMLDocumentSetFgColorMethodInfo - ResolveDOMHTMLDocumentMethod "setLinkColor" o = DOMHTMLDocumentSetLinkColorMethodInfo - ResolveDOMHTMLDocumentMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLDocumentMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLDocumentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLDocumentMethod "setSelectedStylesheetSet" o = DOMDocumentSetSelectedStylesheetSetMethodInfo - ResolveDOMHTMLDocumentMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLDocumentMethod "setTitle" o = DOMDocumentSetTitleMethodInfo - ResolveDOMHTMLDocumentMethod "setVlinkColor" o = DOMHTMLDocumentSetVlinkColorMethodInfo - ResolveDOMHTMLDocumentMethod "setXmlStandalone" o = DOMDocumentSetXmlStandaloneMethodInfo - ResolveDOMHTMLDocumentMethod "setXmlVersion" o = DOMDocumentSetXmlVersionMethodInfo - ResolveDOMHTMLDocumentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLDocumentMethod t DOMHTMLDocument, MethodInfo info DOMHTMLDocument p) => IsLabelProxy t (DOMHTMLDocument -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLDocumentMethod t DOMHTMLDocument, MethodInfo info DOMHTMLDocument p) => IsLabel t (DOMHTMLDocument -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "alink-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLDocumentAlinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentAlinkColorPropertyInfo = "alink-color" - attrGet _ = getDOMHTMLDocumentAlinkColor - attrSet _ = setDOMHTMLDocumentAlinkColor - attrConstruct _ = constructDOMHTMLDocumentAlinkColor - attrClear _ = undefined - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLDocumentBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentBgColorPropertyInfo = "bg-color" - attrGet _ = getDOMHTMLDocumentBgColor - attrSet _ = setDOMHTMLDocumentBgColor - attrConstruct _ = constructDOMHTMLDocumentBgColor - attrClear _ = undefined - --- VVV Prop "compat-mode" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) -getDOMHTMLDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" - -data DOMHTMLDocumentCompatModePropertyInfo -instance AttrInfo DOMHTMLDocumentCompatModePropertyInfo where - type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentCompatModePropertyInfo = "compat-mode" - attrGet _ = getDOMHTMLDocumentCompatMode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "design-mode" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLDocumentDesignMode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentDesignModePropertyInfo = "design-mode" - attrGet _ = getDOMHTMLDocumentDesignMode - attrSet _ = setDOMHTMLDocumentDesignMode - attrConstruct _ = constructDOMHTMLDocumentDesignMode - attrClear _ = undefined - --- VVV Prop "dir" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe T.Text) -getDOMHTMLDocumentDir obj = liftIO $ getObjectPropertyString obj "dir" - -setDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () -setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" (Just val) - -constructDOMHTMLDocumentDir :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentDirPropertyInfo = "dir" - attrGet _ = getDOMHTMLDocumentDir - attrSet _ = setDOMHTMLDocumentDir - attrConstruct _ = constructDOMHTMLDocumentDir - attrClear _ = undefined - --- VVV Prop "embeds" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLDocumentEmbeds obj = liftIO $ getObjectPropertyObject obj "embeds" DOMHTMLCollection - -data DOMHTMLDocumentEmbedsPropertyInfo -instance AttrInfo DOMHTMLDocumentEmbedsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLDocumentEmbedsPropertyInfo = "embeds" - attrGet _ = getDOMHTMLDocumentEmbeds - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "fg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLDocumentFgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentFgColorPropertyInfo = "fg-color" - attrGet _ = getDOMHTMLDocumentFgColor - attrSet _ = setDOMHTMLDocumentFgColor - attrConstruct _ = constructDOMHTMLDocumentFgColor - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m CLong -getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyLong obj "height" - -data DOMHTMLDocumentHeightPropertyInfo -instance AttrInfo DOMHTMLDocumentHeightPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentHeightPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentHeightPropertyInfo = CLong - type AttrLabel DOMHTMLDocumentHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLDocumentHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "link-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLDocumentLinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentLinkColorPropertyInfo = "link-color" - attrGet _ = getDOMHTMLDocumentLinkColor - attrSet _ = setDOMHTMLDocumentLinkColor - attrConstruct _ = constructDOMHTMLDocumentLinkColor - attrClear _ = undefined - --- VVV Prop "plugins" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLDocumentPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMHTMLCollection - -data DOMHTMLDocumentPluginsPropertyInfo -instance AttrInfo DOMHTMLDocumentPluginsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLDocumentPluginsPropertyInfo = "plugins" - attrGet _ = getDOMHTMLDocumentPlugins - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "scripts" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLDocumentScripts obj = liftIO $ getObjectPropertyObject obj "scripts" DOMHTMLCollection - -data DOMHTMLDocumentScriptsPropertyInfo -instance AttrInfo DOMHTMLDocumentScriptsPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLDocumentScriptsPropertyInfo = "scripts" - attrGet _ = getDOMHTMLDocumentScripts - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "vlink-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLDocumentVlinkColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLDocumentVlinkColorPropertyInfo = "vlink-color" - attrGet _ = getDOMHTMLDocumentVlinkColor - attrSet _ = setDOMHTMLDocumentVlinkColor - attrConstruct _ = constructDOMHTMLDocumentVlinkColor - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m CLong -getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyLong obj "width" - -data DOMHTMLDocumentWidthPropertyInfo -instance AttrInfo DOMHTMLDocumentWidthPropertyInfo where - type AttrAllowedOps DOMHTMLDocumentWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLDocumentWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLDocumentWidthPropertyInfo = DOMHTMLDocumentK - type AttrGetType DOMHTMLDocumentWidthPropertyInfo = CLong - type AttrLabel DOMHTMLDocumentWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLDocumentWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLDocument = DOMHTMLDocumentAttributeList -type DOMHTMLDocumentAttributeList = ('[ '("activeElement", DOMDocumentActiveElementPropertyInfo), '("alinkColor", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childElementCount", DOMDocumentChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compatMode", DOMHTMLDocumentCompatModePropertyInfo), '("contentType", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentScript", DOMDocumentCurrentScriptPropertyInfo), '("defaultCharset", DOMDocumentDefaultCharsetPropertyInfo), '("defaultView", DOMDocumentDefaultViewPropertyInfo), '("designMode", DOMHTMLDocumentDesignModePropertyInfo), '("dir", DOMHTMLDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("documentElement", DOMDocumentDocumentElementPropertyInfo), '("documentUri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMHTMLDocumentEmbedsPropertyInfo), '("fgColor", DOMHTMLDocumentFgColorPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentLastElementChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("linkColor", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("pointerLockElement", DOMDocumentPointerLockElementPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("scrollingElement", DOMDocumentScrollingElementPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("vlinkColor", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLDocumentAlinkColor :: AttrLabelProxy "alinkColor" -dOMHTMLDocumentAlinkColor = AttrLabelProxy - -dOMHTMLDocumentBgColor :: AttrLabelProxy "bgColor" -dOMHTMLDocumentBgColor = AttrLabelProxy - -dOMHTMLDocumentCompatMode :: AttrLabelProxy "compatMode" -dOMHTMLDocumentCompatMode = AttrLabelProxy - -dOMHTMLDocumentDesignMode :: AttrLabelProxy "designMode" -dOMHTMLDocumentDesignMode = AttrLabelProxy - -dOMHTMLDocumentDir :: AttrLabelProxy "dir" -dOMHTMLDocumentDir = AttrLabelProxy - -dOMHTMLDocumentEmbeds :: AttrLabelProxy "embeds" -dOMHTMLDocumentEmbeds = AttrLabelProxy - -dOMHTMLDocumentFgColor :: AttrLabelProxy "fgColor" -dOMHTMLDocumentFgColor = AttrLabelProxy - -dOMHTMLDocumentHeight :: AttrLabelProxy "height" -dOMHTMLDocumentHeight = AttrLabelProxy - -dOMHTMLDocumentLinkColor :: AttrLabelProxy "linkColor" -dOMHTMLDocumentLinkColor = AttrLabelProxy - -dOMHTMLDocumentPlugins :: AttrLabelProxy "plugins" -dOMHTMLDocumentPlugins = AttrLabelProxy - -dOMHTMLDocumentScripts :: AttrLabelProxy "scripts" -dOMHTMLDocumentScripts = AttrLabelProxy - -dOMHTMLDocumentVlinkColor :: AttrLabelProxy "vlinkColor" -dOMHTMLDocumentVlinkColor = AttrLabelProxy - -dOMHTMLDocumentWidth :: AttrLabelProxy "width" -dOMHTMLDocumentWidth = AttrLabelProxy - -type instance SignalList DOMHTMLDocument = DOMHTMLDocumentSignalList -type DOMHTMLDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLDocument::capture_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLDocumentCaptureEvents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_document_capture_events _obj' - touchManagedPtr _obj - return () - -data DOMHTMLDocumentCaptureEventsMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentCaptureEventsMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentCaptureEvents - --- method DOMHTMLDocument::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLDocumentClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_document_clear _obj' - touchManagedPtr _obj - return () - -data DOMHTMLDocumentClearMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentClearMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentClear - --- method DOMHTMLDocument::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLDocumentClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_document_close _obj' - touchManagedPtr _obj - return () - -data DOMHTMLDocumentCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentCloseMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentClose - --- method DOMHTMLDocument::get_alink_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetAlinkColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetAlinkColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetAlinkColor - --- method DOMHTMLDocument::get_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetBgColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetBgColor - --- method DOMHTMLDocument::get_compat_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetCompatModeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetCompatModeMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetCompatMode - --- method DOMHTMLDocument::get_design_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetDesignModeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetDesignModeMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetDesignMode - --- method DOMHTMLDocument::get_dir --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetDirMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetDirMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetDir - --- method DOMHTMLDocument::get_embeds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetEmbedsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetEmbedsMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetEmbeds - --- method DOMHTMLDocument::get_fg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetFgColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetFgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetFgColor - --- method DOMHTMLDocument::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLDocumentGetHeight :: - (MonadIO m, DOMHTMLDocumentK a) => - a -- _obj - -> m CLong -- result -dOMHTMLDocumentGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_document_get_height _obj' - touchManagedPtr _obj - return result - -data DOMHTMLDocumentGetHeightMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetHeight - --- method DOMHTMLDocument::get_link_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetLinkColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetLinkColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetLinkColor - --- method DOMHTMLDocument::get_plugins --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetPluginsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetPluginsMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetPlugins - --- method DOMHTMLDocument::get_scripts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetScriptsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetScriptsMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetScripts - --- method DOMHTMLDocument::get_vlink_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLDocumentGetVlinkColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetVlinkColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetVlinkColor - --- method DOMHTMLDocument::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLDocumentGetWidth :: - (MonadIO m, DOMHTMLDocumentK a) => - a -- _obj - -> m CLong -- result -dOMHTMLDocumentGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_document_get_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLDocumentGetWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentGetWidth - --- method DOMHTMLDocument::release_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLDocumentReleaseEvents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_document_release_events _obj' - touchManagedPtr _obj - return () - -data DOMHTMLDocumentReleaseEventsMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentReleaseEventsMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentReleaseEvents - --- method DOMHTMLDocument::set_alink_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDocumentSetAlinkColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentSetAlinkColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentSetAlinkColor - --- method DOMHTMLDocument::set_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDocumentSetBgColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentSetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentSetBgColor - --- method DOMHTMLDocument::set_design_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDocumentSetDesignModeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentSetDesignModeMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentSetDesignMode - --- method DOMHTMLDocument::set_dir --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDocumentSetDirMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentSetDirMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentSetDir - --- method DOMHTMLDocument::set_fg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDocumentSetFgColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentSetFgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentSetFgColor - --- method DOMHTMLDocument::set_link_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDocumentSetLinkColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentSetLinkColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentSetLinkColor - --- method DOMHTMLDocument::set_vlink_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLDocumentSetVlinkColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLDocumentK a) => MethodInfo DOMHTMLDocumentSetVlinkColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLDocumentSetVlinkColor - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot +++ /dev/null @@ -1,50 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLDocument where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLDocumentCaptureEventsMethodInfo -data DOMHTMLDocumentClearMethodInfo -data DOMHTMLDocumentCloseMethodInfo -data DOMHTMLDocumentGetAlinkColorMethodInfo -data DOMHTMLDocumentGetBgColorMethodInfo -data DOMHTMLDocumentGetCompatModeMethodInfo -data DOMHTMLDocumentGetDesignModeMethodInfo -data DOMHTMLDocumentGetDirMethodInfo -data DOMHTMLDocumentGetEmbedsMethodInfo -data DOMHTMLDocumentGetFgColorMethodInfo -data DOMHTMLDocumentGetHeightMethodInfo -data DOMHTMLDocumentGetLinkColorMethodInfo -data DOMHTMLDocumentGetPluginsMethodInfo -data DOMHTMLDocumentGetScriptsMethodInfo -data DOMHTMLDocumentGetVlinkColorMethodInfo -data DOMHTMLDocumentGetWidthMethodInfo -data DOMHTMLDocumentReleaseEventsMethodInfo -data DOMHTMLDocumentSetAlinkColorMethodInfo -data DOMHTMLDocumentSetBgColorMethodInfo -data DOMHTMLDocumentSetDesignModeMethodInfo -data DOMHTMLDocumentSetDirMethodInfo -data DOMHTMLDocumentSetFgColorMethodInfo -data DOMHTMLDocumentSetLinkColorMethodInfo -data DOMHTMLDocumentSetVlinkColorMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs +++ /dev/null @@ -1,1563 +0,0 @@ - - -{- | -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 - DOMHTMLElementClickMethodInfo , - dOMHTMLElementClick , - - --- ** dOMHTMLElementGetAccessKey - DOMHTMLElementGetAccessKeyMethodInfo , - dOMHTMLElementGetAccessKey , - - --- ** dOMHTMLElementGetChildren - DOMHTMLElementGetChildrenMethodInfo , - dOMHTMLElementGetChildren , - - --- ** dOMHTMLElementGetContentEditable - DOMHTMLElementGetContentEditableMethodInfo, - dOMHTMLElementGetContentEditable , - - --- ** dOMHTMLElementGetDir - DOMHTMLElementGetDirMethodInfo , - dOMHTMLElementGetDir , - - --- ** dOMHTMLElementGetInnerHtml - DOMHTMLElementGetInnerHtmlMethodInfo , - dOMHTMLElementGetInnerHtml , - - --- ** dOMHTMLElementGetInnerText - DOMHTMLElementGetInnerTextMethodInfo , - dOMHTMLElementGetInnerText , - - --- ** dOMHTMLElementGetIsContentEditable - DOMHTMLElementGetIsContentEditableMethodInfo, - dOMHTMLElementGetIsContentEditable , - - --- ** dOMHTMLElementGetLang - DOMHTMLElementGetLangMethodInfo , - dOMHTMLElementGetLang , - - --- ** dOMHTMLElementGetOuterHtml - DOMHTMLElementGetOuterHtmlMethodInfo , - dOMHTMLElementGetOuterHtml , - - --- ** dOMHTMLElementGetOuterText - DOMHTMLElementGetOuterTextMethodInfo , - dOMHTMLElementGetOuterText , - - --- ** dOMHTMLElementGetTabIndex - DOMHTMLElementGetTabIndexMethodInfo , - dOMHTMLElementGetTabIndex , - - --- ** dOMHTMLElementGetTitle - DOMHTMLElementGetTitleMethodInfo , - dOMHTMLElementGetTitle , - - --- ** dOMHTMLElementSetAccessKey - DOMHTMLElementSetAccessKeyMethodInfo , - dOMHTMLElementSetAccessKey , - - --- ** dOMHTMLElementSetContentEditable - DOMHTMLElementSetContentEditableMethodInfo, - dOMHTMLElementSetContentEditable , - - --- ** dOMHTMLElementSetDir - DOMHTMLElementSetDirMethodInfo , - dOMHTMLElementSetDir , - - --- ** dOMHTMLElementSetInnerHtml - DOMHTMLElementSetInnerHtmlMethodInfo , - dOMHTMLElementSetInnerHtml , - - --- ** dOMHTMLElementSetInnerText - DOMHTMLElementSetInnerTextMethodInfo , - dOMHTMLElementSetInnerText , - - --- ** dOMHTMLElementSetLang - DOMHTMLElementSetLangMethodInfo , - dOMHTMLElementSetLang , - - --- ** dOMHTMLElementSetOuterHtml - DOMHTMLElementSetOuterHtmlMethodInfo , - dOMHTMLElementSetOuterHtml , - - --- ** dOMHTMLElementSetOuterText - DOMHTMLElementSetOuterTextMethodInfo , - dOMHTMLElementSetOuterText , - - --- ** dOMHTMLElementSetTabIndex - DOMHTMLElementSetTabIndexMethodInfo , - dOMHTMLElementSetTabIndex , - - --- ** dOMHTMLElementSetTitle - DOMHTMLElementSetTitleMethodInfo , - dOMHTMLElementSetTitle , - - - - - -- * Properties --- ** AccessKey - DOMHTMLElementAccessKeyPropertyInfo , - constructDOMHTMLElementAccessKey , - dOMHTMLElementAccessKey , - getDOMHTMLElementAccessKey , - setDOMHTMLElementAccessKey , - - --- ** ContentEditable - DOMHTMLElementContentEditablePropertyInfo, - clearDOMHTMLElementContentEditable , - constructDOMHTMLElementContentEditable , - dOMHTMLElementContentEditable , - getDOMHTMLElementContentEditable , - setDOMHTMLElementContentEditable , - - --- ** Dir - DOMHTMLElementDirPropertyInfo , - constructDOMHTMLElementDir , - dOMHTMLElementDir , - getDOMHTMLElementDir , - setDOMHTMLElementDir , - - --- ** Draggable - DOMHTMLElementDraggablePropertyInfo , - constructDOMHTMLElementDraggable , - dOMHTMLElementDraggable , - getDOMHTMLElementDraggable , - setDOMHTMLElementDraggable , - - --- ** Hidden - DOMHTMLElementHiddenPropertyInfo , - constructDOMHTMLElementHidden , - dOMHTMLElementHidden , - getDOMHTMLElementHidden , - setDOMHTMLElementHidden , - - --- ** InnerText - DOMHTMLElementInnerTextPropertyInfo , - clearDOMHTMLElementInnerText , - constructDOMHTMLElementInnerText , - dOMHTMLElementInnerText , - getDOMHTMLElementInnerText , - setDOMHTMLElementInnerText , - - --- ** IsContentEditable - DOMHTMLElementIsContentEditablePropertyInfo, - dOMHTMLElementIsContentEditable , - getDOMHTMLElementIsContentEditable , - - --- ** Lang - DOMHTMLElementLangPropertyInfo , - constructDOMHTMLElementLang , - dOMHTMLElementLang , - getDOMHTMLElementLang , - setDOMHTMLElementLang , - - --- ** OuterText - DOMHTMLElementOuterTextPropertyInfo , - clearDOMHTMLElementOuterText , - constructDOMHTMLElementOuterText , - dOMHTMLElementOuterText , - getDOMHTMLElementOuterText , - setDOMHTMLElementOuterText , - - --- ** Spellcheck - DOMHTMLElementSpellcheckPropertyInfo , - constructDOMHTMLElementSpellcheck , - dOMHTMLElementSpellcheck , - getDOMHTMLElementSpellcheck , - setDOMHTMLElementSpellcheck , - - --- ** TabIndex - DOMHTMLElementTabIndexPropertyInfo , - constructDOMHTMLElementTabIndex , - dOMHTMLElementTabIndex , - getDOMHTMLElementTabIndex , - setDOMHTMLElementTabIndex , - - --- ** Title - DOMHTMLElementTitlePropertyInfo , - constructDOMHTMLElementTitle , - dOMHTMLElementTitle , - getDOMHTMLElementTitle , - setDOMHTMLElementTitle , - - --- ** Translate - DOMHTMLElementTranslatePropertyInfo , - constructDOMHTMLElementTranslate , - dOMHTMLElementTranslate , - getDOMHTMLElementTranslate , - setDOMHTMLElementTranslate , - - --- ** Webkitdropzone - DOMHTMLElementWebkitdropzonePropertyInfo, - clearDOMHTMLElementWebkitdropzone , - constructDOMHTMLElementWebkitdropzone , - dOMHTMLElementWebkitdropzone , - getDOMHTMLElementWebkitdropzone , - setDOMHTMLElementWebkitdropzone , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLElementMethod t DOMHTMLElement, MethodInfo info DOMHTMLElement p) => IsLabelProxy t (DOMHTMLElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLElementMethod t DOMHTMLElement, MethodInfo info DOMHTMLElement p) => IsLabel t (DOMHTMLElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "access-key" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLElementAccessKey :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "access-key" - attrGet _ = getDOMHTMLElementAccessKey - attrSet _ = setDOMHTMLElementAccessKey - attrConstruct _ = constructDOMHTMLElementAccessKey - attrClear _ = undefined - --- VVV Prop "content-editable" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLElementContentEditable :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" (Just val) - -clearDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m () -clearDOMHTMLElementContentEditable obj = liftIO $ setObjectPropertyString obj "content-editable" (Nothing :: Maybe T.Text) - -data DOMHTMLElementContentEditablePropertyInfo -instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where - type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementContentEditablePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "content-editable" - attrGet _ = getDOMHTMLElementContentEditable - attrSet _ = setDOMHTMLElementContentEditable - attrConstruct _ = constructDOMHTMLElementContentEditable - attrClear _ = clearDOMHTMLElementContentEditable - --- VVV Prop "dir" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) -getDOMHTMLElementDir obj = liftIO $ getObjectPropertyString obj "dir" - -setDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" (Just val) - -constructDOMHTMLElementDir :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementDir val = constructObjectPropertyString "dir" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLElementDirPropertyInfo = "dir" - attrGet _ = getDOMHTMLElementDir - attrSet _ = setDOMHTMLElementDir - attrConstruct _ = constructDOMHTMLElementDir - attrClear _ = undefined - --- VVV Prop "draggable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "draggable" - attrGet _ = getDOMHTMLElementDraggable - attrSet _ = setDOMHTMLElementDraggable - attrConstruct _ = constructDOMHTMLElementDraggable - attrClear _ = undefined - --- VVV Prop "hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "hidden" - attrGet _ = getDOMHTMLElementHidden - attrSet _ = setDOMHTMLElementHidden - attrConstruct _ = constructDOMHTMLElementHidden - attrClear _ = undefined - --- VVV Prop "inner-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLElementInnerText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" (Just val) - -clearDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m () -clearDOMHTMLElementInnerText obj = liftIO $ setObjectPropertyString obj "inner-text" (Nothing :: Maybe T.Text) - -data DOMHTMLElementInnerTextPropertyInfo -instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where - type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementInnerTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "inner-text" - attrGet _ = getDOMHTMLElementInnerText - attrSet _ = setDOMHTMLElementInnerText - attrConstruct _ = constructDOMHTMLElementInnerText - attrClear _ = clearDOMHTMLElementInnerText - --- VVV Prop "is-content-editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "is-content-editable" - attrGet _ = getDOMHTMLElementIsContentEditable - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "lang" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) -getDOMHTMLElementLang obj = liftIO $ getObjectPropertyString obj "lang" - -setDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" (Just val) - -constructDOMHTMLElementLang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementLang val = constructObjectPropertyString "lang" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLElementLangPropertyInfo = "lang" - attrGet _ = getDOMHTMLElementLang - attrSet _ = setDOMHTMLElementLang - attrConstruct _ = constructDOMHTMLElementLang - attrClear _ = undefined - --- VVV Prop "outer-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLElementOuterText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" (Just val) - -clearDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m () -clearDOMHTMLElementOuterText obj = liftIO $ setObjectPropertyString obj "outer-text" (Nothing :: Maybe T.Text) - -data DOMHTMLElementOuterTextPropertyInfo -instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where - type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementOuterTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "outer-text" - attrGet _ = getDOMHTMLElementOuterText - attrSet _ = setDOMHTMLElementOuterText - attrConstruct _ = constructDOMHTMLElementOuterText - attrClear _ = clearDOMHTMLElementOuterText - --- VVV Prop "spellcheck" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "spellcheck" - attrGet _ = getDOMHTMLElementSpellcheck - attrSet _ = setDOMHTMLElementSpellcheck - attrConstruct _ = constructDOMHTMLElementSpellcheck - attrClear _ = undefined - --- VVV Prop "tab-index" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m CLong -getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyLong obj "tab-index" - -setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> CLong -> m () -setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyLong obj "tab-index" val - -constructDOMHTMLElementTabIndex :: CLong -> IO ([Char], GValue) -constructDOMHTMLElementTabIndex val = constructObjectPropertyLong "tab-index" val - -data DOMHTMLElementTabIndexPropertyInfo -instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where - type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementTabIndexPropertyInfo = CLong - type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "tab-index" - attrGet _ = getDOMHTMLElementTabIndex - attrSet _ = setDOMHTMLElementTabIndex - attrConstruct _ = constructDOMHTMLElementTabIndex - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) -getDOMHTMLElementTitle obj = liftIO $ getObjectPropertyString obj "title" - -setDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) - -constructDOMHTMLElementTitle :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementTitle val = constructObjectPropertyString "title" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLElementTitlePropertyInfo = "title" - attrGet _ = getDOMHTMLElementTitle - attrSet _ = setDOMHTMLElementTitle - attrConstruct _ = constructDOMHTMLElementTitle - attrClear _ = undefined - --- VVV Prop "translate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "translate" - attrGet _ = getDOMHTMLElementTranslate - attrSet _ = setDOMHTMLElementTranslate - attrConstruct _ = constructDOMHTMLElementTranslate - attrClear _ = undefined - --- VVV Prop "webkitdropzone" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m (Maybe T.Text) -getDOMHTMLElementWebkitdropzone obj = liftIO $ getObjectPropertyString obj "webkitdropzone" - -setDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () -setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" (Just val) - -constructDOMHTMLElementWebkitdropzone :: T.Text -> IO ([Char], GValue) -constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" (Just val) - -clearDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m () -clearDOMHTMLElementWebkitdropzone obj = liftIO $ setObjectPropertyString obj "webkitdropzone" (Nothing :: Maybe T.Text) - -data DOMHTMLElementWebkitdropzonePropertyInfo -instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where - type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElementK - type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "webkitdropzone" - attrGet _ = getDOMHTMLElementWebkitdropzone - attrSet _ = setDOMHTMLElementWebkitdropzone - attrConstruct _ = constructDOMHTMLElementWebkitdropzone - attrClear _ = clearDOMHTMLElementWebkitdropzone - -type instance AttributeList DOMHTMLElement = DOMHTMLElementAttributeList -type DOMHTMLElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLElementAccessKey :: AttrLabelProxy "accessKey" -dOMHTMLElementAccessKey = AttrLabelProxy - -dOMHTMLElementContentEditable :: AttrLabelProxy "contentEditable" -dOMHTMLElementContentEditable = AttrLabelProxy - -dOMHTMLElementDir :: AttrLabelProxy "dir" -dOMHTMLElementDir = AttrLabelProxy - -dOMHTMLElementDraggable :: AttrLabelProxy "draggable" -dOMHTMLElementDraggable = AttrLabelProxy - -dOMHTMLElementHidden :: AttrLabelProxy "hidden" -dOMHTMLElementHidden = AttrLabelProxy - -dOMHTMLElementInnerText :: AttrLabelProxy "innerText" -dOMHTMLElementInnerText = AttrLabelProxy - -dOMHTMLElementIsContentEditable :: AttrLabelProxy "isContentEditable" -dOMHTMLElementIsContentEditable = AttrLabelProxy - -dOMHTMLElementLang :: AttrLabelProxy "lang" -dOMHTMLElementLang = AttrLabelProxy - -dOMHTMLElementOuterText :: AttrLabelProxy "outerText" -dOMHTMLElementOuterText = AttrLabelProxy - -dOMHTMLElementSpellcheck :: AttrLabelProxy "spellcheck" -dOMHTMLElementSpellcheck = AttrLabelProxy - -dOMHTMLElementTabIndex :: AttrLabelProxy "tabIndex" -dOMHTMLElementTabIndex = AttrLabelProxy - -dOMHTMLElementTitle :: AttrLabelProxy "title" -dOMHTMLElementTitle = AttrLabelProxy - -dOMHTMLElementTranslate :: AttrLabelProxy "translate" -dOMHTMLElementTranslate = AttrLabelProxy - -dOMHTMLElementWebkitdropzone :: AttrLabelProxy "webkitdropzone" -dOMHTMLElementWebkitdropzone = AttrLabelProxy - -type instance SignalList DOMHTMLElement = DOMHTMLElementSignalList -type DOMHTMLElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLElement::click --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLElementClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_element_click _obj' - touchManagedPtr _obj - return () - -data DOMHTMLElementClickMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementClickMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementClick - --- method DOMHTMLElement::get_access_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetAccessKeyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetAccessKeyMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetAccessKey - --- method DOMHTMLElement::get_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) - -{-# DEPRECATED dOMHTMLElementGetChildren ["(Since version 2.10)","Use webkit_dom_element_get_children() instead."]#-} -dOMHTMLElementGetChildren :: - (MonadIO m, DOMHTMLElementK a) => - a -- _obj - -> m DOMHTMLCollection -- result -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' - -data DOMHTMLElementGetChildrenMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetChildrenMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetChildren - --- method DOMHTMLElement::get_content_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetContentEditableMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetContentEditableMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetContentEditable - --- method DOMHTMLElement::get_dir --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetDirMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetDirMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetDir - --- method DOMHTMLElement::get_inner_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetInnerHtmlMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetInnerHtmlMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetInnerHtml - --- method DOMHTMLElement::get_inner_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetInnerTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetInnerTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetInnerText - --- method DOMHTMLElement::get_is_content_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetIsContentEditableMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetIsContentEditableMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetIsContentEditable - --- method DOMHTMLElement::get_lang --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetLangMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetLangMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetLang - --- method DOMHTMLElement::get_outer_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetOuterHtmlMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetOuterHtmlMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetOuterHtml - --- method DOMHTMLElement::get_outer_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetOuterTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetOuterTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetOuterText - --- method DOMHTMLElement::get_tab_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLElementGetTabIndex :: - (MonadIO m, DOMHTMLElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLElementGetTabIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_element_get_tab_index _obj' - touchManagedPtr _obj - return result - -data DOMHTMLElementGetTabIndexMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetTabIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetTabIndex - --- method DOMHTMLElement::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLElementGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementGetTitleMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementGetTitle - --- method DOMHTMLElement::set_access_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLElementSetAccessKeyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetAccessKeyMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetAccessKey - --- method DOMHTMLElement::set_content_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMHTMLElementSetContentEditableMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetContentEditableMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetContentEditable - --- method DOMHTMLElement::set_dir --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLElementSetDirMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetDirMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetDir - --- method DOMHTMLElement::set_inner_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMHTMLElementSetInnerHtmlMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetInnerHtmlMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetInnerHtml - --- method DOMHTMLElement::set_inner_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMHTMLElementSetInnerTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetInnerTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetInnerText - --- method DOMHTMLElement::set_lang --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLElementSetLangMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetLangMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetLang - --- method DOMHTMLElement::set_outer_html --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMHTMLElementSetOuterHtmlMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetOuterHtmlMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetOuterHtml - --- method DOMHTMLElement::set_outer_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMHTMLElementSetOuterTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetOuterTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetOuterText - --- method DOMHTMLElement::set_tab_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLElementSetTabIndex :: - (MonadIO m, DOMHTMLElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLElementSetTabIndex _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_element_set_tab_index _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLElementSetTabIndexMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetTabIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetTabIndex - --- method DOMHTMLElement::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLElementSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLElementK a) => MethodInfo DOMHTMLElementSetTitleMethodInfo a signature where - overloadedMethod _ = dOMHTMLElementSetTitle - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot +++ /dev/null @@ -1,50 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 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 -data DOMHTMLElementClickMethodInfo -data DOMHTMLElementGetAccessKeyMethodInfo -data DOMHTMLElementGetChildrenMethodInfo -data DOMHTMLElementGetContentEditableMethodInfo -data DOMHTMLElementGetDirMethodInfo -data DOMHTMLElementGetInnerHtmlMethodInfo -data DOMHTMLElementGetInnerTextMethodInfo -data DOMHTMLElementGetIsContentEditableMethodInfo -data DOMHTMLElementGetLangMethodInfo -data DOMHTMLElementGetOuterHtmlMethodInfo -data DOMHTMLElementGetOuterTextMethodInfo -data DOMHTMLElementGetTabIndexMethodInfo -data DOMHTMLElementGetTitleMethodInfo -data DOMHTMLElementSetAccessKeyMethodInfo -data DOMHTMLElementSetContentEditableMethodInfo -data DOMHTMLElementSetDirMethodInfo -data DOMHTMLElementSetInnerHtmlMethodInfo -data DOMHTMLElementSetInnerTextMethodInfo -data DOMHTMLElementSetLangMethodInfo -data DOMHTMLElementSetOuterHtmlMethodInfo -data DOMHTMLElementSetOuterTextMethodInfo -data DOMHTMLElementSetTabIndexMethodInfo -data DOMHTMLElementSetTitleMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs +++ /dev/null @@ -1,862 +0,0 @@ - - -{- | -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 - DOMHTMLEmbedElementGetAlignMethodInfo , - dOMHTMLEmbedElementGetAlign , - - --- ** dOMHTMLEmbedElementGetHeight - DOMHTMLEmbedElementGetHeightMethodInfo , - dOMHTMLEmbedElementGetHeight , - - --- ** dOMHTMLEmbedElementGetName - DOMHTMLEmbedElementGetNameMethodInfo , - dOMHTMLEmbedElementGetName , - - --- ** dOMHTMLEmbedElementGetSrc - DOMHTMLEmbedElementGetSrcMethodInfo , - dOMHTMLEmbedElementGetSrc , - - --- ** dOMHTMLEmbedElementGetTypeAttr - DOMHTMLEmbedElementGetTypeAttrMethodInfo, - dOMHTMLEmbedElementGetTypeAttr , - - --- ** dOMHTMLEmbedElementGetWidth - DOMHTMLEmbedElementGetWidthMethodInfo , - dOMHTMLEmbedElementGetWidth , - - --- ** dOMHTMLEmbedElementSetAlign - DOMHTMLEmbedElementSetAlignMethodInfo , - dOMHTMLEmbedElementSetAlign , - - --- ** dOMHTMLEmbedElementSetHeight - DOMHTMLEmbedElementSetHeightMethodInfo , - dOMHTMLEmbedElementSetHeight , - - --- ** dOMHTMLEmbedElementSetName - DOMHTMLEmbedElementSetNameMethodInfo , - dOMHTMLEmbedElementSetName , - - --- ** dOMHTMLEmbedElementSetSrc - DOMHTMLEmbedElementSetSrcMethodInfo , - dOMHTMLEmbedElementSetSrc , - - --- ** dOMHTMLEmbedElementSetTypeAttr - DOMHTMLEmbedElementSetTypeAttrMethodInfo, - dOMHTMLEmbedElementSetTypeAttr , - - --- ** dOMHTMLEmbedElementSetWidth - DOMHTMLEmbedElementSetWidthMethodInfo , - dOMHTMLEmbedElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLEmbedElementAlignPropertyInfo , - constructDOMHTMLEmbedElementAlign , - dOMHTMLEmbedElementAlign , - getDOMHTMLEmbedElementAlign , - setDOMHTMLEmbedElementAlign , - - --- ** Height - DOMHTMLEmbedElementHeightPropertyInfo , - constructDOMHTMLEmbedElementHeight , - dOMHTMLEmbedElementHeight , - getDOMHTMLEmbedElementHeight , - setDOMHTMLEmbedElementHeight , - - --- ** Name - DOMHTMLEmbedElementNamePropertyInfo , - constructDOMHTMLEmbedElementName , - dOMHTMLEmbedElementName , - getDOMHTMLEmbedElementName , - setDOMHTMLEmbedElementName , - - --- ** Src - DOMHTMLEmbedElementSrcPropertyInfo , - constructDOMHTMLEmbedElementSrc , - dOMHTMLEmbedElementSrc , - getDOMHTMLEmbedElementSrc , - setDOMHTMLEmbedElementSrc , - - --- ** Type - DOMHTMLEmbedElementTypePropertyInfo , - clearDOMHTMLEmbedElementType , - constructDOMHTMLEmbedElementType , - dOMHTMLEmbedElementType , - getDOMHTMLEmbedElementType , - setDOMHTMLEmbedElementType , - - --- ** Width - DOMHTMLEmbedElementWidthPropertyInfo , - constructDOMHTMLEmbedElementWidth , - dOMHTMLEmbedElementWidth , - getDOMHTMLEmbedElementWidth , - setDOMHTMLEmbedElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLEmbedElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLEmbedElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLEmbedElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLEmbedElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLEmbedElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLEmbedElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLEmbedElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLEmbedElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLEmbedElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLEmbedElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLEmbedElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLEmbedElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLEmbedElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLEmbedElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLEmbedElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLEmbedElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLEmbedElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLEmbedElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLEmbedElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLEmbedElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLEmbedElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLEmbedElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLEmbedElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLEmbedElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLEmbedElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLEmbedElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLEmbedElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLEmbedElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLEmbedElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLEmbedElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLEmbedElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLEmbedElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLEmbedElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLEmbedElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLEmbedElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLEmbedElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLEmbedElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLEmbedElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLEmbedElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLEmbedElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLEmbedElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLEmbedElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLEmbedElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLEmbedElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLEmbedElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLEmbedElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLEmbedElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLEmbedElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLEmbedElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLEmbedElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLEmbedElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLEmbedElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLEmbedElementMethod "getAlign" o = DOMHTMLEmbedElementGetAlignMethodInfo - ResolveDOMHTMLEmbedElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLEmbedElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLEmbedElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLEmbedElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLEmbedElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLEmbedElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLEmbedElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLEmbedElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLEmbedElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLEmbedElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLEmbedElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLEmbedElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLEmbedElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLEmbedElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLEmbedElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLEmbedElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLEmbedElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLEmbedElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLEmbedElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLEmbedElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLEmbedElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLEmbedElementMethod "getHeight" o = DOMHTMLEmbedElementGetHeightMethodInfo - ResolveDOMHTMLEmbedElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLEmbedElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLEmbedElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLEmbedElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLEmbedElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLEmbedElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLEmbedElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "getName" o = DOMHTMLEmbedElementGetNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLEmbedElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLEmbedElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLEmbedElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLEmbedElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLEmbedElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLEmbedElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLEmbedElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLEmbedElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLEmbedElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLEmbedElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLEmbedElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLEmbedElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLEmbedElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLEmbedElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLEmbedElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLEmbedElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLEmbedElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLEmbedElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLEmbedElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLEmbedElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLEmbedElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLEmbedElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLEmbedElementMethod "getSrc" o = DOMHTMLEmbedElementGetSrcMethodInfo - ResolveDOMHTMLEmbedElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLEmbedElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLEmbedElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLEmbedElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLEmbedElementMethod "getTypeAttr" o = DOMHTMLEmbedElementGetTypeAttrMethodInfo - ResolveDOMHTMLEmbedElementMethod "getWidth" o = DOMHTMLEmbedElementGetWidthMethodInfo - ResolveDOMHTMLEmbedElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLEmbedElementMethod "setAlign" o = DOMHTMLEmbedElementSetAlignMethodInfo - ResolveDOMHTMLEmbedElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLEmbedElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLEmbedElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLEmbedElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLEmbedElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLEmbedElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLEmbedElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLEmbedElementMethod "setHeight" o = DOMHTMLEmbedElementSetHeightMethodInfo - ResolveDOMHTMLEmbedElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLEmbedElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLEmbedElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLEmbedElementMethod "setName" o = DOMHTMLEmbedElementSetNameMethodInfo - ResolveDOMHTMLEmbedElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLEmbedElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLEmbedElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLEmbedElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLEmbedElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLEmbedElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLEmbedElementMethod "setSrc" o = DOMHTMLEmbedElementSetSrcMethodInfo - ResolveDOMHTMLEmbedElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLEmbedElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLEmbedElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLEmbedElementMethod "setTypeAttr" o = DOMHTMLEmbedElementSetTypeAttrMethodInfo - ResolveDOMHTMLEmbedElementMethod "setWidth" o = DOMHTMLEmbedElementSetWidthMethodInfo - ResolveDOMHTMLEmbedElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLEmbedElementMethod t DOMHTMLEmbedElement, MethodInfo info DOMHTMLEmbedElement p) => IsLabelProxy t (DOMHTMLEmbedElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLEmbedElementMethod t DOMHTMLEmbedElement, MethodInfo info DOMHTMLEmbedElement p) => IsLabel t (DOMHTMLEmbedElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) -getDOMHTMLEmbedElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLEmbedElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLEmbedElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLEmbedElementAlign - attrSet _ = setDOMHTMLEmbedElementAlign - attrConstruct _ = constructDOMHTMLEmbedElementAlign - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m CLong -getDOMHTMLEmbedElementHeight obj = liftIO $ getObjectPropertyLong obj "height" - -setDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> CLong -> m () -setDOMHTMLEmbedElementHeight obj val = liftIO $ setObjectPropertyLong obj "height" val - -constructDOMHTMLEmbedElementHeight :: CLong -> IO ([Char], GValue) -constructDOMHTMLEmbedElementHeight val = constructObjectPropertyLong "height" val - -data DOMHTMLEmbedElementHeightPropertyInfo -instance AttrInfo DOMHTMLEmbedElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementHeightPropertyInfo = CLong - type AttrLabel DOMHTMLEmbedElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLEmbedElementHeight - attrSet _ = setDOMHTMLEmbedElementHeight - attrConstruct _ = constructDOMHTMLEmbedElementHeight - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) -getDOMHTMLEmbedElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLEmbedElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLEmbedElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLEmbedElementName - attrSet _ = setDOMHTMLEmbedElementName - attrConstruct _ = constructDOMHTMLEmbedElementName - attrClear _ = undefined - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) -getDOMHTMLEmbedElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) - -constructDOMHTMLEmbedElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementSrc val = constructObjectPropertyString "src" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLEmbedElementSrcPropertyInfo = "src" - attrGet _ = getDOMHTMLEmbedElementSrc - attrSet _ = setDOMHTMLEmbedElementSrc - attrConstruct _ = constructDOMHTMLEmbedElementSrc - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m (Maybe T.Text) -getDOMHTMLEmbedElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () -setDOMHTMLEmbedElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLEmbedElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLEmbedElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m () -clearDOMHTMLEmbedElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLEmbedElementTypePropertyInfo -instance AttrInfo DOMHTMLEmbedElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLEmbedElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLEmbedElementType - attrSet _ = setDOMHTMLEmbedElementType - attrConstruct _ = constructDOMHTMLEmbedElementType - attrClear _ = clearDOMHTMLEmbedElementType - --- VVV Prop "width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m CLong -getDOMHTMLEmbedElementWidth obj = liftIO $ getObjectPropertyLong obj "width" - -setDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> CLong -> m () -setDOMHTMLEmbedElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val - -constructDOMHTMLEmbedElementWidth :: CLong -> IO ([Char], GValue) -constructDOMHTMLEmbedElementWidth val = constructObjectPropertyLong "width" val - -data DOMHTMLEmbedElementWidthPropertyInfo -instance AttrInfo DOMHTMLEmbedElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLEmbedElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = DOMHTMLEmbedElementK - type AttrGetType DOMHTMLEmbedElementWidthPropertyInfo = CLong - type AttrLabel DOMHTMLEmbedElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLEmbedElementWidth - attrSet _ = setDOMHTMLEmbedElementWidth - attrConstruct _ = constructDOMHTMLEmbedElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLEmbedElement = DOMHTMLEmbedElementAttributeList -type DOMHTMLEmbedElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLEmbedElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLEmbedElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLEmbedElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLEmbedElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLEmbedElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLEmbedElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLEmbedElementAlign :: AttrLabelProxy "align" -dOMHTMLEmbedElementAlign = AttrLabelProxy - -dOMHTMLEmbedElementHeight :: AttrLabelProxy "height" -dOMHTMLEmbedElementHeight = AttrLabelProxy - -dOMHTMLEmbedElementName :: AttrLabelProxy "name" -dOMHTMLEmbedElementName = AttrLabelProxy - -dOMHTMLEmbedElementSrc :: AttrLabelProxy "src" -dOMHTMLEmbedElementSrc = AttrLabelProxy - -dOMHTMLEmbedElementType :: AttrLabelProxy "type" -dOMHTMLEmbedElementType = AttrLabelProxy - -dOMHTMLEmbedElementWidth :: AttrLabelProxy "width" -dOMHTMLEmbedElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLEmbedElement = DOMHTMLEmbedElementSignalList -type DOMHTMLEmbedElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLEmbedElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLEmbedElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementGetAlign - --- method DOMHTMLEmbedElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLEmbedElementGetHeight :: - (MonadIO m, DOMHTMLEmbedElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLEmbedElementGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_embed_element_get_height _obj' - touchManagedPtr _obj - return result - -data DOMHTMLEmbedElementGetHeightMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementGetHeight - --- method DOMHTMLEmbedElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLEmbedElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementGetName - --- method DOMHTMLEmbedElement::get_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLEmbedElementGetSrcMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementGetSrc - --- method DOMHTMLEmbedElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLEmbedElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementGetTypeAttr - --- method DOMHTMLEmbedElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLEmbedElementGetWidth :: - (MonadIO m, DOMHTMLEmbedElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLEmbedElementGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_embed_element_get_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLEmbedElementGetWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementGetWidth - --- method DOMHTMLEmbedElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLEmbedElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementSetAlign - --- method DOMHTMLEmbedElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLEmbedElementSetHeight :: - (MonadIO m, DOMHTMLEmbedElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLEmbedElementSetHeight _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_embed_element_set_height _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLEmbedElementSetHeightMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementSetHeight - --- method DOMHTMLEmbedElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLEmbedElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementSetName - --- method DOMHTMLEmbedElement::set_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLEmbedElementSetSrcMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementSetSrc - --- method DOMHTMLEmbedElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLEmbedElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementSetTypeAttr - --- method DOMHTMLEmbedElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLEmbedElementSetWidth :: - (MonadIO m, DOMHTMLEmbedElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLEmbedElementSetWidth _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_embed_element_set_width _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLEmbedElementSetWidthMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLEmbedElementK a) => MethodInfo DOMHTMLEmbedElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLEmbedElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLEmbedElementGetAlignMethodInfo -data DOMHTMLEmbedElementGetHeightMethodInfo -data DOMHTMLEmbedElementGetNameMethodInfo -data DOMHTMLEmbedElementGetSrcMethodInfo -data DOMHTMLEmbedElementGetTypeAttrMethodInfo -data DOMHTMLEmbedElementGetWidthMethodInfo -data DOMHTMLEmbedElementSetAlignMethodInfo -data DOMHTMLEmbedElementSetHeightMethodInfo -data DOMHTMLEmbedElementSetNameMethodInfo -data DOMHTMLEmbedElementSetSrcMethodInfo -data DOMHTMLEmbedElementSetTypeAttrMethodInfo -data DOMHTMLEmbedElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs +++ /dev/null @@ -1,466 +0,0 @@ - - -{- | -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 - DOMHTMLFieldSetElementGetFormMethodInfo , - dOMHTMLFieldSetElementGetForm , - - - - - -- * Properties --- ** Disabled - DOMHTMLFieldSetElementDisabledPropertyInfo, - constructDOMHTMLFieldSetElementDisabled , - dOMHTMLFieldSetElementDisabled , - getDOMHTMLFieldSetElementDisabled , - setDOMHTMLFieldSetElementDisabled , - - --- ** Elements - DOMHTMLFieldSetElementElementsPropertyInfo, - dOMHTMLFieldSetElementElements , - getDOMHTMLFieldSetElementElements , - - --- ** Form - DOMHTMLFieldSetElementFormPropertyInfo , - dOMHTMLFieldSetElementForm , - getDOMHTMLFieldSetElementForm , - - --- ** Name - DOMHTMLFieldSetElementNamePropertyInfo , - clearDOMHTMLFieldSetElementName , - constructDOMHTMLFieldSetElementName , - dOMHTMLFieldSetElementName , - getDOMHTMLFieldSetElementName , - setDOMHTMLFieldSetElementName , - - --- ** Type - DOMHTMLFieldSetElementTypePropertyInfo , - dOMHTMLFieldSetElementType , - getDOMHTMLFieldSetElementType , - - --- ** ValidationMessage - DOMHTMLFieldSetElementValidationMessagePropertyInfo, - dOMHTMLFieldSetElementValidationMessage , - getDOMHTMLFieldSetElementValidationMessage, - - --- ** WillValidate - DOMHTMLFieldSetElementWillValidatePropertyInfo, - dOMHTMLFieldSetElementWillValidate , - getDOMHTMLFieldSetElementWillValidate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLFieldSetElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLFieldSetElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLFieldSetElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLFieldSetElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLFieldSetElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLFieldSetElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLFieldSetElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLFieldSetElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLFieldSetElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLFieldSetElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLFieldSetElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLFieldSetElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLFieldSetElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLFieldSetElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLFieldSetElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLFieldSetElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLFieldSetElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLFieldSetElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLFieldSetElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLFieldSetElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLFieldSetElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLFieldSetElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLFieldSetElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLFieldSetElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLFieldSetElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLFieldSetElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLFieldSetElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLFieldSetElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLFieldSetElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLFieldSetElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLFieldSetElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLFieldSetElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLFieldSetElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLFieldSetElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLFieldSetElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getForm" o = DOMHTMLFieldSetElementGetFormMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLFieldSetElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLFieldSetElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLFieldSetElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLFieldSetElementMethod t DOMHTMLFieldSetElement, MethodInfo info DOMHTMLFieldSetElement p) => IsLabelProxy t (DOMHTMLFieldSetElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLFieldSetElementMethod t DOMHTMLFieldSetElement, MethodInfo info DOMHTMLFieldSetElement p) => IsLabel t (DOMHTMLFieldSetElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "disabled" - attrGet _ = getDOMHTMLFieldSetElementDisabled - attrSet _ = setDOMHTMLFieldSetElementDisabled - attrConstruct _ = constructDOMHTMLFieldSetElementDisabled - attrClear _ = undefined - --- VVV Prop "elements" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFieldSetElementElements :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLFieldSetElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection - -data DOMHTMLFieldSetElementElementsPropertyInfo -instance AttrInfo DOMHTMLFieldSetElementElementsPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementElementsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementElementsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLFieldSetElementElementsPropertyInfo = "elements" - attrGet _ = getDOMHTMLFieldSetElementElements - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLFieldSetElementForm :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLFieldSetElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLFieldSetElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLFieldSetElementFormPropertyInfo -instance AttrInfo DOMHTMLFieldSetElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLFieldSetElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLFieldSetElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFieldSetElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> T.Text -> m () -setDOMHTMLFieldSetElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLFieldSetElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFieldSetElementName val = constructObjectPropertyString "name" (Just val) - -clearDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m () -clearDOMHTMLFieldSetElementName obj = liftIO $ setObjectPropertyString obj "name" (Nothing :: Maybe T.Text) - -data DOMHTMLFieldSetElementNamePropertyInfo -instance AttrInfo DOMHTMLFieldSetElementNamePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLFieldSetElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLFieldSetElementName - attrSet _ = setDOMHTMLFieldSetElementName - attrConstruct _ = constructDOMHTMLFieldSetElementName - attrClear _ = clearDOMHTMLFieldSetElementName - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFieldSetElementType :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFieldSetElementType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMHTMLFieldSetElementTypePropertyInfo -instance AttrInfo DOMHTMLFieldSetElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLFieldSetElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLFieldSetElementType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFieldSetElementValidationMessage :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFieldSetElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLFieldSetElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLFieldSetElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLFieldSetElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = DOMHTMLFieldSetElementK - type AttrGetType DOMHTMLFieldSetElementValidationMessagePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLFieldSetElementValidationMessagePropertyInfo = "validation-message" - attrGet _ = getDOMHTMLFieldSetElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "will-validate" - attrGet _ = getDOMHTMLFieldSetElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementAttributeList -type DOMHTMLFieldSetElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLFieldSetElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFieldSetElementElementsPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLFieldSetElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLFieldSetElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLFieldSetElementTypePropertyInfo), '("validationMessage", DOMHTMLFieldSetElementValidationMessagePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLFieldSetElementWillValidatePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLFieldSetElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLFieldSetElementDisabled = AttrLabelProxy - -dOMHTMLFieldSetElementElements :: AttrLabelProxy "elements" -dOMHTMLFieldSetElementElements = AttrLabelProxy - -dOMHTMLFieldSetElementForm :: AttrLabelProxy "form" -dOMHTMLFieldSetElementForm = AttrLabelProxy - -dOMHTMLFieldSetElementName :: AttrLabelProxy "name" -dOMHTMLFieldSetElementName = AttrLabelProxy - -dOMHTMLFieldSetElementType :: AttrLabelProxy "type" -dOMHTMLFieldSetElementType = AttrLabelProxy - -dOMHTMLFieldSetElementValidationMessage :: AttrLabelProxy "validationMessage" -dOMHTMLFieldSetElementValidationMessage = AttrLabelProxy - -dOMHTMLFieldSetElementWillValidate :: AttrLabelProxy "willValidate" -dOMHTMLFieldSetElementWillValidate = AttrLabelProxy - -type instance SignalList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementSignalList -type DOMHTMLFieldSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLFieldSetElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFieldSetElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLFieldSetElementK a) => MethodInfo DOMHTMLFieldSetElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLFieldSetElementGetForm - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLFieldSetElementGetFormMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs +++ /dev/null @@ -1,538 +0,0 @@ - - -{- | -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 - DOMHTMLFontElementGetColorMethodInfo , - dOMHTMLFontElementGetColor , - - --- ** dOMHTMLFontElementGetFace - DOMHTMLFontElementGetFaceMethodInfo , - dOMHTMLFontElementGetFace , - - --- ** dOMHTMLFontElementGetSize - DOMHTMLFontElementGetSizeMethodInfo , - dOMHTMLFontElementGetSize , - - --- ** dOMHTMLFontElementSetColor - DOMHTMLFontElementSetColorMethodInfo , - dOMHTMLFontElementSetColor , - - --- ** dOMHTMLFontElementSetFace - DOMHTMLFontElementSetFaceMethodInfo , - dOMHTMLFontElementSetFace , - - --- ** dOMHTMLFontElementSetSize - DOMHTMLFontElementSetSizeMethodInfo , - dOMHTMLFontElementSetSize , - - - - - -- * Properties --- ** Color - DOMHTMLFontElementColorPropertyInfo , - constructDOMHTMLFontElementColor , - dOMHTMLFontElementColor , - getDOMHTMLFontElementColor , - setDOMHTMLFontElementColor , - - --- ** Face - DOMHTMLFontElementFacePropertyInfo , - constructDOMHTMLFontElementFace , - dOMHTMLFontElementFace , - getDOMHTMLFontElementFace , - setDOMHTMLFontElementFace , - - --- ** Size - DOMHTMLFontElementSizePropertyInfo , - constructDOMHTMLFontElementSize , - dOMHTMLFontElementSize , - getDOMHTMLFontElementSize , - setDOMHTMLFontElementSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLFontElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLFontElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLFontElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLFontElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLFontElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLFontElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLFontElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLFontElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLFontElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLFontElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLFontElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLFontElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLFontElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLFontElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLFontElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLFontElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLFontElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLFontElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLFontElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLFontElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLFontElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLFontElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLFontElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLFontElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLFontElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLFontElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLFontElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLFontElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLFontElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLFontElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLFontElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLFontElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLFontElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLFontElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLFontElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLFontElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLFontElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLFontElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLFontElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLFontElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLFontElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLFontElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLFontElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLFontElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLFontElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLFontElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLFontElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLFontElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLFontElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLFontElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLFontElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLFontElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLFontElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLFontElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLFontElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLFontElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLFontElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLFontElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLFontElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLFontElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLFontElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLFontElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLFontElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLFontElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLFontElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLFontElementMethod "getColor" o = DOMHTMLFontElementGetColorMethodInfo - ResolveDOMHTMLFontElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLFontElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLFontElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLFontElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLFontElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFontElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLFontElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFontElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLFontElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLFontElementMethod "getFace" o = DOMHTMLFontElementGetFaceMethodInfo - ResolveDOMHTMLFontElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLFontElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLFontElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLFontElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLFontElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLFontElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLFontElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLFontElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLFontElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLFontElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLFontElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLFontElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLFontElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLFontElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLFontElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLFontElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLFontElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLFontElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLFontElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLFontElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLFontElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLFontElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLFontElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLFontElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLFontElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLFontElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLFontElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLFontElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLFontElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLFontElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLFontElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLFontElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLFontElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLFontElementMethod "getSize" o = DOMHTMLFontElementGetSizeMethodInfo - ResolveDOMHTMLFontElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLFontElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLFontElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLFontElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLFontElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLFontElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLFontElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLFontElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLFontElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLFontElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLFontElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLFontElementMethod "setColor" o = DOMHTMLFontElementSetColorMethodInfo - ResolveDOMHTMLFontElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLFontElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLFontElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLFontElementMethod "setFace" o = DOMHTMLFontElementSetFaceMethodInfo - ResolveDOMHTMLFontElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLFontElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLFontElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLFontElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLFontElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLFontElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLFontElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLFontElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLFontElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLFontElementMethod "setSize" o = DOMHTMLFontElementSetSizeMethodInfo - ResolveDOMHTMLFontElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLFontElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLFontElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLFontElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLFontElementMethod t DOMHTMLFontElement, MethodInfo info DOMHTMLFontElement p) => IsLabelProxy t (DOMHTMLFontElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLFontElementMethod t DOMHTMLFontElement, MethodInfo info DOMHTMLFontElement p) => IsLabel t (DOMHTMLFontElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFontElementColor obj = liftIO $ getObjectPropertyString obj "color" - -setDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" (Just val) - -constructDOMHTMLFontElementColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementColor val = constructObjectPropertyString "color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFontElementColorPropertyInfo = "color" - attrGet _ = getDOMHTMLFontElementColor - attrSet _ = setDOMHTMLFontElementColor - attrConstruct _ = constructDOMHTMLFontElementColor - attrClear _ = undefined - --- VVV Prop "face" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFontElementFace obj = liftIO $ getObjectPropertyString obj "face" - -setDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" (Just val) - -constructDOMHTMLFontElementFace :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementFace val = constructObjectPropertyString "face" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFontElementFacePropertyInfo = "face" - attrGet _ = getDOMHTMLFontElementFace - attrSet _ = setDOMHTMLFontElementFace - attrConstruct _ = constructDOMHTMLFontElementFace - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFontElementSize obj = liftIO $ getObjectPropertyString obj "size" - -setDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () -setDOMHTMLFontElementSize obj val = liftIO $ setObjectPropertyString obj "size" (Just val) - -constructDOMHTMLFontElementSize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFontElementSize val = constructObjectPropertyString "size" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFontElementSizePropertyInfo = "size" - attrGet _ = getDOMHTMLFontElementSize - attrSet _ = setDOMHTMLFontElementSize - attrConstruct _ = constructDOMHTMLFontElementSize - attrClear _ = undefined - -type instance AttributeList DOMHTMLFontElement = DOMHTMLFontElementAttributeList -type DOMHTMLFontElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLFontElementColorPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLFontElementFacePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLFontElementColor :: AttrLabelProxy "color" -dOMHTMLFontElementColor = AttrLabelProxy - -dOMHTMLFontElementFace :: AttrLabelProxy "face" -dOMHTMLFontElementFace = AttrLabelProxy - -dOMHTMLFontElementSize :: AttrLabelProxy "size" -dOMHTMLFontElementSize = AttrLabelProxy - -type instance SignalList DOMHTMLFontElement = DOMHTMLFontElementSignalList -type DOMHTMLFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLFontElement::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFontElementGetColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFontElementK a) => MethodInfo DOMHTMLFontElementGetColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLFontElementGetColor - --- method DOMHTMLFontElement::get_face --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFontElementGetFaceMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFontElementK a) => MethodInfo DOMHTMLFontElementGetFaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLFontElementGetFace - --- method DOMHTMLFontElement::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFontElementGetSizeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFontElementK a) => MethodInfo DOMHTMLFontElementGetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLFontElementGetSize - --- method DOMHTMLFontElement::set_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFontElementSetColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFontElementK a) => MethodInfo DOMHTMLFontElementSetColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLFontElementSetColor - --- method DOMHTMLFontElement::set_face --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFontElementSetFaceMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFontElementK a) => MethodInfo DOMHTMLFontElementSetFaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLFontElementSetFace - --- method DOMHTMLFontElement::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFontElementSetSizeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFontElementK a) => MethodInfo DOMHTMLFontElementSetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLFontElementSetSize - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLFontElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLFontElementGetColorMethodInfo -data DOMHTMLFontElementGetFaceMethodInfo -data DOMHTMLFontElementGetSizeMethodInfo -data DOMHTMLFontElementSetColorMethodInfo -data DOMHTMLFontElementSetFaceMethodInfo -data DOMHTMLFontElementSetSizeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs +++ /dev/null @@ -1,1326 +0,0 @@ - - -{- | -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 - DOMHTMLFormElementGetAcceptCharsetMethodInfo, - dOMHTMLFormElementGetAcceptCharset , - - --- ** dOMHTMLFormElementGetAction - DOMHTMLFormElementGetActionMethodInfo , - dOMHTMLFormElementGetAction , - - --- ** dOMHTMLFormElementGetElements - DOMHTMLFormElementGetElementsMethodInfo , - dOMHTMLFormElementGetElements , - - --- ** dOMHTMLFormElementGetEncoding - DOMHTMLFormElementGetEncodingMethodInfo , - dOMHTMLFormElementGetEncoding , - - --- ** dOMHTMLFormElementGetEnctype - DOMHTMLFormElementGetEnctypeMethodInfo , - dOMHTMLFormElementGetEnctype , - - --- ** dOMHTMLFormElementGetLength - DOMHTMLFormElementGetLengthMethodInfo , - dOMHTMLFormElementGetLength , - - --- ** dOMHTMLFormElementGetMethod - DOMHTMLFormElementGetMethodMethodInfo , - dOMHTMLFormElementGetMethod , - - --- ** dOMHTMLFormElementGetName - DOMHTMLFormElementGetNameMethodInfo , - dOMHTMLFormElementGetName , - - --- ** dOMHTMLFormElementGetTarget - DOMHTMLFormElementGetTargetMethodInfo , - dOMHTMLFormElementGetTarget , - - --- ** dOMHTMLFormElementReset - DOMHTMLFormElementResetMethodInfo , - dOMHTMLFormElementReset , - - --- ** dOMHTMLFormElementSetAcceptCharset - DOMHTMLFormElementSetAcceptCharsetMethodInfo, - dOMHTMLFormElementSetAcceptCharset , - - --- ** dOMHTMLFormElementSetAction - DOMHTMLFormElementSetActionMethodInfo , - dOMHTMLFormElementSetAction , - - --- ** dOMHTMLFormElementSetEncoding - DOMHTMLFormElementSetEncodingMethodInfo , - dOMHTMLFormElementSetEncoding , - - --- ** dOMHTMLFormElementSetEnctype - DOMHTMLFormElementSetEnctypeMethodInfo , - dOMHTMLFormElementSetEnctype , - - --- ** dOMHTMLFormElementSetMethod - DOMHTMLFormElementSetMethodMethodInfo , - dOMHTMLFormElementSetMethod , - - --- ** dOMHTMLFormElementSetName - DOMHTMLFormElementSetNameMethodInfo , - dOMHTMLFormElementSetName , - - --- ** dOMHTMLFormElementSetTarget - DOMHTMLFormElementSetTargetMethodInfo , - dOMHTMLFormElementSetTarget , - - --- ** dOMHTMLFormElementSubmit - DOMHTMLFormElementSubmitMethodInfo , - dOMHTMLFormElementSubmit , - - - - - -- * Properties --- ** AcceptCharset - DOMHTMLFormElementAcceptCharsetPropertyInfo, - constructDOMHTMLFormElementAcceptCharset, - dOMHTMLFormElementAcceptCharset , - getDOMHTMLFormElementAcceptCharset , - setDOMHTMLFormElementAcceptCharset , - - --- ** Action - DOMHTMLFormElementActionPropertyInfo , - constructDOMHTMLFormElementAction , - dOMHTMLFormElementAction , - getDOMHTMLFormElementAction , - setDOMHTMLFormElementAction , - - --- ** Autocapitalize - DOMHTMLFormElementAutocapitalizePropertyInfo, - clearDOMHTMLFormElementAutocapitalize , - constructDOMHTMLFormElementAutocapitalize, - dOMHTMLFormElementAutocapitalize , - getDOMHTMLFormElementAutocapitalize , - setDOMHTMLFormElementAutocapitalize , - - --- ** Autocomplete - DOMHTMLFormElementAutocompletePropertyInfo, - clearDOMHTMLFormElementAutocomplete , - constructDOMHTMLFormElementAutocomplete , - dOMHTMLFormElementAutocomplete , - getDOMHTMLFormElementAutocomplete , - setDOMHTMLFormElementAutocomplete , - - --- ** Autocorrect - DOMHTMLFormElementAutocorrectPropertyInfo, - constructDOMHTMLFormElementAutocorrect , - dOMHTMLFormElementAutocorrect , - getDOMHTMLFormElementAutocorrect , - setDOMHTMLFormElementAutocorrect , - - --- ** Elements - DOMHTMLFormElementElementsPropertyInfo , - dOMHTMLFormElementElements , - getDOMHTMLFormElementElements , - - --- ** Encoding - DOMHTMLFormElementEncodingPropertyInfo , - constructDOMHTMLFormElementEncoding , - dOMHTMLFormElementEncoding , - getDOMHTMLFormElementEncoding , - setDOMHTMLFormElementEncoding , - - --- ** Enctype - DOMHTMLFormElementEnctypePropertyInfo , - constructDOMHTMLFormElementEnctype , - dOMHTMLFormElementEnctype , - getDOMHTMLFormElementEnctype , - setDOMHTMLFormElementEnctype , - - --- ** Length - DOMHTMLFormElementLengthPropertyInfo , - dOMHTMLFormElementLength , - getDOMHTMLFormElementLength , - - --- ** Method - DOMHTMLFormElementMethodPropertyInfo , - constructDOMHTMLFormElementMethod , - dOMHTMLFormElementMethod , - getDOMHTMLFormElementMethod , - setDOMHTMLFormElementMethod , - - --- ** Name - DOMHTMLFormElementNamePropertyInfo , - constructDOMHTMLFormElementName , - dOMHTMLFormElementName , - getDOMHTMLFormElementName , - setDOMHTMLFormElementName , - - --- ** NoValidate - DOMHTMLFormElementNoValidatePropertyInfo, - constructDOMHTMLFormElementNoValidate , - dOMHTMLFormElementNoValidate , - getDOMHTMLFormElementNoValidate , - setDOMHTMLFormElementNoValidate , - - --- ** Target - DOMHTMLFormElementTargetPropertyInfo , - constructDOMHTMLFormElementTarget , - dOMHTMLFormElementTarget , - getDOMHTMLFormElementTarget , - setDOMHTMLFormElementTarget , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLFormElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLFormElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLFormElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLFormElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLFormElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLFormElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLFormElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLFormElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLFormElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLFormElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLFormElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLFormElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLFormElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLFormElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLFormElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLFormElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLFormElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLFormElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLFormElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLFormElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLFormElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLFormElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLFormElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLFormElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLFormElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLFormElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLFormElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLFormElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLFormElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLFormElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLFormElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLFormElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLFormElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLFormElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLFormElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLFormElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLFormElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLFormElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLFormElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLFormElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLFormElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLFormElementMethod "reset" o = DOMHTMLFormElementResetMethodInfo - ResolveDOMHTMLFormElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLFormElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLFormElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLFormElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLFormElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLFormElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLFormElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLFormElementMethod "submit" o = DOMHTMLFormElementSubmitMethodInfo - ResolveDOMHTMLFormElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLFormElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLFormElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLFormElementMethod "getAcceptCharset" o = DOMHTMLFormElementGetAcceptCharsetMethodInfo - ResolveDOMHTMLFormElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLFormElementMethod "getAction" o = DOMHTMLFormElementGetActionMethodInfo - ResolveDOMHTMLFormElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLFormElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLFormElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLFormElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLFormElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLFormElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLFormElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLFormElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLFormElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLFormElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLFormElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLFormElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLFormElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLFormElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLFormElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLFormElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLFormElementMethod "getElements" o = DOMHTMLFormElementGetElementsMethodInfo - ResolveDOMHTMLFormElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLFormElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFormElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLFormElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFormElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLFormElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLFormElementMethod "getEncoding" o = DOMHTMLFormElementGetEncodingMethodInfo - ResolveDOMHTMLFormElementMethod "getEnctype" o = DOMHTMLFormElementGetEnctypeMethodInfo - ResolveDOMHTMLFormElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLFormElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLFormElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLFormElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLFormElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLFormElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLFormElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLFormElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLFormElementMethod "getLength" o = DOMHTMLFormElementGetLengthMethodInfo - ResolveDOMHTMLFormElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLFormElementMethod "getMethod" o = DOMHTMLFormElementGetMethodMethodInfo - ResolveDOMHTMLFormElementMethod "getName" o = DOMHTMLFormElementGetNameMethodInfo - ResolveDOMHTMLFormElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLFormElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLFormElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLFormElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLFormElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLFormElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLFormElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLFormElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLFormElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLFormElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLFormElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLFormElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLFormElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLFormElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLFormElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLFormElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLFormElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLFormElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLFormElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLFormElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLFormElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLFormElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLFormElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLFormElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLFormElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLFormElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLFormElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLFormElementMethod "getTarget" o = DOMHTMLFormElementGetTargetMethodInfo - ResolveDOMHTMLFormElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLFormElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLFormElementMethod "setAcceptCharset" o = DOMHTMLFormElementSetAcceptCharsetMethodInfo - ResolveDOMHTMLFormElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLFormElementMethod "setAction" o = DOMHTMLFormElementSetActionMethodInfo - ResolveDOMHTMLFormElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLFormElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLFormElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLFormElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLFormElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLFormElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLFormElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLFormElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLFormElementMethod "setEncoding" o = DOMHTMLFormElementSetEncodingMethodInfo - ResolveDOMHTMLFormElementMethod "setEnctype" o = DOMHTMLFormElementSetEnctypeMethodInfo - ResolveDOMHTMLFormElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLFormElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLFormElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLFormElementMethod "setMethod" o = DOMHTMLFormElementSetMethodMethodInfo - ResolveDOMHTMLFormElementMethod "setName" o = DOMHTMLFormElementSetNameMethodInfo - ResolveDOMHTMLFormElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLFormElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLFormElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLFormElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLFormElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLFormElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLFormElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLFormElementMethod "setTarget" o = DOMHTMLFormElementSetTargetMethodInfo - ResolveDOMHTMLFormElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLFormElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLFormElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLFormElementMethod t DOMHTMLFormElement, MethodInfo info DOMHTMLFormElement p) => IsLabelProxy t (DOMHTMLFormElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLFormElementMethod t DOMHTMLFormElement, MethodInfo info DOMHTMLFormElement p) => IsLabel t (DOMHTMLFormElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "accept-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLFormElementAcceptCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAcceptCharset val = constructObjectPropertyString "accept-charset" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementAcceptCharsetPropertyInfo = "accept-charset" - attrGet _ = getDOMHTMLFormElementAcceptCharset - attrSet _ = setDOMHTMLFormElementAcceptCharset - attrConstruct _ = constructDOMHTMLFormElementAcceptCharset - attrClear _ = undefined - --- VVV Prop "action" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementAction obj = liftIO $ getObjectPropertyString obj "action" - -setDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAction obj val = liftIO $ setObjectPropertyString obj "action" (Just val) - -constructDOMHTMLFormElementAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAction val = constructObjectPropertyString "action" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementActionPropertyInfo = "action" - attrGet _ = getDOMHTMLFormElementAction - attrSet _ = setDOMHTMLFormElementAction - attrConstruct _ = constructDOMHTMLFormElementAction - attrClear _ = undefined - --- VVV Prop "autocapitalize" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" - -setDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" (Just val) - -constructDOMHTMLFormElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAutocapitalize val = constructObjectPropertyString "autocapitalize" (Just val) - -clearDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m () -clearDOMHTMLFormElementAutocapitalize obj = liftIO $ setObjectPropertyString obj "autocapitalize" (Nothing :: Maybe T.Text) - -data DOMHTMLFormElementAutocapitalizePropertyInfo -instance AttrInfo DOMHTMLFormElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAutocapitalizePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementAutocapitalizePropertyInfo = "autocapitalize" - attrGet _ = getDOMHTMLFormElementAutocapitalize - attrSet _ = setDOMHTMLFormElementAutocapitalize - attrConstruct _ = constructDOMHTMLFormElementAutocapitalize - attrClear _ = clearDOMHTMLFormElementAutocapitalize - --- VVV Prop "autocomplete" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" - -setDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) - -constructDOMHTMLFormElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) - -clearDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m () -clearDOMHTMLFormElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) - -data DOMHTMLFormElementAutocompletePropertyInfo -instance AttrInfo DOMHTMLFormElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementAutocompletePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementAutocompletePropertyInfo = "autocomplete" - attrGet _ = getDOMHTMLFormElementAutocomplete - attrSet _ = setDOMHTMLFormElementAutocomplete - attrConstruct _ = constructDOMHTMLFormElementAutocomplete - attrClear _ = clearDOMHTMLFormElementAutocomplete - --- VVV Prop "autocorrect" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "autocorrect" - attrGet _ = getDOMHTMLFormElementAutocorrect - attrSet _ = setDOMHTMLFormElementAutocorrect - attrConstruct _ = constructDOMHTMLFormElementAutocorrect - attrClear _ = undefined - --- VVV Prop "elements" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFormElementElements :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLFormElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection - -data DOMHTMLFormElementElementsPropertyInfo -instance AttrInfo DOMHTMLFormElementElementsPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementElementsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFormElementElementsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFormElementElementsPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementElementsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLFormElementElementsPropertyInfo = "elements" - attrGet _ = getDOMHTMLFormElementElements - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "encoding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementEncoding obj = liftIO $ getObjectPropertyString obj "encoding" - -setDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementEncoding obj val = liftIO $ setObjectPropertyString obj "encoding" (Just val) - -constructDOMHTMLFormElementEncoding :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementEncoding val = constructObjectPropertyString "encoding" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementEncodingPropertyInfo = "encoding" - attrGet _ = getDOMHTMLFormElementEncoding - attrSet _ = setDOMHTMLFormElementEncoding - attrConstruct _ = constructDOMHTMLFormElementEncoding - attrClear _ = undefined - --- VVV Prop "enctype" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementEnctype obj = liftIO $ getObjectPropertyString obj "enctype" - -setDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementEnctype obj val = liftIO $ setObjectPropertyString obj "enctype" (Just val) - -constructDOMHTMLFormElementEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementEnctype val = constructObjectPropertyString "enctype" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementEnctypePropertyInfo = "enctype" - attrGet _ = getDOMHTMLFormElementEnctype - attrSet _ = setDOMHTMLFormElementEnctype - attrConstruct _ = constructDOMHTMLFormElementEnctype - attrClear _ = undefined - --- VVV Prop "length" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLFormElementLength :: (MonadIO m, DOMHTMLFormElementK o) => o -> m CLong -getDOMHTMLFormElementLength obj = liftIO $ getObjectPropertyLong obj "length" - -data DOMHTMLFormElementLengthPropertyInfo -instance AttrInfo DOMHTMLFormElementLengthPropertyInfo where - type AttrAllowedOps DOMHTMLFormElementLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFormElementLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFormElementLengthPropertyInfo = DOMHTMLFormElementK - type AttrGetType DOMHTMLFormElementLengthPropertyInfo = CLong - type AttrLabel DOMHTMLFormElementLengthPropertyInfo = "length" - attrGet _ = getDOMHTMLFormElementLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementMethod obj = liftIO $ getObjectPropertyString obj "method" - -setDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementMethod obj val = liftIO $ setObjectPropertyString obj "method" (Just val) - -constructDOMHTMLFormElementMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementMethod val = constructObjectPropertyString "method" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementMethodPropertyInfo = "method" - attrGet _ = getDOMHTMLFormElementMethod - attrSet _ = setDOMHTMLFormElementMethod - attrConstruct _ = constructDOMHTMLFormElementMethod - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLFormElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLFormElementName - attrSet _ = setDOMHTMLFormElementName - attrConstruct _ = constructDOMHTMLFormElementName - attrClear _ = undefined - --- VVV Prop "no-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "no-validate" - attrGet _ = getDOMHTMLFormElementNoValidate - attrSet _ = setDOMHTMLFormElementNoValidate - attrConstruct _ = constructDOMHTMLFormElementNoValidate - attrClear _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFormElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () -setDOMHTMLFormElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) - -constructDOMHTMLFormElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFormElementTarget val = constructObjectPropertyString "target" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFormElementTargetPropertyInfo = "target" - attrGet _ = getDOMHTMLFormElementTarget - attrSet _ = setDOMHTMLFormElementTarget - attrConstruct _ = constructDOMHTMLFormElementTarget - attrClear _ = undefined - -type instance AttributeList DOMHTMLFormElement = DOMHTMLFormElementAttributeList -type DOMHTMLFormElementAttributeList = ('[ '("acceptCharset", DOMHTMLFormElementAcceptCharsetPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("action", DOMHTMLFormElementActionPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLFormElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLFormElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLFormElementAutocorrectPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFormElementElementsPropertyInfo), '("encoding", DOMHTMLFormElementEncodingPropertyInfo), '("enctype", DOMHTMLFormElementEnctypePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLFormElementLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("method", DOMHTMLFormElementMethodPropertyInfo), '("name", DOMHTMLFormElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noValidate", DOMHTMLFormElementNoValidatePropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLFormElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLFormElementAcceptCharset :: AttrLabelProxy "acceptCharset" -dOMHTMLFormElementAcceptCharset = AttrLabelProxy - -dOMHTMLFormElementAction :: AttrLabelProxy "action" -dOMHTMLFormElementAction = AttrLabelProxy - -dOMHTMLFormElementAutocapitalize :: AttrLabelProxy "autocapitalize" -dOMHTMLFormElementAutocapitalize = AttrLabelProxy - -dOMHTMLFormElementAutocomplete :: AttrLabelProxy "autocomplete" -dOMHTMLFormElementAutocomplete = AttrLabelProxy - -dOMHTMLFormElementAutocorrect :: AttrLabelProxy "autocorrect" -dOMHTMLFormElementAutocorrect = AttrLabelProxy - -dOMHTMLFormElementElements :: AttrLabelProxy "elements" -dOMHTMLFormElementElements = AttrLabelProxy - -dOMHTMLFormElementEncoding :: AttrLabelProxy "encoding" -dOMHTMLFormElementEncoding = AttrLabelProxy - -dOMHTMLFormElementEnctype :: AttrLabelProxy "enctype" -dOMHTMLFormElementEnctype = AttrLabelProxy - -dOMHTMLFormElementLength :: AttrLabelProxy "length" -dOMHTMLFormElementLength = AttrLabelProxy - -dOMHTMLFormElementMethod :: AttrLabelProxy "method" -dOMHTMLFormElementMethod = AttrLabelProxy - -dOMHTMLFormElementName :: AttrLabelProxy "name" -dOMHTMLFormElementName = AttrLabelProxy - -dOMHTMLFormElementNoValidate :: AttrLabelProxy "noValidate" -dOMHTMLFormElementNoValidate = AttrLabelProxy - -dOMHTMLFormElementTarget :: AttrLabelProxy "target" -dOMHTMLFormElementTarget = AttrLabelProxy - -type instance SignalList DOMHTMLFormElement = DOMHTMLFormElementSignalList -type DOMHTMLFormElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLFormElement::get_accept_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetAcceptCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetAcceptCharsetMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetAcceptCharset - --- method DOMHTMLFormElement::get_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetActionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetActionMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetAction - --- method DOMHTMLFormElement::get_elements --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetElementsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetElementsMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetElements - --- method DOMHTMLFormElement::get_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetEncodingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetEncodingMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetEncoding - --- method DOMHTMLFormElement::get_enctype --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetEnctypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetEnctypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetEnctype - --- method DOMHTMLFormElement::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLFormElementGetLength :: - (MonadIO m, DOMHTMLFormElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLFormElementGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_form_element_get_length _obj' - touchManagedPtr _obj - return result - -data DOMHTMLFormElementGetLengthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetLengthMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetLength - --- method DOMHTMLFormElement::get_method --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetMethodMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetMethodMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetMethod - --- method DOMHTMLFormElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetName - --- method DOMHTMLFormElement::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFormElementGetTargetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementGetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementGetTarget - --- method DOMHTMLFormElement::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLFormElementReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_form_element_reset _obj' - touchManagedPtr _obj - return () - -data DOMHTMLFormElementResetMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementResetMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementReset - --- method DOMHTMLFormElement::set_accept_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFormElementSetAcceptCharsetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSetAcceptCharsetMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSetAcceptCharset - --- method DOMHTMLFormElement::set_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFormElementSetActionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSetActionMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSetAction - --- method DOMHTMLFormElement::set_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFormElementSetEncodingMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSetEncodingMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSetEncoding - --- method DOMHTMLFormElement::set_enctype --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFormElementSetEnctypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSetEnctypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSetEnctype - --- method DOMHTMLFormElement::set_method --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFormElementSetMethodMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSetMethodMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSetMethod - --- method DOMHTMLFormElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFormElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSetName - --- method DOMHTMLFormElement::set_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFormElementSetTargetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSetTarget - --- method DOMHTMLFormElement::submit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLFormElementSubmit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_form_element_submit _obj' - touchManagedPtr _obj - return () - -data DOMHTMLFormElementSubmitMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLFormElementK a) => MethodInfo DOMHTMLFormElementSubmitMethodInfo a signature where - overloadedMethod _ = dOMHTMLFormElementSubmit - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot +++ /dev/null @@ -1,44 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLFormElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLFormElementGetAcceptCharsetMethodInfo -data DOMHTMLFormElementGetActionMethodInfo -data DOMHTMLFormElementGetElementsMethodInfo -data DOMHTMLFormElementGetEncodingMethodInfo -data DOMHTMLFormElementGetEnctypeMethodInfo -data DOMHTMLFormElementGetLengthMethodInfo -data DOMHTMLFormElementGetMethodMethodInfo -data DOMHTMLFormElementGetNameMethodInfo -data DOMHTMLFormElementGetTargetMethodInfo -data DOMHTMLFormElementResetMethodInfo -data DOMHTMLFormElementSetAcceptCharsetMethodInfo -data DOMHTMLFormElementSetActionMethodInfo -data DOMHTMLFormElementSetEncodingMethodInfo -data DOMHTMLFormElementSetEnctypeMethodInfo -data DOMHTMLFormElementSetMethodMethodInfo -data DOMHTMLFormElementSetNameMethodInfo -data DOMHTMLFormElementSetTargetMethodInfo -data DOMHTMLFormElementSubmitMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs +++ /dev/null @@ -1,1337 +0,0 @@ - - -{- | -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 - DOMHTMLFrameElementGetContentDocumentMethodInfo, - dOMHTMLFrameElementGetContentDocument , - - --- ** dOMHTMLFrameElementGetContentWindow - DOMHTMLFrameElementGetContentWindowMethodInfo, - dOMHTMLFrameElementGetContentWindow , - - --- ** dOMHTMLFrameElementGetFrameBorder - DOMHTMLFrameElementGetFrameBorderMethodInfo, - dOMHTMLFrameElementGetFrameBorder , - - --- ** dOMHTMLFrameElementGetHeight - DOMHTMLFrameElementGetHeightMethodInfo , - dOMHTMLFrameElementGetHeight , - - --- ** dOMHTMLFrameElementGetLongDesc - DOMHTMLFrameElementGetLongDescMethodInfo, - dOMHTMLFrameElementGetLongDesc , - - --- ** dOMHTMLFrameElementGetMarginHeight - DOMHTMLFrameElementGetMarginHeightMethodInfo, - dOMHTMLFrameElementGetMarginHeight , - - --- ** dOMHTMLFrameElementGetMarginWidth - DOMHTMLFrameElementGetMarginWidthMethodInfo, - dOMHTMLFrameElementGetMarginWidth , - - --- ** dOMHTMLFrameElementGetName - DOMHTMLFrameElementGetNameMethodInfo , - dOMHTMLFrameElementGetName , - - --- ** dOMHTMLFrameElementGetNoResize - DOMHTMLFrameElementGetNoResizeMethodInfo, - dOMHTMLFrameElementGetNoResize , - - --- ** dOMHTMLFrameElementGetScrolling - DOMHTMLFrameElementGetScrollingMethodInfo, - dOMHTMLFrameElementGetScrolling , - - --- ** dOMHTMLFrameElementGetSrc - DOMHTMLFrameElementGetSrcMethodInfo , - dOMHTMLFrameElementGetSrc , - - --- ** dOMHTMLFrameElementGetWidth - DOMHTMLFrameElementGetWidthMethodInfo , - dOMHTMLFrameElementGetWidth , - - --- ** dOMHTMLFrameElementSetFrameBorder - DOMHTMLFrameElementSetFrameBorderMethodInfo, - dOMHTMLFrameElementSetFrameBorder , - - --- ** dOMHTMLFrameElementSetLongDesc - DOMHTMLFrameElementSetLongDescMethodInfo, - dOMHTMLFrameElementSetLongDesc , - - --- ** dOMHTMLFrameElementSetMarginHeight - DOMHTMLFrameElementSetMarginHeightMethodInfo, - dOMHTMLFrameElementSetMarginHeight , - - --- ** dOMHTMLFrameElementSetMarginWidth - DOMHTMLFrameElementSetMarginWidthMethodInfo, - dOMHTMLFrameElementSetMarginWidth , - - --- ** dOMHTMLFrameElementSetName - DOMHTMLFrameElementSetNameMethodInfo , - dOMHTMLFrameElementSetName , - - --- ** dOMHTMLFrameElementSetNoResize - DOMHTMLFrameElementSetNoResizeMethodInfo, - dOMHTMLFrameElementSetNoResize , - - --- ** dOMHTMLFrameElementSetScrolling - DOMHTMLFrameElementSetScrollingMethodInfo, - dOMHTMLFrameElementSetScrolling , - - --- ** dOMHTMLFrameElementSetSrc - DOMHTMLFrameElementSetSrcMethodInfo , - dOMHTMLFrameElementSetSrc , - - - - - -- * Properties --- ** ContentDocument - DOMHTMLFrameElementContentDocumentPropertyInfo, - dOMHTMLFrameElementContentDocument , - getDOMHTMLFrameElementContentDocument , - - --- ** ContentWindow - DOMHTMLFrameElementContentWindowPropertyInfo, - dOMHTMLFrameElementContentWindow , - getDOMHTMLFrameElementContentWindow , - - --- ** FrameBorder - DOMHTMLFrameElementFrameBorderPropertyInfo, - constructDOMHTMLFrameElementFrameBorder , - dOMHTMLFrameElementFrameBorder , - getDOMHTMLFrameElementFrameBorder , - setDOMHTMLFrameElementFrameBorder , - - --- ** Height - DOMHTMLFrameElementHeightPropertyInfo , - dOMHTMLFrameElementHeight , - getDOMHTMLFrameElementHeight , - - --- ** LongDesc - DOMHTMLFrameElementLongDescPropertyInfo , - constructDOMHTMLFrameElementLongDesc , - dOMHTMLFrameElementLongDesc , - getDOMHTMLFrameElementLongDesc , - setDOMHTMLFrameElementLongDesc , - - --- ** MarginHeight - DOMHTMLFrameElementMarginHeightPropertyInfo, - constructDOMHTMLFrameElementMarginHeight, - dOMHTMLFrameElementMarginHeight , - getDOMHTMLFrameElementMarginHeight , - setDOMHTMLFrameElementMarginHeight , - - --- ** MarginWidth - DOMHTMLFrameElementMarginWidthPropertyInfo, - constructDOMHTMLFrameElementMarginWidth , - dOMHTMLFrameElementMarginWidth , - getDOMHTMLFrameElementMarginWidth , - setDOMHTMLFrameElementMarginWidth , - - --- ** Name - DOMHTMLFrameElementNamePropertyInfo , - constructDOMHTMLFrameElementName , - dOMHTMLFrameElementName , - getDOMHTMLFrameElementName , - setDOMHTMLFrameElementName , - - --- ** NoResize - DOMHTMLFrameElementNoResizePropertyInfo , - constructDOMHTMLFrameElementNoResize , - dOMHTMLFrameElementNoResize , - getDOMHTMLFrameElementNoResize , - setDOMHTMLFrameElementNoResize , - - --- ** Scrolling - DOMHTMLFrameElementScrollingPropertyInfo, - constructDOMHTMLFrameElementScrolling , - dOMHTMLFrameElementScrolling , - getDOMHTMLFrameElementScrolling , - setDOMHTMLFrameElementScrolling , - - --- ** Src - DOMHTMLFrameElementSrcPropertyInfo , - constructDOMHTMLFrameElementSrc , - dOMHTMLFrameElementSrc , - getDOMHTMLFrameElementSrc , - setDOMHTMLFrameElementSrc , - - --- ** Width - DOMHTMLFrameElementWidthPropertyInfo , - dOMHTMLFrameElementWidth , - getDOMHTMLFrameElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLFrameElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLFrameElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLFrameElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLFrameElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLFrameElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLFrameElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLFrameElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLFrameElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLFrameElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLFrameElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLFrameElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLFrameElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLFrameElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLFrameElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLFrameElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLFrameElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLFrameElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLFrameElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLFrameElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLFrameElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLFrameElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLFrameElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLFrameElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLFrameElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLFrameElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLFrameElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLFrameElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLFrameElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLFrameElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLFrameElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLFrameElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLFrameElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLFrameElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLFrameElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLFrameElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLFrameElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLFrameElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLFrameElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLFrameElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLFrameElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLFrameElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLFrameElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLFrameElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLFrameElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLFrameElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLFrameElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLFrameElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLFrameElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLFrameElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLFrameElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLFrameElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLFrameElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLFrameElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLFrameElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLFrameElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLFrameElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLFrameElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLFrameElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLFrameElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLFrameElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLFrameElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLFrameElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLFrameElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLFrameElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLFrameElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLFrameElementMethod "getContentDocument" o = DOMHTMLFrameElementGetContentDocumentMethodInfo - ResolveDOMHTMLFrameElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLFrameElementMethod "getContentWindow" o = DOMHTMLFrameElementGetContentWindowMethodInfo - ResolveDOMHTMLFrameElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLFrameElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLFrameElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLFrameElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFrameElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLFrameElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFrameElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLFrameElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLFrameElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLFrameElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLFrameElementMethod "getFrameBorder" o = DOMHTMLFrameElementGetFrameBorderMethodInfo - ResolveDOMHTMLFrameElementMethod "getHeight" o = DOMHTMLFrameElementGetHeightMethodInfo - ResolveDOMHTMLFrameElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLFrameElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLFrameElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLFrameElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLFrameElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLFrameElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLFrameElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLFrameElementMethod "getLongDesc" o = DOMHTMLFrameElementGetLongDescMethodInfo - ResolveDOMHTMLFrameElementMethod "getMarginHeight" o = DOMHTMLFrameElementGetMarginHeightMethodInfo - ResolveDOMHTMLFrameElementMethod "getMarginWidth" o = DOMHTMLFrameElementGetMarginWidthMethodInfo - ResolveDOMHTMLFrameElementMethod "getName" o = DOMHTMLFrameElementGetNameMethodInfo - ResolveDOMHTMLFrameElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLFrameElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLFrameElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLFrameElementMethod "getNoResize" o = DOMHTMLFrameElementGetNoResizeMethodInfo - ResolveDOMHTMLFrameElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLFrameElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLFrameElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLFrameElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLFrameElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLFrameElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLFrameElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLFrameElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLFrameElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLFrameElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLFrameElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLFrameElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLFrameElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLFrameElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLFrameElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLFrameElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLFrameElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLFrameElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLFrameElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLFrameElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLFrameElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLFrameElementMethod "getScrolling" o = DOMHTMLFrameElementGetScrollingMethodInfo - ResolveDOMHTMLFrameElementMethod "getSrc" o = DOMHTMLFrameElementGetSrcMethodInfo - ResolveDOMHTMLFrameElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLFrameElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLFrameElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLFrameElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLFrameElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLFrameElementMethod "getWidth" o = DOMHTMLFrameElementGetWidthMethodInfo - ResolveDOMHTMLFrameElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLFrameElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLFrameElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLFrameElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLFrameElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLFrameElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLFrameElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLFrameElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLFrameElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLFrameElementMethod "setFrameBorder" o = DOMHTMLFrameElementSetFrameBorderMethodInfo - ResolveDOMHTMLFrameElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLFrameElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLFrameElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLFrameElementMethod "setLongDesc" o = DOMHTMLFrameElementSetLongDescMethodInfo - ResolveDOMHTMLFrameElementMethod "setMarginHeight" o = DOMHTMLFrameElementSetMarginHeightMethodInfo - ResolveDOMHTMLFrameElementMethod "setMarginWidth" o = DOMHTMLFrameElementSetMarginWidthMethodInfo - ResolveDOMHTMLFrameElementMethod "setName" o = DOMHTMLFrameElementSetNameMethodInfo - ResolveDOMHTMLFrameElementMethod "setNoResize" o = DOMHTMLFrameElementSetNoResizeMethodInfo - ResolveDOMHTMLFrameElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLFrameElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLFrameElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLFrameElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLFrameElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLFrameElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLFrameElementMethod "setScrolling" o = DOMHTMLFrameElementSetScrollingMethodInfo - ResolveDOMHTMLFrameElementMethod "setSrc" o = DOMHTMLFrameElementSetSrcMethodInfo - ResolveDOMHTMLFrameElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLFrameElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLFrameElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLFrameElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLFrameElementMethod t DOMHTMLFrameElement, MethodInfo info DOMHTMLFrameElement p) => IsLabelProxy t (DOMHTMLFrameElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLFrameElementMethod t DOMHTMLFrameElement, MethodInfo info DOMHTMLFrameElement p) => IsLabel t (DOMHTMLFrameElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "content-document" - -- Type: TInterface "WebKit2WebExtension" "DOMDocument" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLFrameElementContentDocument :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDocument -getDOMHTMLFrameElementContentDocument obj = liftIO $ checkUnexpectedNothing "getDOMHTMLFrameElementContentDocument" $ getObjectPropertyObject obj "content-document" DOMDocument - -data DOMHTMLFrameElementContentDocumentPropertyInfo -instance AttrInfo DOMHTMLFrameElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementContentDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementContentDocumentPropertyInfo = DOMDocument - type AttrLabel DOMHTMLFrameElementContentDocumentPropertyInfo = "content-document" - attrGet _ = getDOMHTMLFrameElementContentDocument - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "content-window" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLFrameElementContentWindow :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe DOMDOMWindow) -getDOMHTMLFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow - -data DOMHTMLFrameElementContentWindowPropertyInfo -instance AttrInfo DOMHTMLFrameElementContentWindowPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementContentWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementContentWindowPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMHTMLFrameElementContentWindowPropertyInfo = "content-window" - attrGet _ = getDOMHTMLFrameElementContentWindow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "frame-border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementFrameBorder val = constructObjectPropertyString "frame-border" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameElementFrameBorderPropertyInfo = "frame-border" - attrGet _ = getDOMHTMLFrameElementFrameBorder - attrSet _ = setDOMHTMLFrameElementFrameBorder - attrConstruct _ = constructDOMHTMLFrameElementFrameBorder - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLFrameElementHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m CLong -getDOMHTMLFrameElementHeight obj = liftIO $ getObjectPropertyLong obj "height" - -data DOMHTMLFrameElementHeightPropertyInfo -instance AttrInfo DOMHTMLFrameElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementHeightPropertyInfo = CLong - type AttrLabel DOMHTMLFrameElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLFrameElementHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "long-desc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLFrameElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementLongDesc val = constructObjectPropertyString "long-desc" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameElementLongDescPropertyInfo = "long-desc" - attrGet _ = getDOMHTMLFrameElementLongDesc - attrSet _ = setDOMHTMLFrameElementLongDesc - attrConstruct _ = constructDOMHTMLFrameElementLongDesc - attrClear _ = undefined - --- VVV Prop "margin-height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementMarginHeight val = constructObjectPropertyString "margin-height" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameElementMarginHeightPropertyInfo = "margin-height" - attrGet _ = getDOMHTMLFrameElementMarginHeight - attrSet _ = setDOMHTMLFrameElementMarginHeight - attrConstruct _ = constructDOMHTMLFrameElementMarginHeight - attrClear _ = undefined - --- VVV Prop "margin-width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementMarginWidth val = constructObjectPropertyString "margin-width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameElementMarginWidthPropertyInfo = "margin-width" - attrGet _ = getDOMHTMLFrameElementMarginWidth - attrSet _ = setDOMHTMLFrameElementMarginWidth - attrConstruct _ = constructDOMHTMLFrameElementMarginWidth - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFrameElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLFrameElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLFrameElementName - attrSet _ = setDOMHTMLFrameElementName - attrConstruct _ = constructDOMHTMLFrameElementName - attrClear _ = undefined - --- VVV Prop "no-resize" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "no-resize" - attrGet _ = getDOMHTMLFrameElementNoResize - attrSet _ = setDOMHTMLFrameElementNoResize - attrConstruct _ = constructDOMHTMLFrameElementNoResize - attrClear _ = undefined - --- VVV Prop "scrolling" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" - -setDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" (Just val) - -constructDOMHTMLFrameElementScrolling :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementScrolling val = constructObjectPropertyString "scrolling" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameElementScrollingPropertyInfo = "scrolling" - attrGet _ = getDOMHTMLFrameElementScrolling - attrSet _ = setDOMHTMLFrameElementScrolling - attrConstruct _ = constructDOMHTMLFrameElementScrolling - attrClear _ = undefined - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () -setDOMHTMLFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) - -constructDOMHTMLFrameElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameElementSrc val = constructObjectPropertyString "src" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameElementSrcPropertyInfo = "src" - attrGet _ = getDOMHTMLFrameElementSrc - attrSet _ = setDOMHTMLFrameElementSrc - attrConstruct _ = constructDOMHTMLFrameElementSrc - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLFrameElementWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m CLong -getDOMHTMLFrameElementWidth obj = liftIO $ getObjectPropertyLong obj "width" - -data DOMHTMLFrameElementWidthPropertyInfo -instance AttrInfo DOMHTMLFrameElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLFrameElementWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = DOMHTMLFrameElementK - type AttrGetType DOMHTMLFrameElementWidthPropertyInfo = CLong - type AttrLabel DOMHTMLFrameElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLFrameElementWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLFrameElement = DOMHTMLFrameElementAttributeList -type DOMHTMLFrameElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentDocument", DOMHTMLFrameElementContentDocumentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("contentWindow", DOMHTMLFrameElementContentWindowPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("frameBorder", DOMHTMLFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("longDesc", DOMHTMLFrameElementLongDescPropertyInfo), '("marginHeight", DOMHTMLFrameElementMarginHeightPropertyInfo), '("marginWidth", DOMHTMLFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLFrameElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noResize", DOMHTMLFrameElementNoResizePropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLFrameElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLFrameElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLFrameElementContentDocument :: AttrLabelProxy "contentDocument" -dOMHTMLFrameElementContentDocument = AttrLabelProxy - -dOMHTMLFrameElementContentWindow :: AttrLabelProxy "contentWindow" -dOMHTMLFrameElementContentWindow = AttrLabelProxy - -dOMHTMLFrameElementFrameBorder :: AttrLabelProxy "frameBorder" -dOMHTMLFrameElementFrameBorder = AttrLabelProxy - -dOMHTMLFrameElementHeight :: AttrLabelProxy "height" -dOMHTMLFrameElementHeight = AttrLabelProxy - -dOMHTMLFrameElementLongDesc :: AttrLabelProxy "longDesc" -dOMHTMLFrameElementLongDesc = AttrLabelProxy - -dOMHTMLFrameElementMarginHeight :: AttrLabelProxy "marginHeight" -dOMHTMLFrameElementMarginHeight = AttrLabelProxy - -dOMHTMLFrameElementMarginWidth :: AttrLabelProxy "marginWidth" -dOMHTMLFrameElementMarginWidth = AttrLabelProxy - -dOMHTMLFrameElementName :: AttrLabelProxy "name" -dOMHTMLFrameElementName = AttrLabelProxy - -dOMHTMLFrameElementNoResize :: AttrLabelProxy "noResize" -dOMHTMLFrameElementNoResize = AttrLabelProxy - -dOMHTMLFrameElementScrolling :: AttrLabelProxy "scrolling" -dOMHTMLFrameElementScrolling = AttrLabelProxy - -dOMHTMLFrameElementSrc :: AttrLabelProxy "src" -dOMHTMLFrameElementSrc = AttrLabelProxy - -dOMHTMLFrameElementWidth :: AttrLabelProxy "width" -dOMHTMLFrameElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLFrameElement = DOMHTMLFrameElementSignalList -type DOMHTMLFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLFrameElement::get_content_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetContentDocumentMethodInfo -instance (signature ~ (m DOMDocument), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetContentDocumentMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetContentDocument - --- method DOMHTMLFrameElement::get_content_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetContentWindowMethodInfo -instance (signature ~ (m DOMDOMWindow), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetContentWindowMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetContentWindow - --- method DOMHTMLFrameElement::get_frame_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetFrameBorderMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetFrameBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetFrameBorder - --- method DOMHTMLFrameElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLFrameElementGetHeight :: - (MonadIO m, DOMHTMLFrameElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLFrameElementGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_frame_element_get_height _obj' - touchManagedPtr _obj - return result - -data DOMHTMLFrameElementGetHeightMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetHeight - --- method DOMHTMLFrameElement::get_long_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetLongDescMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetLongDescMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetLongDesc - --- method DOMHTMLFrameElement::get_margin_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetMarginHeightMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetMarginHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetMarginHeight - --- method DOMHTMLFrameElement::get_margin_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetMarginWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetMarginWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetMarginWidth - --- method DOMHTMLFrameElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetName - --- method DOMHTMLFrameElement::get_no_resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetNoResizeMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetNoResizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetNoResize - --- method DOMHTMLFrameElement::get_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetScrollingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetScrollingMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetScrolling - --- method DOMHTMLFrameElement::get_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameElementGetSrcMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetSrc - --- method DOMHTMLFrameElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLFrameElementGetWidth :: - (MonadIO m, DOMHTMLFrameElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLFrameElementGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_frame_element_get_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLFrameElementGetWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementGetWidth - --- method DOMHTMLFrameElement::set_frame_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetFrameBorderMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetFrameBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetFrameBorder - --- method DOMHTMLFrameElement::set_long_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetLongDescMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetLongDescMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetLongDesc - --- method DOMHTMLFrameElement::set_margin_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetMarginHeightMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetMarginHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetMarginHeight - --- method DOMHTMLFrameElement::set_margin_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetMarginWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetMarginWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetMarginWidth - --- method DOMHTMLFrameElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetName - --- method DOMHTMLFrameElement::set_no_resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetNoResizeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetNoResizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetNoResize - --- method DOMHTMLFrameElement::set_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetScrollingMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetScrollingMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetScrolling - --- method DOMHTMLFrameElement::set_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameElementSetSrcMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameElementK a) => MethodInfo DOMHTMLFrameElementSetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameElementSetSrc - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot +++ /dev/null @@ -1,45 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLFrameElementGetContentDocumentMethodInfo -data DOMHTMLFrameElementGetContentWindowMethodInfo -data DOMHTMLFrameElementGetFrameBorderMethodInfo -data DOMHTMLFrameElementGetHeightMethodInfo -data DOMHTMLFrameElementGetLongDescMethodInfo -data DOMHTMLFrameElementGetMarginHeightMethodInfo -data DOMHTMLFrameElementGetMarginWidthMethodInfo -data DOMHTMLFrameElementGetNameMethodInfo -data DOMHTMLFrameElementGetNoResizeMethodInfo -data DOMHTMLFrameElementGetScrollingMethodInfo -data DOMHTMLFrameElementGetSrcMethodInfo -data DOMHTMLFrameElementGetWidthMethodInfo -data DOMHTMLFrameElementSetFrameBorderMethodInfo -data DOMHTMLFrameElementSetLongDescMethodInfo -data DOMHTMLFrameElementSetMarginHeightMethodInfo -data DOMHTMLFrameElementSetMarginWidthMethodInfo -data DOMHTMLFrameElementSetNameMethodInfo -data DOMHTMLFrameElementSetNoResizeMethodInfo -data DOMHTMLFrameElementSetScrollingMethodInfo -data DOMHTMLFrameElementSetSrcMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs +++ /dev/null @@ -1,428 +0,0 @@ - - -{- | -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 - DOMHTMLFrameSetElementGetColsMethodInfo , - dOMHTMLFrameSetElementGetCols , - - --- ** dOMHTMLFrameSetElementGetRows - DOMHTMLFrameSetElementGetRowsMethodInfo , - dOMHTMLFrameSetElementGetRows , - - --- ** dOMHTMLFrameSetElementSetCols - DOMHTMLFrameSetElementSetColsMethodInfo , - dOMHTMLFrameSetElementSetCols , - - --- ** dOMHTMLFrameSetElementSetRows - DOMHTMLFrameSetElementSetRowsMethodInfo , - dOMHTMLFrameSetElementSetRows , - - - - - -- * Properties --- ** Cols - DOMHTMLFrameSetElementColsPropertyInfo , - constructDOMHTMLFrameSetElementCols , - dOMHTMLFrameSetElementCols , - getDOMHTMLFrameSetElementCols , - setDOMHTMLFrameSetElementCols , - - --- ** Rows - DOMHTMLFrameSetElementRowsPropertyInfo , - constructDOMHTMLFrameSetElementRows , - dOMHTMLFrameSetElementRows , - getDOMHTMLFrameSetElementRows , - setDOMHTMLFrameSetElementRows , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLFrameSetElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLFrameSetElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLFrameSetElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLFrameSetElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLFrameSetElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLFrameSetElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLFrameSetElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLFrameSetElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLFrameSetElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLFrameSetElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLFrameSetElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLFrameSetElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLFrameSetElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLFrameSetElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLFrameSetElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLFrameSetElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLFrameSetElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLFrameSetElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLFrameSetElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLFrameSetElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLFrameSetElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLFrameSetElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLFrameSetElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLFrameSetElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLFrameSetElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLFrameSetElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLFrameSetElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLFrameSetElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLFrameSetElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLFrameSetElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLFrameSetElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLFrameSetElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLFrameSetElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLFrameSetElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLFrameSetElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getCols" o = DOMHTMLFrameSetElementGetColsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getRows" o = DOMHTMLFrameSetElementGetRowsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLFrameSetElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setCols" o = DOMHTMLFrameSetElementSetColsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setRows" o = DOMHTMLFrameSetElementSetRowsMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLFrameSetElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLFrameSetElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLFrameSetElementMethod t DOMHTMLFrameSetElement, MethodInfo info DOMHTMLFrameSetElement p) => IsLabelProxy t (DOMHTMLFrameSetElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLFrameSetElementMethod t DOMHTMLFrameSetElement, MethodInfo info DOMHTMLFrameSetElement p) => IsLabel t (DOMHTMLFrameSetElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "cols" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFrameSetElementCols obj = liftIO $ getObjectPropertyString obj "cols" - -setDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () -setDOMHTMLFrameSetElementCols obj val = liftIO $ setObjectPropertyString obj "cols" (Just val) - -constructDOMHTMLFrameSetElementCols :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameSetElementCols val = constructObjectPropertyString "cols" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameSetElementColsPropertyInfo = "cols" - attrGet _ = getDOMHTMLFrameSetElementCols - attrSet _ = setDOMHTMLFrameSetElementCols - attrConstruct _ = constructDOMHTMLFrameSetElementCols - attrClear _ = undefined - --- VVV Prop "rows" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m (Maybe T.Text) -getDOMHTMLFrameSetElementRows obj = liftIO $ getObjectPropertyString obj "rows" - -setDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () -setDOMHTMLFrameSetElementRows obj val = liftIO $ setObjectPropertyString obj "rows" (Just val) - -constructDOMHTMLFrameSetElementRows :: T.Text -> IO ([Char], GValue) -constructDOMHTMLFrameSetElementRows val = constructObjectPropertyString "rows" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLFrameSetElementRowsPropertyInfo = "rows" - attrGet _ = getDOMHTMLFrameSetElementRows - attrSet _ = setDOMHTMLFrameSetElementRows - attrConstruct _ = constructDOMHTMLFrameSetElementRows - attrClear _ = undefined - -type instance AttributeList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementAttributeList -type DOMHTMLFrameSetElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLFrameSetElementColsPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLFrameSetElementRowsPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLFrameSetElementCols :: AttrLabelProxy "cols" -dOMHTMLFrameSetElementCols = AttrLabelProxy - -dOMHTMLFrameSetElementRows :: AttrLabelProxy "rows" -dOMHTMLFrameSetElementRows = AttrLabelProxy - -type instance SignalList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementSignalList -type DOMHTMLFrameSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLFrameSetElement::get_cols --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameSetElementGetColsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameSetElementK a) => MethodInfo DOMHTMLFrameSetElementGetColsMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameSetElementGetCols - --- method DOMHTMLFrameSetElement::get_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLFrameSetElementGetRowsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLFrameSetElementK a) => MethodInfo DOMHTMLFrameSetElementGetRowsMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameSetElementGetRows - --- method DOMHTMLFrameSetElement::set_cols --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameSetElementSetColsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameSetElementK a) => MethodInfo DOMHTMLFrameSetElementSetColsMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameSetElementSetCols - --- method DOMHTMLFrameSetElement::set_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLFrameSetElementSetRowsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLFrameSetElementK a) => MethodInfo DOMHTMLFrameSetElementSetRowsMethodInfo a signature where - overloadedMethod _ = dOMHTMLFrameSetElementSetRows - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLFrameSetElementGetColsMethodInfo -data DOMHTMLFrameSetElementGetRowsMethodInfo -data DOMHTMLFrameSetElementSetColsMethodInfo -data DOMHTMLFrameSetElementSetRowsMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs +++ /dev/null @@ -1,645 +0,0 @@ - - -{- | -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 - DOMHTMLHRElementGetAlignMethodInfo , - dOMHTMLHRElementGetAlign , - - --- ** dOMHTMLHRElementGetNoShade - DOMHTMLHRElementGetNoShadeMethodInfo , - dOMHTMLHRElementGetNoShade , - - --- ** dOMHTMLHRElementGetSize - DOMHTMLHRElementGetSizeMethodInfo , - dOMHTMLHRElementGetSize , - - --- ** dOMHTMLHRElementGetWidth - DOMHTMLHRElementGetWidthMethodInfo , - dOMHTMLHRElementGetWidth , - - --- ** dOMHTMLHRElementSetAlign - DOMHTMLHRElementSetAlignMethodInfo , - dOMHTMLHRElementSetAlign , - - --- ** dOMHTMLHRElementSetNoShade - DOMHTMLHRElementSetNoShadeMethodInfo , - dOMHTMLHRElementSetNoShade , - - --- ** dOMHTMLHRElementSetSize - DOMHTMLHRElementSetSizeMethodInfo , - dOMHTMLHRElementSetSize , - - --- ** dOMHTMLHRElementSetWidth - DOMHTMLHRElementSetWidthMethodInfo , - dOMHTMLHRElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLHRElementAlignPropertyInfo , - constructDOMHTMLHRElementAlign , - dOMHTMLHRElementAlign , - getDOMHTMLHRElementAlign , - setDOMHTMLHRElementAlign , - - --- ** NoShade - DOMHTMLHRElementNoShadePropertyInfo , - constructDOMHTMLHRElementNoShade , - dOMHTMLHRElementNoShade , - getDOMHTMLHRElementNoShade , - setDOMHTMLHRElementNoShade , - - --- ** Size - DOMHTMLHRElementSizePropertyInfo , - constructDOMHTMLHRElementSize , - dOMHTMLHRElementSize , - getDOMHTMLHRElementSize , - setDOMHTMLHRElementSize , - - --- ** Width - DOMHTMLHRElementWidthPropertyInfo , - constructDOMHTMLHRElementWidth , - dOMHTMLHRElementWidth , - getDOMHTMLHRElementWidth , - setDOMHTMLHRElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLHRElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLHRElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLHRElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLHRElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLHRElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLHRElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLHRElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLHRElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLHRElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLHRElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLHRElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLHRElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLHRElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLHRElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLHRElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLHRElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLHRElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLHRElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLHRElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLHRElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLHRElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLHRElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLHRElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLHRElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLHRElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLHRElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLHRElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLHRElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLHRElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLHRElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLHRElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLHRElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLHRElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLHRElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLHRElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLHRElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLHRElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLHRElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLHRElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLHRElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLHRElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLHRElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLHRElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLHRElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLHRElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLHRElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLHRElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLHRElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLHRElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLHRElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLHRElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLHRElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLHRElementMethod "getAlign" o = DOMHTMLHRElementGetAlignMethodInfo - ResolveDOMHTMLHRElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLHRElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLHRElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLHRElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLHRElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLHRElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLHRElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLHRElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLHRElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLHRElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLHRElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLHRElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLHRElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLHRElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLHRElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLHRElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLHRElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLHRElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHRElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLHRElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHRElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLHRElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLHRElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLHRElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLHRElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLHRElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLHRElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLHRElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLHRElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLHRElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLHRElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLHRElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLHRElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLHRElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLHRElementMethod "getNoShade" o = DOMHTMLHRElementGetNoShadeMethodInfo - ResolveDOMHTMLHRElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLHRElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLHRElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLHRElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLHRElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLHRElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLHRElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLHRElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLHRElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLHRElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLHRElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLHRElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLHRElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLHRElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLHRElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLHRElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLHRElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLHRElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLHRElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLHRElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLHRElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLHRElementMethod "getSize" o = DOMHTMLHRElementGetSizeMethodInfo - ResolveDOMHTMLHRElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLHRElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLHRElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLHRElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLHRElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLHRElementMethod "getWidth" o = DOMHTMLHRElementGetWidthMethodInfo - ResolveDOMHTMLHRElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLHRElementMethod "setAlign" o = DOMHTMLHRElementSetAlignMethodInfo - ResolveDOMHTMLHRElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLHRElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLHRElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLHRElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLHRElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLHRElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLHRElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLHRElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLHRElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLHRElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLHRElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLHRElementMethod "setNoShade" o = DOMHTMLHRElementSetNoShadeMethodInfo - ResolveDOMHTMLHRElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLHRElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLHRElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLHRElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLHRElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLHRElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLHRElementMethod "setSize" o = DOMHTMLHRElementSetSizeMethodInfo - ResolveDOMHTMLHRElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLHRElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLHRElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLHRElementMethod "setWidth" o = DOMHTMLHRElementSetWidthMethodInfo - ResolveDOMHTMLHRElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLHRElementMethod t DOMHTMLHRElement, MethodInfo info DOMHTMLHRElement p) => IsLabelProxy t (DOMHTMLHRElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLHRElementMethod t DOMHTMLHRElement, MethodInfo info DOMHTMLHRElement p) => IsLabel t (DOMHTMLHRElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> m (Maybe T.Text) -getDOMHTMLHRElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLHRElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLHRElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLHRElementAlign - attrSet _ = setDOMHTMLHRElementAlign - attrConstruct _ = constructDOMHTMLHRElementAlign - attrClear _ = undefined - --- VVV Prop "no-shade" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "no-shade" - attrGet _ = getDOMHTMLHRElementNoShade - attrSet _ = setDOMHTMLHRElementNoShade - attrConstruct _ = constructDOMHTMLHRElementNoShade - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> m (Maybe T.Text) -getDOMHTMLHRElementSize obj = liftIO $ getObjectPropertyString obj "size" - -setDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementSize obj val = liftIO $ setObjectPropertyString obj "size" (Just val) - -constructDOMHTMLHRElementSize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementSize val = constructObjectPropertyString "size" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLHRElementSizePropertyInfo = "size" - attrGet _ = getDOMHTMLHRElementSize - attrSet _ = setDOMHTMLHRElementSize - attrConstruct _ = constructDOMHTMLHRElementSize - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> m (Maybe T.Text) -getDOMHTMLHRElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () -setDOMHTMLHRElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLHRElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHRElementWidth val = constructObjectPropertyString "width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLHRElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLHRElementWidth - attrSet _ = setDOMHTMLHRElementWidth - attrConstruct _ = constructDOMHTMLHRElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLHRElement = DOMHTMLHRElementAttributeList -type DOMHTMLHRElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHRElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noShade", DOMHTMLHRElementNoShadePropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLHRElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLHRElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLHRElementAlign :: AttrLabelProxy "align" -dOMHTMLHRElementAlign = AttrLabelProxy - -dOMHTMLHRElementNoShade :: AttrLabelProxy "noShade" -dOMHTMLHRElementNoShade = AttrLabelProxy - -dOMHTMLHRElementSize :: AttrLabelProxy "size" -dOMHTMLHRElementSize = AttrLabelProxy - -dOMHTMLHRElementWidth :: AttrLabelProxy "width" -dOMHTMLHRElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLHRElement = DOMHTMLHRElementSignalList -type DOMHTMLHRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLHRElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLHRElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementGetAlign - --- method DOMHTMLHRElement::get_no_shade --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLHRElementGetNoShadeMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementGetNoShadeMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementGetNoShade - --- method DOMHTMLHRElement::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLHRElementGetSizeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementGetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementGetSize - --- method DOMHTMLHRElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLHRElementGetWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementGetWidth - --- method DOMHTMLHRElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLHRElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementSetAlign - --- method DOMHTMLHRElement::set_no_shade --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLHRElementSetNoShadeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementSetNoShadeMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementSetNoShade - --- method DOMHTMLHRElement::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLHRElementSetSizeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementSetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementSetSize - --- method DOMHTMLHRElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLHRElementSetWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLHRElementK a) => MethodInfo DOMHTMLHRElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLHRElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLHRElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLHRElementGetAlignMethodInfo -data DOMHTMLHRElementGetNoShadeMethodInfo -data DOMHTMLHRElementGetSizeMethodInfo -data DOMHTMLHRElementGetWidthMethodInfo -data DOMHTMLHRElementSetAlignMethodInfo -data DOMHTMLHRElementSetNoShadeMethodInfo -data DOMHTMLHRElementSetSizeMethodInfo -data DOMHTMLHRElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLHeadElementGetProfileMethodInfo , - dOMHTMLHeadElementGetProfile , - - --- ** dOMHTMLHeadElementSetProfile - DOMHTMLHeadElementSetProfileMethodInfo , - dOMHTMLHeadElementSetProfile , - - - - - -- * Properties --- ** Profile - DOMHTMLHeadElementProfilePropertyInfo , - constructDOMHTMLHeadElementProfile , - dOMHTMLHeadElementProfile , - getDOMHTMLHeadElementProfile , - setDOMHTMLHeadElementProfile , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLHeadElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLHeadElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLHeadElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLHeadElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLHeadElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLHeadElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLHeadElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLHeadElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLHeadElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLHeadElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLHeadElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLHeadElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLHeadElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLHeadElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLHeadElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLHeadElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLHeadElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLHeadElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLHeadElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLHeadElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLHeadElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLHeadElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLHeadElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLHeadElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLHeadElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLHeadElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLHeadElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLHeadElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLHeadElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLHeadElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLHeadElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLHeadElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLHeadElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLHeadElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLHeadElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLHeadElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLHeadElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLHeadElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLHeadElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLHeadElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLHeadElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLHeadElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLHeadElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLHeadElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLHeadElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLHeadElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLHeadElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLHeadElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLHeadElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLHeadElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLHeadElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLHeadElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLHeadElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLHeadElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLHeadElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLHeadElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLHeadElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLHeadElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLHeadElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLHeadElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLHeadElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLHeadElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLHeadElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLHeadElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLHeadElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLHeadElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLHeadElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLHeadElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLHeadElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLHeadElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHeadElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLHeadElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHeadElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLHeadElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLHeadElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLHeadElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLHeadElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLHeadElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLHeadElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLHeadElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLHeadElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLHeadElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLHeadElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLHeadElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLHeadElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLHeadElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLHeadElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLHeadElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLHeadElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLHeadElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLHeadElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLHeadElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLHeadElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLHeadElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLHeadElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLHeadElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLHeadElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLHeadElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLHeadElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLHeadElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLHeadElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLHeadElementMethod "getProfile" o = DOMHTMLHeadElementGetProfileMethodInfo - ResolveDOMHTMLHeadElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLHeadElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLHeadElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLHeadElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLHeadElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLHeadElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLHeadElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLHeadElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLHeadElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLHeadElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLHeadElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLHeadElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLHeadElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLHeadElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLHeadElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLHeadElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLHeadElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLHeadElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLHeadElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLHeadElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLHeadElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLHeadElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLHeadElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLHeadElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLHeadElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLHeadElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLHeadElementMethod "setProfile" o = DOMHTMLHeadElementSetProfileMethodInfo - ResolveDOMHTMLHeadElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLHeadElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLHeadElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLHeadElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLHeadElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLHeadElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLHeadElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLHeadElementMethod t DOMHTMLHeadElement, MethodInfo info DOMHTMLHeadElement p) => IsLabelProxy t (DOMHTMLHeadElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLHeadElementMethod t DOMHTMLHeadElement, MethodInfo info DOMHTMLHeadElement p) => IsLabel t (DOMHTMLHeadElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "profile" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> m (Maybe T.Text) -getDOMHTMLHeadElementProfile obj = liftIO $ getObjectPropertyString obj "profile" - -setDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> T.Text -> m () -setDOMHTMLHeadElementProfile obj val = liftIO $ setObjectPropertyString obj "profile" (Just val) - -constructDOMHTMLHeadElementProfile :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHeadElementProfile val = constructObjectPropertyString "profile" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLHeadElementProfilePropertyInfo = "profile" - attrGet _ = getDOMHTMLHeadElementProfile - attrSet _ = setDOMHTMLHeadElementProfile - attrConstruct _ = constructDOMHTMLHeadElementProfile - attrClear _ = undefined - -type instance AttributeList DOMHTMLHeadElement = DOMHTMLHeadElementAttributeList -type DOMHTMLHeadElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("profile", DOMHTMLHeadElementProfilePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLHeadElementProfile :: AttrLabelProxy "profile" -dOMHTMLHeadElementProfile = AttrLabelProxy - -type instance SignalList DOMHTMLHeadElement = DOMHTMLHeadElementSignalList -type DOMHTMLHeadElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLHeadElement::get_profile --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLHeadElementGetProfileMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLHeadElementK a) => MethodInfo DOMHTMLHeadElementGetProfileMethodInfo a signature where - overloadedMethod _ = dOMHTMLHeadElementGetProfile - --- method DOMHTMLHeadElement::set_profile --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLHeadElementSetProfileMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLHeadElementK a) => MethodInfo DOMHTMLHeadElementSetProfileMethodInfo a signature where - overloadedMethod _ = dOMHTMLHeadElementSetProfile - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLHeadElementGetProfileMethodInfo -data DOMHTMLHeadElementSetProfileMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLHeadingElementGetAlignMethodInfo , - dOMHTMLHeadingElementGetAlign , - - --- ** dOMHTMLHeadingElementSetAlign - DOMHTMLHeadingElementSetAlignMethodInfo , - dOMHTMLHeadingElementSetAlign , - - - - - -- * Properties --- ** Align - DOMHTMLHeadingElementAlignPropertyInfo , - constructDOMHTMLHeadingElementAlign , - dOMHTMLHeadingElementAlign , - getDOMHTMLHeadingElementAlign , - setDOMHTMLHeadingElementAlign , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLHeadingElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLHeadingElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLHeadingElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLHeadingElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLHeadingElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLHeadingElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLHeadingElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLHeadingElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLHeadingElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLHeadingElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLHeadingElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLHeadingElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLHeadingElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLHeadingElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLHeadingElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLHeadingElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLHeadingElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLHeadingElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLHeadingElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLHeadingElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLHeadingElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLHeadingElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLHeadingElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLHeadingElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLHeadingElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLHeadingElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLHeadingElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLHeadingElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLHeadingElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLHeadingElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLHeadingElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLHeadingElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLHeadingElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLHeadingElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLHeadingElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLHeadingElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLHeadingElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLHeadingElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLHeadingElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLHeadingElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLHeadingElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLHeadingElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLHeadingElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLHeadingElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLHeadingElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLHeadingElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLHeadingElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLHeadingElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLHeadingElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLHeadingElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLHeadingElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLHeadingElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLHeadingElementMethod "getAlign" o = DOMHTMLHeadingElementGetAlignMethodInfo - ResolveDOMHTMLHeadingElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLHeadingElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLHeadingElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLHeadingElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLHeadingElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLHeadingElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLHeadingElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLHeadingElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLHeadingElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLHeadingElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLHeadingElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLHeadingElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLHeadingElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLHeadingElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLHeadingElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLHeadingElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLHeadingElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLHeadingElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHeadingElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLHeadingElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHeadingElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLHeadingElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLHeadingElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLHeadingElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLHeadingElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLHeadingElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLHeadingElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLHeadingElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLHeadingElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLHeadingElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLHeadingElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLHeadingElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLHeadingElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLHeadingElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLHeadingElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLHeadingElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLHeadingElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLHeadingElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLHeadingElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLHeadingElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLHeadingElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLHeadingElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLHeadingElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLHeadingElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLHeadingElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLHeadingElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLHeadingElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLHeadingElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLHeadingElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLHeadingElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLHeadingElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLHeadingElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLHeadingElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLHeadingElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLHeadingElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLHeadingElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLHeadingElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLHeadingElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLHeadingElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLHeadingElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLHeadingElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLHeadingElementMethod "setAlign" o = DOMHTMLHeadingElementSetAlignMethodInfo - ResolveDOMHTMLHeadingElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLHeadingElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLHeadingElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLHeadingElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLHeadingElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLHeadingElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLHeadingElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLHeadingElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLHeadingElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLHeadingElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLHeadingElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLHeadingElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLHeadingElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLHeadingElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLHeadingElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLHeadingElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLHeadingElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLHeadingElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLHeadingElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLHeadingElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLHeadingElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLHeadingElementMethod t DOMHTMLHeadingElement, MethodInfo info DOMHTMLHeadingElement p) => IsLabelProxy t (DOMHTMLHeadingElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLHeadingElementMethod t DOMHTMLHeadingElement, MethodInfo info DOMHTMLHeadingElement p) => IsLabel t (DOMHTMLHeadingElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> m (Maybe T.Text) -getDOMHTMLHeadingElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> T.Text -> m () -setDOMHTMLHeadingElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLHeadingElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHeadingElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLHeadingElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLHeadingElementAlign - attrSet _ = setDOMHTMLHeadingElementAlign - attrConstruct _ = constructDOMHTMLHeadingElementAlign - attrClear _ = undefined - -type instance AttributeList DOMHTMLHeadingElement = DOMHTMLHeadingElementAttributeList -type DOMHTMLHeadingElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHeadingElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLHeadingElementAlign :: AttrLabelProxy "align" -dOMHTMLHeadingElementAlign = AttrLabelProxy - -type instance SignalList DOMHTMLHeadingElement = DOMHTMLHeadingElementSignalList -type DOMHTMLHeadingElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLHeadingElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLHeadingElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLHeadingElementK a) => MethodInfo DOMHTMLHeadingElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLHeadingElementGetAlign - --- method DOMHTMLHeadingElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLHeadingElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLHeadingElementK a) => MethodInfo DOMHTMLHeadingElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLHeadingElementSetAlign - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLHeadingElementGetAlignMethodInfo -data DOMHTMLHeadingElementSetAlignMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs +++ /dev/null @@ -1,359 +0,0 @@ - - -{- | -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 - DOMHTMLHtmlElementGetVersionMethodInfo , - dOMHTMLHtmlElementGetVersion , - - --- ** dOMHTMLHtmlElementSetVersion - DOMHTMLHtmlElementSetVersionMethodInfo , - dOMHTMLHtmlElementSetVersion , - - - - - -- * Properties --- ** Manifest - DOMHTMLHtmlElementManifestPropertyInfo , - clearDOMHTMLHtmlElementManifest , - constructDOMHTMLHtmlElementManifest , - dOMHTMLHtmlElementManifest , - getDOMHTMLHtmlElementManifest , - setDOMHTMLHtmlElementManifest , - - --- ** Version - DOMHTMLHtmlElementVersionPropertyInfo , - constructDOMHTMLHtmlElementVersion , - dOMHTMLHtmlElementVersion , - getDOMHTMLHtmlElementVersion , - setDOMHTMLHtmlElementVersion , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLHtmlElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLHtmlElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLHtmlElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLHtmlElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLHtmlElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLHtmlElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLHtmlElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLHtmlElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLHtmlElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLHtmlElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLHtmlElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLHtmlElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLHtmlElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLHtmlElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLHtmlElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLHtmlElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLHtmlElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLHtmlElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLHtmlElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLHtmlElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLHtmlElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLHtmlElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLHtmlElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLHtmlElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLHtmlElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLHtmlElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLHtmlElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLHtmlElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLHtmlElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLHtmlElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLHtmlElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLHtmlElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLHtmlElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLHtmlElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLHtmlElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLHtmlElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLHtmlElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLHtmlElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLHtmlElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLHtmlElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLHtmlElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLHtmlElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLHtmlElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLHtmlElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLHtmlElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLHtmlElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLHtmlElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLHtmlElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLHtmlElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLHtmlElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLHtmlElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLHtmlElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLHtmlElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLHtmlElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLHtmlElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLHtmlElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLHtmlElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLHtmlElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLHtmlElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLHtmlElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLHtmlElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLHtmlElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLHtmlElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLHtmlElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLHtmlElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLHtmlElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLHtmlElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLHtmlElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLHtmlElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLHtmlElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHtmlElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLHtmlElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLHtmlElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLHtmlElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLHtmlElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLHtmlElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLHtmlElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLHtmlElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLHtmlElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLHtmlElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLHtmlElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLHtmlElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLHtmlElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLHtmlElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLHtmlElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLHtmlElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLHtmlElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLHtmlElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLHtmlElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLHtmlElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLHtmlElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLHtmlElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLHtmlElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLHtmlElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLHtmlElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLHtmlElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLHtmlElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLHtmlElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLHtmlElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLHtmlElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLHtmlElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLHtmlElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLHtmlElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLHtmlElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLHtmlElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLHtmlElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLHtmlElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLHtmlElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLHtmlElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLHtmlElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLHtmlElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLHtmlElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLHtmlElementMethod "getVersion" o = DOMHTMLHtmlElementGetVersionMethodInfo - ResolveDOMHTMLHtmlElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLHtmlElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLHtmlElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLHtmlElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLHtmlElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLHtmlElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLHtmlElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLHtmlElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLHtmlElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLHtmlElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLHtmlElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLHtmlElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLHtmlElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLHtmlElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLHtmlElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLHtmlElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLHtmlElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLHtmlElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLHtmlElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLHtmlElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLHtmlElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLHtmlElementMethod "setVersion" o = DOMHTMLHtmlElementSetVersionMethodInfo - ResolveDOMHTMLHtmlElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLHtmlElementMethod t DOMHTMLHtmlElement, MethodInfo info DOMHTMLHtmlElement p) => IsLabelProxy t (DOMHTMLHtmlElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLHtmlElementMethod t DOMHTMLHtmlElement, MethodInfo info DOMHTMLHtmlElement p) => IsLabel t (DOMHTMLHtmlElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "manifest" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m (Maybe T.Text) -getDOMHTMLHtmlElementManifest obj = liftIO $ getObjectPropertyString obj "manifest" - -setDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () -setDOMHTMLHtmlElementManifest obj val = liftIO $ setObjectPropertyString obj "manifest" (Just val) - -constructDOMHTMLHtmlElementManifest :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHtmlElementManifest val = constructObjectPropertyString "manifest" (Just val) - -clearDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m () -clearDOMHTMLHtmlElementManifest obj = liftIO $ setObjectPropertyString obj "manifest" (Nothing :: Maybe T.Text) - -data DOMHTMLHtmlElementManifestPropertyInfo -instance AttrInfo DOMHTMLHtmlElementManifestPropertyInfo where - type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = DOMHTMLHtmlElementK - type AttrGetType DOMHTMLHtmlElementManifestPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLHtmlElementManifestPropertyInfo = "manifest" - attrGet _ = getDOMHTMLHtmlElementManifest - attrSet _ = setDOMHTMLHtmlElementManifest - attrConstruct _ = constructDOMHTMLHtmlElementManifest - attrClear _ = clearDOMHTMLHtmlElementManifest - --- VVV Prop "version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m (Maybe T.Text) -getDOMHTMLHtmlElementVersion obj = liftIO $ getObjectPropertyString obj "version" - -setDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () -setDOMHTMLHtmlElementVersion obj val = liftIO $ setObjectPropertyString obj "version" (Just val) - -constructDOMHTMLHtmlElementVersion :: T.Text -> IO ([Char], GValue) -constructDOMHTMLHtmlElementVersion val = constructObjectPropertyString "version" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLHtmlElementVersionPropertyInfo = "version" - attrGet _ = getDOMHTMLHtmlElementVersion - attrSet _ = setDOMHTMLHtmlElementVersion - attrConstruct _ = constructDOMHTMLHtmlElementVersion - attrClear _ = undefined - -type instance AttributeList DOMHTMLHtmlElement = DOMHTMLHtmlElementAttributeList -type DOMHTMLHtmlElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("manifest", DOMHTMLHtmlElementManifestPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("version", DOMHTMLHtmlElementVersionPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLHtmlElementManifest :: AttrLabelProxy "manifest" -dOMHTMLHtmlElementManifest = AttrLabelProxy - -dOMHTMLHtmlElementVersion :: AttrLabelProxy "version" -dOMHTMLHtmlElementVersion = AttrLabelProxy - -type instance SignalList DOMHTMLHtmlElement = DOMHTMLHtmlElementSignalList -type DOMHTMLHtmlElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLHtmlElement::get_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLHtmlElementGetVersionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLHtmlElementK a) => MethodInfo DOMHTMLHtmlElementGetVersionMethodInfo a signature where - overloadedMethod _ = dOMHTMLHtmlElementGetVersion - --- method DOMHTMLHtmlElement::set_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLHtmlElementSetVersionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLHtmlElementK a) => MethodInfo DOMHTMLHtmlElementSetVersionMethodInfo a signature where - overloadedMethod _ = dOMHTMLHtmlElementSetVersion - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLHtmlElementGetVersionMethodInfo -data DOMHTMLHtmlElementSetVersionMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs +++ /dev/null @@ -1,1518 +0,0 @@ - - -{- | -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 - DOMHTMLIFrameElementGetAlignMethodInfo , - dOMHTMLIFrameElementGetAlign , - - --- ** dOMHTMLIFrameElementGetContentDocument - DOMHTMLIFrameElementGetContentDocumentMethodInfo, - dOMHTMLIFrameElementGetContentDocument , - - --- ** dOMHTMLIFrameElementGetContentWindow - DOMHTMLIFrameElementGetContentWindowMethodInfo, - dOMHTMLIFrameElementGetContentWindow , - - --- ** dOMHTMLIFrameElementGetFrameBorder - DOMHTMLIFrameElementGetFrameBorderMethodInfo, - dOMHTMLIFrameElementGetFrameBorder , - - --- ** dOMHTMLIFrameElementGetHeight - DOMHTMLIFrameElementGetHeightMethodInfo , - dOMHTMLIFrameElementGetHeight , - - --- ** dOMHTMLIFrameElementGetLongDesc - DOMHTMLIFrameElementGetLongDescMethodInfo, - dOMHTMLIFrameElementGetLongDesc , - - --- ** dOMHTMLIFrameElementGetMarginHeight - DOMHTMLIFrameElementGetMarginHeightMethodInfo, - dOMHTMLIFrameElementGetMarginHeight , - - --- ** dOMHTMLIFrameElementGetMarginWidth - DOMHTMLIFrameElementGetMarginWidthMethodInfo, - dOMHTMLIFrameElementGetMarginWidth , - - --- ** dOMHTMLIFrameElementGetName - DOMHTMLIFrameElementGetNameMethodInfo , - dOMHTMLIFrameElementGetName , - - --- ** dOMHTMLIFrameElementGetScrolling - DOMHTMLIFrameElementGetScrollingMethodInfo, - dOMHTMLIFrameElementGetScrolling , - - --- ** dOMHTMLIFrameElementGetSrc - DOMHTMLIFrameElementGetSrcMethodInfo , - dOMHTMLIFrameElementGetSrc , - - --- ** dOMHTMLIFrameElementGetWidth - DOMHTMLIFrameElementGetWidthMethodInfo , - dOMHTMLIFrameElementGetWidth , - - --- ** dOMHTMLIFrameElementSetAlign - DOMHTMLIFrameElementSetAlignMethodInfo , - dOMHTMLIFrameElementSetAlign , - - --- ** dOMHTMLIFrameElementSetFrameBorder - DOMHTMLIFrameElementSetFrameBorderMethodInfo, - dOMHTMLIFrameElementSetFrameBorder , - - --- ** dOMHTMLIFrameElementSetHeight - DOMHTMLIFrameElementSetHeightMethodInfo , - dOMHTMLIFrameElementSetHeight , - - --- ** dOMHTMLIFrameElementSetLongDesc - DOMHTMLIFrameElementSetLongDescMethodInfo, - dOMHTMLIFrameElementSetLongDesc , - - --- ** dOMHTMLIFrameElementSetMarginHeight - DOMHTMLIFrameElementSetMarginHeightMethodInfo, - dOMHTMLIFrameElementSetMarginHeight , - - --- ** dOMHTMLIFrameElementSetMarginWidth - DOMHTMLIFrameElementSetMarginWidthMethodInfo, - dOMHTMLIFrameElementSetMarginWidth , - - --- ** dOMHTMLIFrameElementSetName - DOMHTMLIFrameElementSetNameMethodInfo , - dOMHTMLIFrameElementSetName , - - --- ** dOMHTMLIFrameElementSetScrolling - DOMHTMLIFrameElementSetScrollingMethodInfo, - dOMHTMLIFrameElementSetScrolling , - - --- ** dOMHTMLIFrameElementSetSrc - DOMHTMLIFrameElementSetSrcMethodInfo , - dOMHTMLIFrameElementSetSrc , - - --- ** dOMHTMLIFrameElementSetWidth - DOMHTMLIFrameElementSetWidthMethodInfo , - dOMHTMLIFrameElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLIFrameElementAlignPropertyInfo , - constructDOMHTMLIFrameElementAlign , - dOMHTMLIFrameElementAlign , - getDOMHTMLIFrameElementAlign , - setDOMHTMLIFrameElementAlign , - - --- ** ContentDocument - DOMHTMLIFrameElementContentDocumentPropertyInfo, - dOMHTMLIFrameElementContentDocument , - getDOMHTMLIFrameElementContentDocument , - - --- ** ContentWindow - DOMHTMLIFrameElementContentWindowPropertyInfo, - dOMHTMLIFrameElementContentWindow , - getDOMHTMLIFrameElementContentWindow , - - --- ** FrameBorder - DOMHTMLIFrameElementFrameBorderPropertyInfo, - constructDOMHTMLIFrameElementFrameBorder, - dOMHTMLIFrameElementFrameBorder , - getDOMHTMLIFrameElementFrameBorder , - setDOMHTMLIFrameElementFrameBorder , - - --- ** Height - DOMHTMLIFrameElementHeightPropertyInfo , - constructDOMHTMLIFrameElementHeight , - dOMHTMLIFrameElementHeight , - getDOMHTMLIFrameElementHeight , - setDOMHTMLIFrameElementHeight , - - --- ** LongDesc - DOMHTMLIFrameElementLongDescPropertyInfo, - constructDOMHTMLIFrameElementLongDesc , - dOMHTMLIFrameElementLongDesc , - getDOMHTMLIFrameElementLongDesc , - setDOMHTMLIFrameElementLongDesc , - - --- ** MarginHeight - DOMHTMLIFrameElementMarginHeightPropertyInfo, - constructDOMHTMLIFrameElementMarginHeight, - dOMHTMLIFrameElementMarginHeight , - getDOMHTMLIFrameElementMarginHeight , - setDOMHTMLIFrameElementMarginHeight , - - --- ** MarginWidth - DOMHTMLIFrameElementMarginWidthPropertyInfo, - constructDOMHTMLIFrameElementMarginWidth, - dOMHTMLIFrameElementMarginWidth , - getDOMHTMLIFrameElementMarginWidth , - setDOMHTMLIFrameElementMarginWidth , - - --- ** Name - DOMHTMLIFrameElementNamePropertyInfo , - constructDOMHTMLIFrameElementName , - dOMHTMLIFrameElementName , - getDOMHTMLIFrameElementName , - setDOMHTMLIFrameElementName , - - --- ** Sandbox - DOMHTMLIFrameElementSandboxPropertyInfo , - clearDOMHTMLIFrameElementSandbox , - constructDOMHTMLIFrameElementSandbox , - dOMHTMLIFrameElementSandbox , - getDOMHTMLIFrameElementSandbox , - setDOMHTMLIFrameElementSandbox , - - --- ** Scrolling - DOMHTMLIFrameElementScrollingPropertyInfo, - constructDOMHTMLIFrameElementScrolling , - dOMHTMLIFrameElementScrolling , - getDOMHTMLIFrameElementScrolling , - setDOMHTMLIFrameElementScrolling , - - --- ** Src - DOMHTMLIFrameElementSrcPropertyInfo , - constructDOMHTMLIFrameElementSrc , - dOMHTMLIFrameElementSrc , - getDOMHTMLIFrameElementSrc , - setDOMHTMLIFrameElementSrc , - - --- ** Srcdoc - DOMHTMLIFrameElementSrcdocPropertyInfo , - clearDOMHTMLIFrameElementSrcdoc , - constructDOMHTMLIFrameElementSrcdoc , - dOMHTMLIFrameElementSrcdoc , - getDOMHTMLIFrameElementSrcdoc , - setDOMHTMLIFrameElementSrcdoc , - - --- ** Width - DOMHTMLIFrameElementWidthPropertyInfo , - constructDOMHTMLIFrameElementWidth , - dOMHTMLIFrameElementWidth , - getDOMHTMLIFrameElementWidth , - setDOMHTMLIFrameElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLIFrameElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLIFrameElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLIFrameElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLIFrameElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLIFrameElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLIFrameElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLIFrameElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLIFrameElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLIFrameElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLIFrameElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLIFrameElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLIFrameElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLIFrameElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLIFrameElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLIFrameElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLIFrameElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLIFrameElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLIFrameElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLIFrameElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLIFrameElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLIFrameElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLIFrameElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLIFrameElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLIFrameElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLIFrameElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLIFrameElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLIFrameElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLIFrameElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLIFrameElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLIFrameElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLIFrameElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLIFrameElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLIFrameElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLIFrameElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLIFrameElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLIFrameElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLIFrameElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLIFrameElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLIFrameElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLIFrameElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLIFrameElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLIFrameElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLIFrameElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLIFrameElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLIFrameElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLIFrameElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLIFrameElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLIFrameElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLIFrameElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLIFrameElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLIFrameElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLIFrameElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLIFrameElementMethod "getAlign" o = DOMHTMLIFrameElementGetAlignMethodInfo - ResolveDOMHTMLIFrameElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLIFrameElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLIFrameElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLIFrameElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLIFrameElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLIFrameElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLIFrameElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLIFrameElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLIFrameElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLIFrameElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLIFrameElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLIFrameElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLIFrameElementMethod "getContentDocument" o = DOMHTMLIFrameElementGetContentDocumentMethodInfo - ResolveDOMHTMLIFrameElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLIFrameElementMethod "getContentWindow" o = DOMHTMLIFrameElementGetContentWindowMethodInfo - ResolveDOMHTMLIFrameElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLIFrameElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLIFrameElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLIFrameElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLIFrameElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLIFrameElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLIFrameElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLIFrameElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLIFrameElementMethod "getFrameBorder" o = DOMHTMLIFrameElementGetFrameBorderMethodInfo - ResolveDOMHTMLIFrameElementMethod "getHeight" o = DOMHTMLIFrameElementGetHeightMethodInfo - ResolveDOMHTMLIFrameElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLIFrameElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLIFrameElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLIFrameElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLIFrameElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLIFrameElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLIFrameElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "getLongDesc" o = DOMHTMLIFrameElementGetLongDescMethodInfo - ResolveDOMHTMLIFrameElementMethod "getMarginHeight" o = DOMHTMLIFrameElementGetMarginHeightMethodInfo - ResolveDOMHTMLIFrameElementMethod "getMarginWidth" o = DOMHTMLIFrameElementGetMarginWidthMethodInfo - ResolveDOMHTMLIFrameElementMethod "getName" o = DOMHTMLIFrameElementGetNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLIFrameElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLIFrameElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLIFrameElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLIFrameElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLIFrameElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLIFrameElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLIFrameElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLIFrameElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLIFrameElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLIFrameElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLIFrameElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLIFrameElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLIFrameElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLIFrameElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLIFrameElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLIFrameElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLIFrameElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLIFrameElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLIFrameElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLIFrameElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLIFrameElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLIFrameElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLIFrameElementMethod "getScrolling" o = DOMHTMLIFrameElementGetScrollingMethodInfo - ResolveDOMHTMLIFrameElementMethod "getSrc" o = DOMHTMLIFrameElementGetSrcMethodInfo - ResolveDOMHTMLIFrameElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLIFrameElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLIFrameElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLIFrameElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLIFrameElementMethod "getWidth" o = DOMHTMLIFrameElementGetWidthMethodInfo - ResolveDOMHTMLIFrameElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLIFrameElementMethod "setAlign" o = DOMHTMLIFrameElementSetAlignMethodInfo - ResolveDOMHTMLIFrameElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLIFrameElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLIFrameElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLIFrameElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLIFrameElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLIFrameElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLIFrameElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLIFrameElementMethod "setFrameBorder" o = DOMHTMLIFrameElementSetFrameBorderMethodInfo - ResolveDOMHTMLIFrameElementMethod "setHeight" o = DOMHTMLIFrameElementSetHeightMethodInfo - ResolveDOMHTMLIFrameElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLIFrameElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLIFrameElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLIFrameElementMethod "setLongDesc" o = DOMHTMLIFrameElementSetLongDescMethodInfo - ResolveDOMHTMLIFrameElementMethod "setMarginHeight" o = DOMHTMLIFrameElementSetMarginHeightMethodInfo - ResolveDOMHTMLIFrameElementMethod "setMarginWidth" o = DOMHTMLIFrameElementSetMarginWidthMethodInfo - ResolveDOMHTMLIFrameElementMethod "setName" o = DOMHTMLIFrameElementSetNameMethodInfo - ResolveDOMHTMLIFrameElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLIFrameElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLIFrameElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLIFrameElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLIFrameElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLIFrameElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLIFrameElementMethod "setScrolling" o = DOMHTMLIFrameElementSetScrollingMethodInfo - ResolveDOMHTMLIFrameElementMethod "setSrc" o = DOMHTMLIFrameElementSetSrcMethodInfo - ResolveDOMHTMLIFrameElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLIFrameElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLIFrameElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLIFrameElementMethod "setWidth" o = DOMHTMLIFrameElementSetWidthMethodInfo - ResolveDOMHTMLIFrameElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLIFrameElementMethod t DOMHTMLIFrameElement, MethodInfo info DOMHTMLIFrameElement p) => IsLabelProxy t (DOMHTMLIFrameElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLIFrameElementMethod t DOMHTMLIFrameElement, MethodInfo info DOMHTMLIFrameElement p) => IsLabel t (DOMHTMLIFrameElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLIFrameElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLIFrameElementAlign - attrSet _ = setDOMHTMLIFrameElementAlign - attrConstruct _ = constructDOMHTMLIFrameElementAlign - attrClear _ = undefined - --- VVV Prop "content-document" - -- Type: TInterface "WebKit2WebExtension" "DOMDocument" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLIFrameElementContentDocument :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDocument -getDOMHTMLIFrameElementContentDocument obj = liftIO $ checkUnexpectedNothing "getDOMHTMLIFrameElementContentDocument" $ getObjectPropertyObject obj "content-document" DOMDocument - -data DOMHTMLIFrameElementContentDocumentPropertyInfo -instance AttrInfo DOMHTMLIFrameElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementContentDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMDocument - type AttrLabel DOMHTMLIFrameElementContentDocumentPropertyInfo = "content-document" - attrGet _ = getDOMHTMLIFrameElementContentDocument - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "content-window" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLIFrameElementContentWindow :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe DOMDOMWindow) -getDOMHTMLIFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow - -data DOMHTMLIFrameElementContentWindowPropertyInfo -instance AttrInfo DOMHTMLIFrameElementContentWindowPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementContentWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementContentWindowPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMHTMLIFrameElementContentWindowPropertyInfo = "content-window" - attrGet _ = getDOMHTMLIFrameElementContentWindow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "frame-border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLIFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementFrameBorder val = constructObjectPropertyString "frame-border" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementFrameBorderPropertyInfo = "frame-border" - attrGet _ = getDOMHTMLIFrameElementFrameBorder - attrSet _ = setDOMHTMLIFrameElementFrameBorder - attrConstruct _ = constructDOMHTMLIFrameElementFrameBorder - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) - -constructDOMHTMLIFrameElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementHeight val = constructObjectPropertyString "height" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLIFrameElementHeight - attrSet _ = setDOMHTMLIFrameElementHeight - attrConstruct _ = constructDOMHTMLIFrameElementHeight - attrClear _ = undefined - --- VVV Prop "long-desc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLIFrameElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementLongDesc val = constructObjectPropertyString "long-desc" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementLongDescPropertyInfo = "long-desc" - attrGet _ = getDOMHTMLIFrameElementLongDesc - attrSet _ = setDOMHTMLIFrameElementLongDesc - attrConstruct _ = constructDOMHTMLIFrameElementLongDesc - attrClear _ = undefined - --- VVV Prop "margin-height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLIFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementMarginHeight val = constructObjectPropertyString "margin-height" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementMarginHeightPropertyInfo = "margin-height" - attrGet _ = getDOMHTMLIFrameElementMarginHeight - attrSet _ = setDOMHTMLIFrameElementMarginHeight - attrConstruct _ = constructDOMHTMLIFrameElementMarginHeight - attrClear _ = undefined - --- VVV Prop "margin-width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLIFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementMarginWidth val = constructObjectPropertyString "margin-width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementMarginWidthPropertyInfo = "margin-width" - attrGet _ = getDOMHTMLIFrameElementMarginWidth - attrSet _ = setDOMHTMLIFrameElementMarginWidth - attrConstruct _ = constructDOMHTMLIFrameElementMarginWidth - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLIFrameElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLIFrameElementName - attrSet _ = setDOMHTMLIFrameElementName - attrConstruct _ = constructDOMHTMLIFrameElementName - attrClear _ = undefined - --- VVV Prop "sandbox" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementSandbox obj = liftIO $ getObjectPropertyString obj "sandbox" - -setDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSandbox obj val = liftIO $ setObjectPropertyString obj "sandbox" (Just val) - -constructDOMHTMLIFrameElementSandbox :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSandbox val = constructObjectPropertyString "sandbox" (Just val) - -clearDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m () -clearDOMHTMLIFrameElementSandbox obj = liftIO $ setObjectPropertyString obj "sandbox" (Nothing :: Maybe T.Text) - -data DOMHTMLIFrameElementSandboxPropertyInfo -instance AttrInfo DOMHTMLIFrameElementSandboxPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSandboxPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementSandboxPropertyInfo = "sandbox" - attrGet _ = getDOMHTMLIFrameElementSandbox - attrSet _ = setDOMHTMLIFrameElementSandbox - attrConstruct _ = constructDOMHTMLIFrameElementSandbox - attrClear _ = clearDOMHTMLIFrameElementSandbox - --- VVV Prop "scrolling" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" - -setDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" (Just val) - -constructDOMHTMLIFrameElementScrolling :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementScrolling val = constructObjectPropertyString "scrolling" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementScrollingPropertyInfo = "scrolling" - attrGet _ = getDOMHTMLIFrameElementScrolling - attrSet _ = setDOMHTMLIFrameElementScrolling - attrConstruct _ = constructDOMHTMLIFrameElementScrolling - attrClear _ = undefined - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) - -constructDOMHTMLIFrameElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSrc val = constructObjectPropertyString "src" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementSrcPropertyInfo = "src" - attrGet _ = getDOMHTMLIFrameElementSrc - attrSet _ = setDOMHTMLIFrameElementSrc - attrConstruct _ = constructDOMHTMLIFrameElementSrc - attrClear _ = undefined - --- VVV Prop "srcdoc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementSrcdoc obj = liftIO $ getObjectPropertyString obj "srcdoc" - -setDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementSrcdoc obj val = liftIO $ setObjectPropertyString obj "srcdoc" (Just val) - -constructDOMHTMLIFrameElementSrcdoc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementSrcdoc val = constructObjectPropertyString "srcdoc" (Just val) - -clearDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m () -clearDOMHTMLIFrameElementSrcdoc obj = liftIO $ setObjectPropertyString obj "srcdoc" (Nothing :: Maybe T.Text) - -data DOMHTMLIFrameElementSrcdocPropertyInfo -instance AttrInfo DOMHTMLIFrameElementSrcdocPropertyInfo where - type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = DOMHTMLIFrameElementK - type AttrGetType DOMHTMLIFrameElementSrcdocPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementSrcdocPropertyInfo = "srcdoc" - attrGet _ = getDOMHTMLIFrameElementSrcdoc - attrSet _ = setDOMHTMLIFrameElementSrcdoc - attrConstruct _ = constructDOMHTMLIFrameElementSrcdoc - attrClear _ = clearDOMHTMLIFrameElementSrcdoc - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m (Maybe T.Text) -getDOMHTMLIFrameElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () -setDOMHTMLIFrameElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLIFrameElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLIFrameElementWidth val = constructObjectPropertyString "width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLIFrameElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLIFrameElementWidth - attrSet _ = setDOMHTMLIFrameElementWidth - attrConstruct _ = constructDOMHTMLIFrameElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLIFrameElement = DOMHTMLIFrameElementAttributeList -type DOMHTMLIFrameElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLIFrameElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentDocument", DOMHTMLIFrameElementContentDocumentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("contentWindow", DOMHTMLIFrameElementContentWindowPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("frameBorder", DOMHTMLIFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLIFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("longDesc", DOMHTMLIFrameElementLongDescPropertyInfo), '("marginHeight", DOMHTMLIFrameElementMarginHeightPropertyInfo), '("marginWidth", DOMHTMLIFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLIFrameElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("sandbox", DOMHTMLIFrameElementSandboxPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLIFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLIFrameElementSrcPropertyInfo), '("srcdoc", DOMHTMLIFrameElementSrcdocPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLIFrameElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLIFrameElementAlign :: AttrLabelProxy "align" -dOMHTMLIFrameElementAlign = AttrLabelProxy - -dOMHTMLIFrameElementContentDocument :: AttrLabelProxy "contentDocument" -dOMHTMLIFrameElementContentDocument = AttrLabelProxy - -dOMHTMLIFrameElementContentWindow :: AttrLabelProxy "contentWindow" -dOMHTMLIFrameElementContentWindow = AttrLabelProxy - -dOMHTMLIFrameElementFrameBorder :: AttrLabelProxy "frameBorder" -dOMHTMLIFrameElementFrameBorder = AttrLabelProxy - -dOMHTMLIFrameElementHeight :: AttrLabelProxy "height" -dOMHTMLIFrameElementHeight = AttrLabelProxy - -dOMHTMLIFrameElementLongDesc :: AttrLabelProxy "longDesc" -dOMHTMLIFrameElementLongDesc = AttrLabelProxy - -dOMHTMLIFrameElementMarginHeight :: AttrLabelProxy "marginHeight" -dOMHTMLIFrameElementMarginHeight = AttrLabelProxy - -dOMHTMLIFrameElementMarginWidth :: AttrLabelProxy "marginWidth" -dOMHTMLIFrameElementMarginWidth = AttrLabelProxy - -dOMHTMLIFrameElementName :: AttrLabelProxy "name" -dOMHTMLIFrameElementName = AttrLabelProxy - -dOMHTMLIFrameElementSandbox :: AttrLabelProxy "sandbox" -dOMHTMLIFrameElementSandbox = AttrLabelProxy - -dOMHTMLIFrameElementScrolling :: AttrLabelProxy "scrolling" -dOMHTMLIFrameElementScrolling = AttrLabelProxy - -dOMHTMLIFrameElementSrc :: AttrLabelProxy "src" -dOMHTMLIFrameElementSrc = AttrLabelProxy - -dOMHTMLIFrameElementSrcdoc :: AttrLabelProxy "srcdoc" -dOMHTMLIFrameElementSrcdoc = AttrLabelProxy - -dOMHTMLIFrameElementWidth :: AttrLabelProxy "width" -dOMHTMLIFrameElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLIFrameElement = DOMHTMLIFrameElementSignalList -type DOMHTMLIFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLIFrameElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetAlign - --- method DOMHTMLIFrameElement::get_content_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetContentDocumentMethodInfo -instance (signature ~ (m DOMDocument), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetContentDocumentMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetContentDocument - --- method DOMHTMLIFrameElement::get_content_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetContentWindowMethodInfo -instance (signature ~ (m DOMDOMWindow), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetContentWindowMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetContentWindow - --- method DOMHTMLIFrameElement::get_frame_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetFrameBorderMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetFrameBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetFrameBorder - --- method DOMHTMLIFrameElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetHeightMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetHeight - --- method DOMHTMLIFrameElement::get_long_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetLongDescMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetLongDescMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetLongDesc - --- method DOMHTMLIFrameElement::get_margin_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetMarginHeightMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetMarginHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetMarginHeight - --- method DOMHTMLIFrameElement::get_margin_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetMarginWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetMarginWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetMarginWidth - --- method DOMHTMLIFrameElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetName - --- method DOMHTMLIFrameElement::get_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetScrollingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetScrollingMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetScrolling - --- method DOMHTMLIFrameElement::get_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetSrcMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetSrc - --- method DOMHTMLIFrameElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLIFrameElementGetWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementGetWidth - --- method DOMHTMLIFrameElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetAlign - --- method DOMHTMLIFrameElement::set_frame_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetFrameBorderMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetFrameBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetFrameBorder - --- method DOMHTMLIFrameElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetHeightMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetHeight - --- method DOMHTMLIFrameElement::set_long_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetLongDescMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetLongDescMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetLongDesc - --- method DOMHTMLIFrameElement::set_margin_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetMarginHeightMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetMarginHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetMarginHeight - --- method DOMHTMLIFrameElement::set_margin_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetMarginWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetMarginWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetMarginWidth - --- method DOMHTMLIFrameElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetName - --- method DOMHTMLIFrameElement::set_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetScrollingMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetScrollingMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetScrolling - --- method DOMHTMLIFrameElement::set_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetSrcMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetSrc - --- method DOMHTMLIFrameElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLIFrameElementSetWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLIFrameElementK a) => MethodInfo DOMHTMLIFrameElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLIFrameElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot +++ /dev/null @@ -1,49 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLIFrameElementGetAlignMethodInfo -data DOMHTMLIFrameElementGetContentDocumentMethodInfo -data DOMHTMLIFrameElementGetContentWindowMethodInfo -data DOMHTMLIFrameElementGetFrameBorderMethodInfo -data DOMHTMLIFrameElementGetHeightMethodInfo -data DOMHTMLIFrameElementGetLongDescMethodInfo -data DOMHTMLIFrameElementGetMarginHeightMethodInfo -data DOMHTMLIFrameElementGetMarginWidthMethodInfo -data DOMHTMLIFrameElementGetNameMethodInfo -data DOMHTMLIFrameElementGetScrollingMethodInfo -data DOMHTMLIFrameElementGetSrcMethodInfo -data DOMHTMLIFrameElementGetWidthMethodInfo -data DOMHTMLIFrameElementSetAlignMethodInfo -data DOMHTMLIFrameElementSetFrameBorderMethodInfo -data DOMHTMLIFrameElementSetHeightMethodInfo -data DOMHTMLIFrameElementSetLongDescMethodInfo -data DOMHTMLIFrameElementSetMarginHeightMethodInfo -data DOMHTMLIFrameElementSetMarginWidthMethodInfo -data DOMHTMLIFrameElementSetNameMethodInfo -data DOMHTMLIFrameElementSetScrollingMethodInfo -data DOMHTMLIFrameElementSetSrcMethodInfo -data DOMHTMLIFrameElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs +++ /dev/null @@ -1,2078 +0,0 @@ - - -{- | -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 - DOMHTMLImageElementGetAlignMethodInfo , - dOMHTMLImageElementGetAlign , - - --- ** dOMHTMLImageElementGetAlt - DOMHTMLImageElementGetAltMethodInfo , - dOMHTMLImageElementGetAlt , - - --- ** dOMHTMLImageElementGetBorder - DOMHTMLImageElementGetBorderMethodInfo , - dOMHTMLImageElementGetBorder , - - --- ** dOMHTMLImageElementGetComplete - DOMHTMLImageElementGetCompleteMethodInfo, - dOMHTMLImageElementGetComplete , - - --- ** dOMHTMLImageElementGetHeight - DOMHTMLImageElementGetHeightMethodInfo , - dOMHTMLImageElementGetHeight , - - --- ** dOMHTMLImageElementGetHspace - DOMHTMLImageElementGetHspaceMethodInfo , - dOMHTMLImageElementGetHspace , - - --- ** dOMHTMLImageElementGetIsMap - DOMHTMLImageElementGetIsMapMethodInfo , - dOMHTMLImageElementGetIsMap , - - --- ** dOMHTMLImageElementGetLongDesc - DOMHTMLImageElementGetLongDescMethodInfo, - dOMHTMLImageElementGetLongDesc , - - --- ** dOMHTMLImageElementGetLowsrc - DOMHTMLImageElementGetLowsrcMethodInfo , - dOMHTMLImageElementGetLowsrc , - - --- ** dOMHTMLImageElementGetName - DOMHTMLImageElementGetNameMethodInfo , - dOMHTMLImageElementGetName , - - --- ** dOMHTMLImageElementGetNaturalHeight - DOMHTMLImageElementGetNaturalHeightMethodInfo, - dOMHTMLImageElementGetNaturalHeight , - - --- ** dOMHTMLImageElementGetNaturalWidth - DOMHTMLImageElementGetNaturalWidthMethodInfo, - dOMHTMLImageElementGetNaturalWidth , - - --- ** dOMHTMLImageElementGetSrc - DOMHTMLImageElementGetSrcMethodInfo , - dOMHTMLImageElementGetSrc , - - --- ** dOMHTMLImageElementGetUseMap - DOMHTMLImageElementGetUseMapMethodInfo , - dOMHTMLImageElementGetUseMap , - - --- ** dOMHTMLImageElementGetVspace - DOMHTMLImageElementGetVspaceMethodInfo , - dOMHTMLImageElementGetVspace , - - --- ** dOMHTMLImageElementGetWidth - DOMHTMLImageElementGetWidthMethodInfo , - dOMHTMLImageElementGetWidth , - - --- ** dOMHTMLImageElementGetX - DOMHTMLImageElementGetXMethodInfo , - dOMHTMLImageElementGetX , - - --- ** dOMHTMLImageElementGetY - DOMHTMLImageElementGetYMethodInfo , - dOMHTMLImageElementGetY , - - --- ** dOMHTMLImageElementSetAlign - DOMHTMLImageElementSetAlignMethodInfo , - dOMHTMLImageElementSetAlign , - - --- ** dOMHTMLImageElementSetAlt - DOMHTMLImageElementSetAltMethodInfo , - dOMHTMLImageElementSetAlt , - - --- ** dOMHTMLImageElementSetBorder - DOMHTMLImageElementSetBorderMethodInfo , - dOMHTMLImageElementSetBorder , - - --- ** dOMHTMLImageElementSetHeight - DOMHTMLImageElementSetHeightMethodInfo , - dOMHTMLImageElementSetHeight , - - --- ** dOMHTMLImageElementSetHspace - DOMHTMLImageElementSetHspaceMethodInfo , - dOMHTMLImageElementSetHspace , - - --- ** dOMHTMLImageElementSetIsMap - DOMHTMLImageElementSetIsMapMethodInfo , - dOMHTMLImageElementSetIsMap , - - --- ** dOMHTMLImageElementSetLongDesc - DOMHTMLImageElementSetLongDescMethodInfo, - dOMHTMLImageElementSetLongDesc , - - --- ** dOMHTMLImageElementSetLowsrc - DOMHTMLImageElementSetLowsrcMethodInfo , - dOMHTMLImageElementSetLowsrc , - - --- ** dOMHTMLImageElementSetName - DOMHTMLImageElementSetNameMethodInfo , - dOMHTMLImageElementSetName , - - --- ** dOMHTMLImageElementSetSrc - DOMHTMLImageElementSetSrcMethodInfo , - dOMHTMLImageElementSetSrc , - - --- ** dOMHTMLImageElementSetUseMap - DOMHTMLImageElementSetUseMapMethodInfo , - dOMHTMLImageElementSetUseMap , - - --- ** dOMHTMLImageElementSetVspace - DOMHTMLImageElementSetVspaceMethodInfo , - dOMHTMLImageElementSetVspace , - - --- ** dOMHTMLImageElementSetWidth - DOMHTMLImageElementSetWidthMethodInfo , - dOMHTMLImageElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLImageElementAlignPropertyInfo , - constructDOMHTMLImageElementAlign , - dOMHTMLImageElementAlign , - getDOMHTMLImageElementAlign , - setDOMHTMLImageElementAlign , - - --- ** Alt - DOMHTMLImageElementAltPropertyInfo , - constructDOMHTMLImageElementAlt , - dOMHTMLImageElementAlt , - getDOMHTMLImageElementAlt , - setDOMHTMLImageElementAlt , - - --- ** Border - DOMHTMLImageElementBorderPropertyInfo , - constructDOMHTMLImageElementBorder , - dOMHTMLImageElementBorder , - getDOMHTMLImageElementBorder , - setDOMHTMLImageElementBorder , - - --- ** Complete - DOMHTMLImageElementCompletePropertyInfo , - dOMHTMLImageElementComplete , - getDOMHTMLImageElementComplete , - - --- ** CrossOrigin - DOMHTMLImageElementCrossOriginPropertyInfo, - clearDOMHTMLImageElementCrossOrigin , - constructDOMHTMLImageElementCrossOrigin , - dOMHTMLImageElementCrossOrigin , - getDOMHTMLImageElementCrossOrigin , - setDOMHTMLImageElementCrossOrigin , - - --- ** CurrentSrc - DOMHTMLImageElementCurrentSrcPropertyInfo, - dOMHTMLImageElementCurrentSrc , - getDOMHTMLImageElementCurrentSrc , - - --- ** Height - DOMHTMLImageElementHeightPropertyInfo , - constructDOMHTMLImageElementHeight , - dOMHTMLImageElementHeight , - getDOMHTMLImageElementHeight , - setDOMHTMLImageElementHeight , - - --- ** Hspace - DOMHTMLImageElementHspacePropertyInfo , - constructDOMHTMLImageElementHspace , - dOMHTMLImageElementHspace , - getDOMHTMLImageElementHspace , - setDOMHTMLImageElementHspace , - - --- ** IsMap - DOMHTMLImageElementIsMapPropertyInfo , - constructDOMHTMLImageElementIsMap , - dOMHTMLImageElementIsMap , - getDOMHTMLImageElementIsMap , - setDOMHTMLImageElementIsMap , - - --- ** LongDesc - DOMHTMLImageElementLongDescPropertyInfo , - constructDOMHTMLImageElementLongDesc , - dOMHTMLImageElementLongDesc , - getDOMHTMLImageElementLongDesc , - setDOMHTMLImageElementLongDesc , - - --- ** Lowsrc - DOMHTMLImageElementLowsrcPropertyInfo , - constructDOMHTMLImageElementLowsrc , - dOMHTMLImageElementLowsrc , - getDOMHTMLImageElementLowsrc , - setDOMHTMLImageElementLowsrc , - - --- ** Name - DOMHTMLImageElementNamePropertyInfo , - constructDOMHTMLImageElementName , - dOMHTMLImageElementName , - getDOMHTMLImageElementName , - setDOMHTMLImageElementName , - - --- ** NaturalHeight - DOMHTMLImageElementNaturalHeightPropertyInfo, - dOMHTMLImageElementNaturalHeight , - getDOMHTMLImageElementNaturalHeight , - - --- ** NaturalWidth - DOMHTMLImageElementNaturalWidthPropertyInfo, - dOMHTMLImageElementNaturalWidth , - getDOMHTMLImageElementNaturalWidth , - - --- ** Sizes - DOMHTMLImageElementSizesPropertyInfo , - clearDOMHTMLImageElementSizes , - constructDOMHTMLImageElementSizes , - dOMHTMLImageElementSizes , - getDOMHTMLImageElementSizes , - setDOMHTMLImageElementSizes , - - --- ** Src - DOMHTMLImageElementSrcPropertyInfo , - constructDOMHTMLImageElementSrc , - dOMHTMLImageElementSrc , - getDOMHTMLImageElementSrc , - setDOMHTMLImageElementSrc , - - --- ** Srcset - DOMHTMLImageElementSrcsetPropertyInfo , - clearDOMHTMLImageElementSrcset , - constructDOMHTMLImageElementSrcset , - dOMHTMLImageElementSrcset , - getDOMHTMLImageElementSrcset , - setDOMHTMLImageElementSrcset , - - --- ** UseMap - DOMHTMLImageElementUseMapPropertyInfo , - constructDOMHTMLImageElementUseMap , - dOMHTMLImageElementUseMap , - getDOMHTMLImageElementUseMap , - setDOMHTMLImageElementUseMap , - - --- ** Vspace - DOMHTMLImageElementVspacePropertyInfo , - constructDOMHTMLImageElementVspace , - dOMHTMLImageElementVspace , - getDOMHTMLImageElementVspace , - setDOMHTMLImageElementVspace , - - --- ** Width - DOMHTMLImageElementWidthPropertyInfo , - constructDOMHTMLImageElementWidth , - dOMHTMLImageElementWidth , - getDOMHTMLImageElementWidth , - setDOMHTMLImageElementWidth , - - --- ** X - DOMHTMLImageElementXPropertyInfo , - dOMHTMLImageElementX , - getDOMHTMLImageElementX , - - --- ** Y - DOMHTMLImageElementYPropertyInfo , - dOMHTMLImageElementY , - getDOMHTMLImageElementY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLImageElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLImageElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLImageElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLImageElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLImageElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLImageElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLImageElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLImageElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLImageElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLImageElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLImageElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLImageElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLImageElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLImageElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLImageElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLImageElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLImageElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLImageElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLImageElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLImageElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLImageElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLImageElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLImageElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLImageElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLImageElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLImageElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLImageElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLImageElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLImageElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLImageElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLImageElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLImageElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLImageElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLImageElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLImageElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLImageElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLImageElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLImageElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLImageElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLImageElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLImageElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLImageElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLImageElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLImageElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLImageElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLImageElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLImageElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLImageElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLImageElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLImageElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLImageElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLImageElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLImageElementMethod "getAlign" o = DOMHTMLImageElementGetAlignMethodInfo - ResolveDOMHTMLImageElementMethod "getAlt" o = DOMHTMLImageElementGetAltMethodInfo - ResolveDOMHTMLImageElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLImageElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLImageElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLImageElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLImageElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLImageElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLImageElementMethod "getBorder" o = DOMHTMLImageElementGetBorderMethodInfo - ResolveDOMHTMLImageElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLImageElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLImageElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLImageElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLImageElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLImageElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLImageElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLImageElementMethod "getComplete" o = DOMHTMLImageElementGetCompleteMethodInfo - ResolveDOMHTMLImageElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLImageElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLImageElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLImageElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLImageElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLImageElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLImageElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLImageElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLImageElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLImageElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLImageElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLImageElementMethod "getHeight" o = DOMHTMLImageElementGetHeightMethodInfo - ResolveDOMHTMLImageElementMethod "getHspace" o = DOMHTMLImageElementGetHspaceMethodInfo - ResolveDOMHTMLImageElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLImageElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLImageElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLImageElementMethod "getIsMap" o = DOMHTMLImageElementGetIsMapMethodInfo - ResolveDOMHTMLImageElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLImageElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLImageElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLImageElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLImageElementMethod "getLongDesc" o = DOMHTMLImageElementGetLongDescMethodInfo - ResolveDOMHTMLImageElementMethod "getLowsrc" o = DOMHTMLImageElementGetLowsrcMethodInfo - ResolveDOMHTMLImageElementMethod "getName" o = DOMHTMLImageElementGetNameMethodInfo - ResolveDOMHTMLImageElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLImageElementMethod "getNaturalHeight" o = DOMHTMLImageElementGetNaturalHeightMethodInfo - ResolveDOMHTMLImageElementMethod "getNaturalWidth" o = DOMHTMLImageElementGetNaturalWidthMethodInfo - ResolveDOMHTMLImageElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLImageElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLImageElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLImageElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLImageElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLImageElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLImageElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLImageElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLImageElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLImageElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLImageElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLImageElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLImageElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLImageElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLImageElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLImageElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLImageElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLImageElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLImageElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLImageElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLImageElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLImageElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLImageElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLImageElementMethod "getSrc" o = DOMHTMLImageElementGetSrcMethodInfo - ResolveDOMHTMLImageElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLImageElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLImageElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLImageElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLImageElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLImageElementMethod "getUseMap" o = DOMHTMLImageElementGetUseMapMethodInfo - ResolveDOMHTMLImageElementMethod "getVspace" o = DOMHTMLImageElementGetVspaceMethodInfo - ResolveDOMHTMLImageElementMethod "getWidth" o = DOMHTMLImageElementGetWidthMethodInfo - ResolveDOMHTMLImageElementMethod "getX" o = DOMHTMLImageElementGetXMethodInfo - ResolveDOMHTMLImageElementMethod "getY" o = DOMHTMLImageElementGetYMethodInfo - ResolveDOMHTMLImageElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLImageElementMethod "setAlign" o = DOMHTMLImageElementSetAlignMethodInfo - ResolveDOMHTMLImageElementMethod "setAlt" o = DOMHTMLImageElementSetAltMethodInfo - ResolveDOMHTMLImageElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLImageElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLImageElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLImageElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLImageElementMethod "setBorder" o = DOMHTMLImageElementSetBorderMethodInfo - ResolveDOMHTMLImageElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLImageElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLImageElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLImageElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLImageElementMethod "setHeight" o = DOMHTMLImageElementSetHeightMethodInfo - ResolveDOMHTMLImageElementMethod "setHspace" o = DOMHTMLImageElementSetHspaceMethodInfo - ResolveDOMHTMLImageElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLImageElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLImageElementMethod "setIsMap" o = DOMHTMLImageElementSetIsMapMethodInfo - ResolveDOMHTMLImageElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLImageElementMethod "setLongDesc" o = DOMHTMLImageElementSetLongDescMethodInfo - ResolveDOMHTMLImageElementMethod "setLowsrc" o = DOMHTMLImageElementSetLowsrcMethodInfo - ResolveDOMHTMLImageElementMethod "setName" o = DOMHTMLImageElementSetNameMethodInfo - ResolveDOMHTMLImageElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLImageElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLImageElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLImageElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLImageElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLImageElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLImageElementMethod "setSrc" o = DOMHTMLImageElementSetSrcMethodInfo - ResolveDOMHTMLImageElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLImageElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLImageElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLImageElementMethod "setUseMap" o = DOMHTMLImageElementSetUseMapMethodInfo - ResolveDOMHTMLImageElementMethod "setVspace" o = DOMHTMLImageElementSetVspaceMethodInfo - ResolveDOMHTMLImageElementMethod "setWidth" o = DOMHTMLImageElementSetWidthMethodInfo - ResolveDOMHTMLImageElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLImageElementMethod t DOMHTMLImageElement, MethodInfo info DOMHTMLImageElement p) => IsLabelProxy t (DOMHTMLImageElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLImageElementMethod t DOMHTMLImageElement, MethodInfo info DOMHTMLImageElement p) => IsLabel t (DOMHTMLImageElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLImageElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLImageElementAlign - attrSet _ = setDOMHTMLImageElementAlign - attrConstruct _ = constructDOMHTMLImageElementAlign - attrClear _ = undefined - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) - -constructDOMHTMLImageElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementAlt val = constructObjectPropertyString "alt" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementAltPropertyInfo = "alt" - attrGet _ = getDOMHTMLImageElementAlt - attrSet _ = setDOMHTMLImageElementAlt - attrConstruct _ = constructDOMHTMLImageElementAlt - attrClear _ = undefined - --- VVV Prop "border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementBorder obj = liftIO $ getObjectPropertyString obj "border" - -setDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementBorder obj val = liftIO $ setObjectPropertyString obj "border" (Just val) - -constructDOMHTMLImageElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementBorder val = constructObjectPropertyString "border" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementBorderPropertyInfo = "border" - attrGet _ = getDOMHTMLImageElementBorder - attrSet _ = setDOMHTMLImageElementBorder - attrConstruct _ = constructDOMHTMLImageElementBorder - attrClear _ = undefined - --- VVV Prop "complete" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "complete" - attrGet _ = getDOMHTMLImageElementComplete - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "cross-origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLImageElementCrossOrigin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementCrossOrigin val = constructObjectPropertyString "cross-origin" (Just val) - -clearDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m () -clearDOMHTMLImageElementCrossOrigin obj = liftIO $ setObjectPropertyString obj "cross-origin" (Nothing :: Maybe T.Text) - -data DOMHTMLImageElementCrossOriginPropertyInfo -instance AttrInfo DOMHTMLImageElementCrossOriginPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementCrossOriginPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementCrossOriginPropertyInfo = "cross-origin" - attrGet _ = getDOMHTMLImageElementCrossOrigin - attrSet _ = setDOMHTMLImageElementCrossOrigin - attrConstruct _ = constructDOMHTMLImageElementCrossOrigin - attrClear _ = clearDOMHTMLImageElementCrossOrigin - --- VVV Prop "current-src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLImageElementCurrentSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src" - -data DOMHTMLImageElementCurrentSrcPropertyInfo -instance AttrInfo DOMHTMLImageElementCurrentSrcPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementCurrentSrcPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLImageElementCurrentSrcPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementCurrentSrcPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementCurrentSrcPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementCurrentSrcPropertyInfo = "current-src" - attrGet _ = getDOMHTMLImageElementCurrentSrc - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementHeight obj = liftIO $ getObjectPropertyLong obj "height" - -setDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () -setDOMHTMLImageElementHeight obj val = liftIO $ setObjectPropertyLong obj "height" val - -constructDOMHTMLImageElementHeight :: CLong -> IO ([Char], GValue) -constructDOMHTMLImageElementHeight val = constructObjectPropertyLong "height" val - -data DOMHTMLImageElementHeightPropertyInfo -instance AttrInfo DOMHTMLImageElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementHeightPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLImageElementHeightPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementHeightPropertyInfo = CLong - type AttrLabel DOMHTMLImageElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLImageElementHeight - attrSet _ = setDOMHTMLImageElementHeight - attrConstruct _ = constructDOMHTMLImageElementHeight - attrClear _ = undefined - --- VVV Prop "hspace" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementHspace obj = liftIO $ getObjectPropertyLong obj "hspace" - -setDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () -setDOMHTMLImageElementHspace obj val = liftIO $ setObjectPropertyLong obj "hspace" val - -constructDOMHTMLImageElementHspace :: CLong -> IO ([Char], GValue) -constructDOMHTMLImageElementHspace val = constructObjectPropertyLong "hspace" val - -data DOMHTMLImageElementHspacePropertyInfo -instance AttrInfo DOMHTMLImageElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLImageElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementHspacePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLImageElementHspacePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementHspacePropertyInfo = CLong - type AttrLabel DOMHTMLImageElementHspacePropertyInfo = "hspace" - attrGet _ = getDOMHTMLImageElementHspace - attrSet _ = setDOMHTMLImageElementHspace - attrConstruct _ = constructDOMHTMLImageElementHspace - attrClear _ = undefined - --- VVV Prop "is-map" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "is-map" - attrGet _ = getDOMHTMLImageElementIsMap - attrSet _ = setDOMHTMLImageElementIsMap - attrConstruct _ = constructDOMHTMLImageElementIsMap - attrClear _ = undefined - --- VVV Prop "long-desc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLImageElementLongDesc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementLongDesc val = constructObjectPropertyString "long-desc" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementLongDescPropertyInfo = "long-desc" - attrGet _ = getDOMHTMLImageElementLongDesc - attrSet _ = setDOMHTMLImageElementLongDesc - attrConstruct _ = constructDOMHTMLImageElementLongDesc - attrClear _ = undefined - --- VVV Prop "lowsrc" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementLowsrc obj = liftIO $ getObjectPropertyString obj "lowsrc" - -setDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementLowsrc obj val = liftIO $ setObjectPropertyString obj "lowsrc" (Just val) - -constructDOMHTMLImageElementLowsrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementLowsrc val = constructObjectPropertyString "lowsrc" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementLowsrcPropertyInfo = "lowsrc" - attrGet _ = getDOMHTMLImageElementLowsrc - attrSet _ = setDOMHTMLImageElementLowsrc - attrConstruct _ = constructDOMHTMLImageElementLowsrc - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLImageElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLImageElementName - attrSet _ = setDOMHTMLImageElementName - attrConstruct _ = constructDOMHTMLImageElementName - attrClear _ = undefined - --- VVV Prop "natural-height" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLImageElementNaturalHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementNaturalHeight obj = liftIO $ getObjectPropertyLong obj "natural-height" - -data DOMHTMLImageElementNaturalHeightPropertyInfo -instance AttrInfo DOMHTMLImageElementNaturalHeightPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementNaturalHeightPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNaturalHeightPropertyInfo = CLong - type AttrLabel DOMHTMLImageElementNaturalHeightPropertyInfo = "natural-height" - attrGet _ = getDOMHTMLImageElementNaturalHeight - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "natural-width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLImageElementNaturalWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementNaturalWidth obj = liftIO $ getObjectPropertyLong obj "natural-width" - -data DOMHTMLImageElementNaturalWidthPropertyInfo -instance AttrInfo DOMHTMLImageElementNaturalWidthPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementNaturalWidthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementNaturalWidthPropertyInfo = CLong - type AttrLabel DOMHTMLImageElementNaturalWidthPropertyInfo = "natural-width" - attrGet _ = getDOMHTMLImageElementNaturalWidth - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "sizes" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementSizes obj = liftIO $ getObjectPropertyString obj "sizes" - -setDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSizes obj val = liftIO $ setObjectPropertyString obj "sizes" (Just val) - -constructDOMHTMLImageElementSizes :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSizes val = constructObjectPropertyString "sizes" (Just val) - -clearDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> m () -clearDOMHTMLImageElementSizes obj = liftIO $ setObjectPropertyString obj "sizes" (Nothing :: Maybe T.Text) - -data DOMHTMLImageElementSizesPropertyInfo -instance AttrInfo DOMHTMLImageElementSizesPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLImageElementSizesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementSizesPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementSizesPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementSizesPropertyInfo = "sizes" - attrGet _ = getDOMHTMLImageElementSizes - attrSet _ = setDOMHTMLImageElementSizes - attrConstruct _ = constructDOMHTMLImageElementSizes - attrClear _ = clearDOMHTMLImageElementSizes - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) - -constructDOMHTMLImageElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSrc val = constructObjectPropertyString "src" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementSrcPropertyInfo = "src" - attrGet _ = getDOMHTMLImageElementSrc - attrSet _ = setDOMHTMLImageElementSrc - attrConstruct _ = constructDOMHTMLImageElementSrc - attrClear _ = undefined - --- VVV Prop "srcset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe T.Text) -getDOMHTMLImageElementSrcset obj = liftIO $ getObjectPropertyString obj "srcset" - -setDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () -setDOMHTMLImageElementSrcset obj val = liftIO $ setObjectPropertyString obj "srcset" (Just val) - -constructDOMHTMLImageElementSrcset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementSrcset val = constructObjectPropertyString "srcset" (Just val) - -clearDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m () -clearDOMHTMLImageElementSrcset obj = liftIO $ setObjectPropertyString obj "srcset" (Nothing :: Maybe T.Text) - -data DOMHTMLImageElementSrcsetPropertyInfo -instance AttrInfo DOMHTMLImageElementSrcsetPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementSrcsetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementSrcsetPropertyInfo = "srcset" - attrGet _ = getDOMHTMLImageElementSrcset - attrSet _ = setDOMHTMLImageElementSrcset - attrConstruct _ = constructDOMHTMLImageElementSrcset - attrClear _ = clearDOMHTMLImageElementSrcset - --- VVV Prop "use-map" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLImageElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLImageElementUseMap val = constructObjectPropertyString "use-map" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLImageElementUseMapPropertyInfo = "use-map" - attrGet _ = getDOMHTMLImageElementUseMap - attrSet _ = setDOMHTMLImageElementUseMap - attrConstruct _ = constructDOMHTMLImageElementUseMap - attrClear _ = undefined - --- VVV Prop "vspace" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementVspace obj = liftIO $ getObjectPropertyLong obj "vspace" - -setDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () -setDOMHTMLImageElementVspace obj val = liftIO $ setObjectPropertyLong obj "vspace" val - -constructDOMHTMLImageElementVspace :: CLong -> IO ([Char], GValue) -constructDOMHTMLImageElementVspace val = constructObjectPropertyLong "vspace" val - -data DOMHTMLImageElementVspacePropertyInfo -instance AttrInfo DOMHTMLImageElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLImageElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementVspacePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLImageElementVspacePropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementVspacePropertyInfo = CLong - type AttrLabel DOMHTMLImageElementVspacePropertyInfo = "vspace" - attrGet _ = getDOMHTMLImageElementVspace - attrSet _ = setDOMHTMLImageElementVspace - attrConstruct _ = constructDOMHTMLImageElementVspace - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementWidth obj = liftIO $ getObjectPropertyLong obj "width" - -setDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> CLong -> m () -setDOMHTMLImageElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val - -constructDOMHTMLImageElementWidth :: CLong -> IO ([Char], GValue) -constructDOMHTMLImageElementWidth val = constructObjectPropertyLong "width" val - -data DOMHTMLImageElementWidthPropertyInfo -instance AttrInfo DOMHTMLImageElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementWidthPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLImageElementWidthPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementWidthPropertyInfo = CLong - type AttrLabel DOMHTMLImageElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLImageElementWidth - attrSet _ = setDOMHTMLImageElementWidth - attrConstruct _ = constructDOMHTMLImageElementWidth - attrClear _ = undefined - --- VVV Prop "x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLImageElementX :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementX obj = liftIO $ getObjectPropertyLong obj "x" - -data DOMHTMLImageElementXPropertyInfo -instance AttrInfo DOMHTMLImageElementXPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementXPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementXPropertyInfo = CLong - type AttrLabel DOMHTMLImageElementXPropertyInfo = "x" - attrGet _ = getDOMHTMLImageElementX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLImageElementY :: (MonadIO m, DOMHTMLImageElementK o) => o -> m CLong -getDOMHTMLImageElementY obj = liftIO $ getObjectPropertyLong obj "y" - -data DOMHTMLImageElementYPropertyInfo -instance AttrInfo DOMHTMLImageElementYPropertyInfo where - type AttrAllowedOps DOMHTMLImageElementYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLImageElementYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLImageElementYPropertyInfo = DOMHTMLImageElementK - type AttrGetType DOMHTMLImageElementYPropertyInfo = CLong - type AttrLabel DOMHTMLImageElementYPropertyInfo = "y" - attrGet _ = getDOMHTMLImageElementY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLImageElement = DOMHTMLImageElementAttributeList -type DOMHTMLImageElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLImageElementAlignPropertyInfo), '("alt", DOMHTMLImageElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLImageElementBorderPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("crossOrigin", DOMHTMLImageElementCrossOriginPropertyInfo), '("currentSrc", DOMHTMLImageElementCurrentSrcPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("isMap", DOMHTMLImageElementIsMapPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("longDesc", DOMHTMLImageElementLongDescPropertyInfo), '("lowsrc", DOMHTMLImageElementLowsrcPropertyInfo), '("name", DOMHTMLImageElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("naturalHeight", DOMHTMLImageElementNaturalHeightPropertyInfo), '("naturalWidth", DOMHTMLImageElementNaturalWidthPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sizes", DOMHTMLImageElementSizesPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLImageElementSrcPropertyInfo), '("srcset", DOMHTMLImageElementSrcsetPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("useMap", DOMHTMLImageElementUseMapPropertyInfo), '("vspace", DOMHTMLImageElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLImageElementWidthPropertyInfo), '("x", DOMHTMLImageElementXPropertyInfo), '("y", DOMHTMLImageElementYPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLImageElementAlign :: AttrLabelProxy "align" -dOMHTMLImageElementAlign = AttrLabelProxy - -dOMHTMLImageElementAlt :: AttrLabelProxy "alt" -dOMHTMLImageElementAlt = AttrLabelProxy - -dOMHTMLImageElementBorder :: AttrLabelProxy "border" -dOMHTMLImageElementBorder = AttrLabelProxy - -dOMHTMLImageElementComplete :: AttrLabelProxy "complete" -dOMHTMLImageElementComplete = AttrLabelProxy - -dOMHTMLImageElementCrossOrigin :: AttrLabelProxy "crossOrigin" -dOMHTMLImageElementCrossOrigin = AttrLabelProxy - -dOMHTMLImageElementCurrentSrc :: AttrLabelProxy "currentSrc" -dOMHTMLImageElementCurrentSrc = AttrLabelProxy - -dOMHTMLImageElementHeight :: AttrLabelProxy "height" -dOMHTMLImageElementHeight = AttrLabelProxy - -dOMHTMLImageElementHspace :: AttrLabelProxy "hspace" -dOMHTMLImageElementHspace = AttrLabelProxy - -dOMHTMLImageElementIsMap :: AttrLabelProxy "isMap" -dOMHTMLImageElementIsMap = AttrLabelProxy - -dOMHTMLImageElementLongDesc :: AttrLabelProxy "longDesc" -dOMHTMLImageElementLongDesc = AttrLabelProxy - -dOMHTMLImageElementLowsrc :: AttrLabelProxy "lowsrc" -dOMHTMLImageElementLowsrc = AttrLabelProxy - -dOMHTMLImageElementName :: AttrLabelProxy "name" -dOMHTMLImageElementName = AttrLabelProxy - -dOMHTMLImageElementNaturalHeight :: AttrLabelProxy "naturalHeight" -dOMHTMLImageElementNaturalHeight = AttrLabelProxy - -dOMHTMLImageElementNaturalWidth :: AttrLabelProxy "naturalWidth" -dOMHTMLImageElementNaturalWidth = AttrLabelProxy - -dOMHTMLImageElementSizes :: AttrLabelProxy "sizes" -dOMHTMLImageElementSizes = AttrLabelProxy - -dOMHTMLImageElementSrc :: AttrLabelProxy "src" -dOMHTMLImageElementSrc = AttrLabelProxy - -dOMHTMLImageElementSrcset :: AttrLabelProxy "srcset" -dOMHTMLImageElementSrcset = AttrLabelProxy - -dOMHTMLImageElementUseMap :: AttrLabelProxy "useMap" -dOMHTMLImageElementUseMap = AttrLabelProxy - -dOMHTMLImageElementVspace :: AttrLabelProxy "vspace" -dOMHTMLImageElementVspace = AttrLabelProxy - -dOMHTMLImageElementWidth :: AttrLabelProxy "width" -dOMHTMLImageElementWidth = AttrLabelProxy - -dOMHTMLImageElementX :: AttrLabelProxy "x" -dOMHTMLImageElementX = AttrLabelProxy - -dOMHTMLImageElementY :: AttrLabelProxy "y" -dOMHTMLImageElementY = AttrLabelProxy - -type instance SignalList DOMHTMLImageElement = DOMHTMLImageElementSignalList -type DOMHTMLImageElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLImageElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetAlign - --- method DOMHTMLImageElement::get_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetAltMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetAlt - --- method DOMHTMLImageElement::get_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetBorderMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetBorder - --- method DOMHTMLImageElement::get_complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetCompleteMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetCompleteMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetComplete - --- method DOMHTMLImageElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetHeight :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_height _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetHeightMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetHeight - --- method DOMHTMLImageElement::get_hspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetHspace :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetHspace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_hspace _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetHspaceMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetHspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetHspace - --- method DOMHTMLImageElement::get_is_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetIsMapMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetIsMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetIsMap - --- method DOMHTMLImageElement::get_long_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetLongDescMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetLongDescMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetLongDesc - --- method DOMHTMLImageElement::get_lowsrc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetLowsrcMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetLowsrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetLowsrc - --- method DOMHTMLImageElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetName - --- method DOMHTMLImageElement::get_natural_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetNaturalHeight :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetNaturalHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_natural_height _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetNaturalHeightMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetNaturalHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetNaturalHeight - --- method DOMHTMLImageElement::get_natural_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetNaturalWidth :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetNaturalWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_natural_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetNaturalWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetNaturalWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetNaturalWidth - --- method DOMHTMLImageElement::get_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetSrcMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetSrc - --- method DOMHTMLImageElement::get_use_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLImageElementGetUseMapMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetUseMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetUseMap - --- method DOMHTMLImageElement::get_vspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetVspace :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetVspace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_vspace _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetVspaceMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetVspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetVspace - --- method DOMHTMLImageElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetWidth :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetWidth - --- method DOMHTMLImageElement::get_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetX :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_x _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetXMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetX - --- method DOMHTMLImageElement::get_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLImageElementGetY :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLImageElementGetY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_image_element_get_y _obj' - touchManagedPtr _obj - return result - -data DOMHTMLImageElementGetYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementGetYMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementGetY - --- method DOMHTMLImageElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetAlign - --- method DOMHTMLImageElement::set_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetAltMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetAlt - --- method DOMHTMLImageElement::set_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetBorderMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetBorder - --- method DOMHTMLImageElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLImageElementSetHeight :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLImageElementSetHeight _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_image_element_set_height _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLImageElementSetHeightMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetHeight - --- method DOMHTMLImageElement::set_hspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLImageElementSetHspace :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLImageElementSetHspace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_image_element_set_hspace _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLImageElementSetHspaceMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetHspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetHspace - --- method DOMHTMLImageElement::set_is_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetIsMapMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetIsMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetIsMap - --- method DOMHTMLImageElement::set_long_desc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetLongDescMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetLongDescMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetLongDesc - --- method DOMHTMLImageElement::set_lowsrc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetLowsrcMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetLowsrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetLowsrc - --- method DOMHTMLImageElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetName - --- method DOMHTMLImageElement::set_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetSrcMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetSrc - --- method DOMHTMLImageElement::set_use_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLImageElementSetUseMapMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetUseMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetUseMap - --- method DOMHTMLImageElement::set_vspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLImageElementSetVspace :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLImageElementSetVspace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_image_element_set_vspace _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLImageElementSetVspaceMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetVspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetVspace - --- method DOMHTMLImageElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLImageElementSetWidth :: - (MonadIO m, DOMHTMLImageElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLImageElementSetWidth _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_image_element_set_width _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLImageElementSetWidthMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLImageElementK a) => MethodInfo DOMHTMLImageElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLImageElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot +++ /dev/null @@ -1,66 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLImageElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLImageElementGetAlignMethodInfo -data DOMHTMLImageElementGetAltMethodInfo -data DOMHTMLImageElementGetBorderMethodInfo -data DOMHTMLImageElementGetCompleteMethodInfo -data DOMHTMLImageElementGetHeightMethodInfo -data DOMHTMLImageElementGetHspaceMethodInfo -data DOMHTMLImageElementGetIsMapMethodInfo -data DOMHTMLImageElementGetLongDescMethodInfo -data DOMHTMLImageElementGetLowsrcMethodInfo -data DOMHTMLImageElementGetNameMethodInfo -data DOMHTMLImageElementGetNaturalHeightMethodInfo -data DOMHTMLImageElementGetNaturalWidthMethodInfo -data DOMHTMLImageElementGetSrcMethodInfo -data DOMHTMLImageElementGetUseMapMethodInfo -data DOMHTMLImageElementGetVspaceMethodInfo -data DOMHTMLImageElementGetWidthMethodInfo -data DOMHTMLImageElementGetXMethodInfo -data DOMHTMLImageElementGetYMethodInfo -data DOMHTMLImageElementSetAlignMethodInfo -data DOMHTMLImageElementSetAltMethodInfo -data DOMHTMLImageElementSetBorderMethodInfo -data DOMHTMLImageElementSetHeightMethodInfo -data DOMHTMLImageElementSetHspaceMethodInfo -data DOMHTMLImageElementSetIsMapMethodInfo -data DOMHTMLImageElementSetLongDescMethodInfo -data DOMHTMLImageElementSetLowsrcMethodInfo -data DOMHTMLImageElementSetNameMethodInfo -data DOMHTMLImageElementSetSrcMethodInfo -data DOMHTMLImageElementSetUseMapMethodInfo -data DOMHTMLImageElementSetVspaceMethodInfo -data DOMHTMLImageElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs +++ /dev/null @@ -1,3441 +0,0 @@ - - -{- | -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 - DOMHTMLInputElementGetAcceptMethodInfo , - dOMHTMLInputElementGetAccept , - - --- ** dOMHTMLInputElementGetAlign - DOMHTMLInputElementGetAlignMethodInfo , - dOMHTMLInputElementGetAlign , - - --- ** dOMHTMLInputElementGetAlt - DOMHTMLInputElementGetAltMethodInfo , - dOMHTMLInputElementGetAlt , - - --- ** dOMHTMLInputElementGetAutofocus - DOMHTMLInputElementGetAutofocusMethodInfo, - dOMHTMLInputElementGetAutofocus , - - --- ** dOMHTMLInputElementGetCapture - DOMHTMLInputElementGetCaptureMethodInfo , - dOMHTMLInputElementGetCapture , - - --- ** dOMHTMLInputElementGetChecked - DOMHTMLInputElementGetCheckedMethodInfo , - dOMHTMLInputElementGetChecked , - - --- ** dOMHTMLInputElementGetDefaultChecked - DOMHTMLInputElementGetDefaultCheckedMethodInfo, - dOMHTMLInputElementGetDefaultChecked , - - --- ** dOMHTMLInputElementGetDefaultValue - DOMHTMLInputElementGetDefaultValueMethodInfo, - dOMHTMLInputElementGetDefaultValue , - - --- ** dOMHTMLInputElementGetDisabled - DOMHTMLInputElementGetDisabledMethodInfo, - dOMHTMLInputElementGetDisabled , - - --- ** dOMHTMLInputElementGetFiles - DOMHTMLInputElementGetFilesMethodInfo , - dOMHTMLInputElementGetFiles , - - --- ** dOMHTMLInputElementGetForm - DOMHTMLInputElementGetFormMethodInfo , - dOMHTMLInputElementGetForm , - - --- ** dOMHTMLInputElementGetHeight - DOMHTMLInputElementGetHeightMethodInfo , - dOMHTMLInputElementGetHeight , - - --- ** dOMHTMLInputElementGetIndeterminate - DOMHTMLInputElementGetIndeterminateMethodInfo, - dOMHTMLInputElementGetIndeterminate , - - --- ** dOMHTMLInputElementGetInputType - DOMHTMLInputElementGetInputTypeMethodInfo, - dOMHTMLInputElementGetInputType , - - --- ** dOMHTMLInputElementGetMaxLength - DOMHTMLInputElementGetMaxLengthMethodInfo, - dOMHTMLInputElementGetMaxLength , - - --- ** dOMHTMLInputElementGetMultiple - DOMHTMLInputElementGetMultipleMethodInfo, - dOMHTMLInputElementGetMultiple , - - --- ** dOMHTMLInputElementGetName - DOMHTMLInputElementGetNameMethodInfo , - dOMHTMLInputElementGetName , - - --- ** dOMHTMLInputElementGetSize - DOMHTMLInputElementGetSizeMethodInfo , - dOMHTMLInputElementGetSize , - - --- ** dOMHTMLInputElementGetSrc - DOMHTMLInputElementGetSrcMethodInfo , - dOMHTMLInputElementGetSrc , - - --- ** dOMHTMLInputElementGetUseMap - DOMHTMLInputElementGetUseMapMethodInfo , - dOMHTMLInputElementGetUseMap , - - --- ** dOMHTMLInputElementGetValue - DOMHTMLInputElementGetValueMethodInfo , - dOMHTMLInputElementGetValue , - - --- ** dOMHTMLInputElementGetWidth - DOMHTMLInputElementGetWidthMethodInfo , - dOMHTMLInputElementGetWidth , - - --- ** dOMHTMLInputElementGetWillValidate - DOMHTMLInputElementGetWillValidateMethodInfo, - dOMHTMLInputElementGetWillValidate , - - --- ** dOMHTMLInputElementIsEdited - DOMHTMLInputElementIsEditedMethodInfo , - dOMHTMLInputElementIsEdited , - - --- ** dOMHTMLInputElementSelect - DOMHTMLInputElementSelectMethodInfo , - dOMHTMLInputElementSelect , - - --- ** dOMHTMLInputElementSetAccept - DOMHTMLInputElementSetAcceptMethodInfo , - dOMHTMLInputElementSetAccept , - - --- ** dOMHTMLInputElementSetAlign - DOMHTMLInputElementSetAlignMethodInfo , - dOMHTMLInputElementSetAlign , - - --- ** dOMHTMLInputElementSetAlt - DOMHTMLInputElementSetAltMethodInfo , - dOMHTMLInputElementSetAlt , - - --- ** dOMHTMLInputElementSetAutofocus - DOMHTMLInputElementSetAutofocusMethodInfo, - dOMHTMLInputElementSetAutofocus , - - --- ** dOMHTMLInputElementSetChecked - DOMHTMLInputElementSetCheckedMethodInfo , - dOMHTMLInputElementSetChecked , - - --- ** dOMHTMLInputElementSetDefaultValue - DOMHTMLInputElementSetDefaultValueMethodInfo, - dOMHTMLInputElementSetDefaultValue , - - --- ** dOMHTMLInputElementSetDisabled - DOMHTMLInputElementSetDisabledMethodInfo, - dOMHTMLInputElementSetDisabled , - - --- ** dOMHTMLInputElementSetFiles - DOMHTMLInputElementSetFilesMethodInfo , - dOMHTMLInputElementSetFiles , - - --- ** dOMHTMLInputElementSetHeight - DOMHTMLInputElementSetHeightMethodInfo , - dOMHTMLInputElementSetHeight , - - --- ** dOMHTMLInputElementSetIndeterminate - DOMHTMLInputElementSetIndeterminateMethodInfo, - dOMHTMLInputElementSetIndeterminate , - - --- ** dOMHTMLInputElementSetInputType - DOMHTMLInputElementSetInputTypeMethodInfo, - dOMHTMLInputElementSetInputType , - - --- ** dOMHTMLInputElementSetMaxLength - DOMHTMLInputElementSetMaxLengthMethodInfo, - dOMHTMLInputElementSetMaxLength , - - --- ** dOMHTMLInputElementSetMultiple - DOMHTMLInputElementSetMultipleMethodInfo, - dOMHTMLInputElementSetMultiple , - - --- ** dOMHTMLInputElementSetName - DOMHTMLInputElementSetNameMethodInfo , - dOMHTMLInputElementSetName , - - --- ** dOMHTMLInputElementSetReadOnly - DOMHTMLInputElementSetReadOnlyMethodInfo, - dOMHTMLInputElementSetReadOnly , - - --- ** dOMHTMLInputElementSetSize - DOMHTMLInputElementSetSizeMethodInfo , - dOMHTMLInputElementSetSize , - - --- ** dOMHTMLInputElementSetSrc - DOMHTMLInputElementSetSrcMethodInfo , - dOMHTMLInputElementSetSrc , - - --- ** dOMHTMLInputElementSetUseMap - DOMHTMLInputElementSetUseMapMethodInfo , - dOMHTMLInputElementSetUseMap , - - --- ** dOMHTMLInputElementSetValue - DOMHTMLInputElementSetValueMethodInfo , - dOMHTMLInputElementSetValue , - - --- ** dOMHTMLInputElementSetWidth - DOMHTMLInputElementSetWidthMethodInfo , - dOMHTMLInputElementSetWidth , - - - - - -- * Properties --- ** Accept - DOMHTMLInputElementAcceptPropertyInfo , - constructDOMHTMLInputElementAccept , - dOMHTMLInputElementAccept , - getDOMHTMLInputElementAccept , - setDOMHTMLInputElementAccept , - - --- ** Align - DOMHTMLInputElementAlignPropertyInfo , - constructDOMHTMLInputElementAlign , - dOMHTMLInputElementAlign , - getDOMHTMLInputElementAlign , - setDOMHTMLInputElementAlign , - - --- ** Alt - DOMHTMLInputElementAltPropertyInfo , - constructDOMHTMLInputElementAlt , - dOMHTMLInputElementAlt , - getDOMHTMLInputElementAlt , - setDOMHTMLInputElementAlt , - - --- ** Autocapitalize - DOMHTMLInputElementAutocapitalizePropertyInfo, - clearDOMHTMLInputElementAutocapitalize , - constructDOMHTMLInputElementAutocapitalize, - dOMHTMLInputElementAutocapitalize , - getDOMHTMLInputElementAutocapitalize , - setDOMHTMLInputElementAutocapitalize , - - --- ** Autocomplete - DOMHTMLInputElementAutocompletePropertyInfo, - clearDOMHTMLInputElementAutocomplete , - constructDOMHTMLInputElementAutocomplete, - dOMHTMLInputElementAutocomplete , - getDOMHTMLInputElementAutocomplete , - setDOMHTMLInputElementAutocomplete , - - --- ** Autocorrect - DOMHTMLInputElementAutocorrectPropertyInfo, - constructDOMHTMLInputElementAutocorrect , - dOMHTMLInputElementAutocorrect , - getDOMHTMLInputElementAutocorrect , - setDOMHTMLInputElementAutocorrect , - - --- ** Autofocus - DOMHTMLInputElementAutofocusPropertyInfo, - constructDOMHTMLInputElementAutofocus , - dOMHTMLInputElementAutofocus , - getDOMHTMLInputElementAutofocus , - setDOMHTMLInputElementAutofocus , - - --- ** Capture - DOMHTMLInputElementCapturePropertyInfo , - constructDOMHTMLInputElementCapture , - dOMHTMLInputElementCapture , - getDOMHTMLInputElementCapture , - setDOMHTMLInputElementCapture , - - --- ** Checked - DOMHTMLInputElementCheckedPropertyInfo , - constructDOMHTMLInputElementChecked , - dOMHTMLInputElementChecked , - getDOMHTMLInputElementChecked , - setDOMHTMLInputElementChecked , - - --- ** DefaultChecked - DOMHTMLInputElementDefaultCheckedPropertyInfo, - constructDOMHTMLInputElementDefaultChecked, - dOMHTMLInputElementDefaultChecked , - getDOMHTMLInputElementDefaultChecked , - setDOMHTMLInputElementDefaultChecked , - - --- ** DefaultValue - DOMHTMLInputElementDefaultValuePropertyInfo, - constructDOMHTMLInputElementDefaultValue, - dOMHTMLInputElementDefaultValue , - getDOMHTMLInputElementDefaultValue , - setDOMHTMLInputElementDefaultValue , - - --- ** DirName - DOMHTMLInputElementDirNamePropertyInfo , - clearDOMHTMLInputElementDirName , - constructDOMHTMLInputElementDirName , - dOMHTMLInputElementDirName , - getDOMHTMLInputElementDirName , - setDOMHTMLInputElementDirName , - - --- ** Disabled - DOMHTMLInputElementDisabledPropertyInfo , - constructDOMHTMLInputElementDisabled , - dOMHTMLInputElementDisabled , - getDOMHTMLInputElementDisabled , - setDOMHTMLInputElementDisabled , - - --- ** Files - DOMHTMLInputElementFilesPropertyInfo , - dOMHTMLInputElementFiles , - getDOMHTMLInputElementFiles , - - --- ** Form - DOMHTMLInputElementFormPropertyInfo , - dOMHTMLInputElementForm , - getDOMHTMLInputElementForm , - - --- ** FormAction - DOMHTMLInputElementFormActionPropertyInfo, - clearDOMHTMLInputElementFormAction , - constructDOMHTMLInputElementFormAction , - dOMHTMLInputElementFormAction , - getDOMHTMLInputElementFormAction , - setDOMHTMLInputElementFormAction , - - --- ** FormEnctype - DOMHTMLInputElementFormEnctypePropertyInfo, - clearDOMHTMLInputElementFormEnctype , - constructDOMHTMLInputElementFormEnctype , - dOMHTMLInputElementFormEnctype , - getDOMHTMLInputElementFormEnctype , - setDOMHTMLInputElementFormEnctype , - - --- ** FormMethod - DOMHTMLInputElementFormMethodPropertyInfo, - clearDOMHTMLInputElementFormMethod , - constructDOMHTMLInputElementFormMethod , - dOMHTMLInputElementFormMethod , - getDOMHTMLInputElementFormMethod , - setDOMHTMLInputElementFormMethod , - - --- ** FormNoValidate - DOMHTMLInputElementFormNoValidatePropertyInfo, - constructDOMHTMLInputElementFormNoValidate, - dOMHTMLInputElementFormNoValidate , - getDOMHTMLInputElementFormNoValidate , - setDOMHTMLInputElementFormNoValidate , - - --- ** FormTarget - DOMHTMLInputElementFormTargetPropertyInfo, - clearDOMHTMLInputElementFormTarget , - constructDOMHTMLInputElementFormTarget , - dOMHTMLInputElementFormTarget , - getDOMHTMLInputElementFormTarget , - setDOMHTMLInputElementFormTarget , - - --- ** Height - DOMHTMLInputElementHeightPropertyInfo , - constructDOMHTMLInputElementHeight , - dOMHTMLInputElementHeight , - getDOMHTMLInputElementHeight , - setDOMHTMLInputElementHeight , - - --- ** Incremental - DOMHTMLInputElementIncrementalPropertyInfo, - constructDOMHTMLInputElementIncremental , - dOMHTMLInputElementIncremental , - getDOMHTMLInputElementIncremental , - setDOMHTMLInputElementIncremental , - - --- ** Indeterminate - DOMHTMLInputElementIndeterminatePropertyInfo, - constructDOMHTMLInputElementIndeterminate, - dOMHTMLInputElementIndeterminate , - getDOMHTMLInputElementIndeterminate , - setDOMHTMLInputElementIndeterminate , - - --- ** Labels - DOMHTMLInputElementLabelsPropertyInfo , - dOMHTMLInputElementLabels , - getDOMHTMLInputElementLabels , - - --- ** List - DOMHTMLInputElementListPropertyInfo , - dOMHTMLInputElementList , - getDOMHTMLInputElementList , - - --- ** Max - DOMHTMLInputElementMaxPropertyInfo , - clearDOMHTMLInputElementMax , - constructDOMHTMLInputElementMax , - dOMHTMLInputElementMax , - getDOMHTMLInputElementMax , - setDOMHTMLInputElementMax , - - --- ** MaxLength - DOMHTMLInputElementMaxLengthPropertyInfo, - constructDOMHTMLInputElementMaxLength , - dOMHTMLInputElementMaxLength , - getDOMHTMLInputElementMaxLength , - setDOMHTMLInputElementMaxLength , - - --- ** Min - DOMHTMLInputElementMinPropertyInfo , - clearDOMHTMLInputElementMin , - constructDOMHTMLInputElementMin , - dOMHTMLInputElementMin , - getDOMHTMLInputElementMin , - setDOMHTMLInputElementMin , - - --- ** Multiple - DOMHTMLInputElementMultiplePropertyInfo , - constructDOMHTMLInputElementMultiple , - dOMHTMLInputElementMultiple , - getDOMHTMLInputElementMultiple , - setDOMHTMLInputElementMultiple , - - --- ** Name - DOMHTMLInputElementNamePropertyInfo , - constructDOMHTMLInputElementName , - dOMHTMLInputElementName , - getDOMHTMLInputElementName , - setDOMHTMLInputElementName , - - --- ** Pattern - DOMHTMLInputElementPatternPropertyInfo , - clearDOMHTMLInputElementPattern , - constructDOMHTMLInputElementPattern , - dOMHTMLInputElementPattern , - getDOMHTMLInputElementPattern , - setDOMHTMLInputElementPattern , - - --- ** Placeholder - DOMHTMLInputElementPlaceholderPropertyInfo, - clearDOMHTMLInputElementPlaceholder , - constructDOMHTMLInputElementPlaceholder , - dOMHTMLInputElementPlaceholder , - getDOMHTMLInputElementPlaceholder , - setDOMHTMLInputElementPlaceholder , - - --- ** ReadOnly - DOMHTMLInputElementReadOnlyPropertyInfo , - constructDOMHTMLInputElementReadOnly , - dOMHTMLInputElementReadOnly , - getDOMHTMLInputElementReadOnly , - setDOMHTMLInputElementReadOnly , - - --- ** Required - DOMHTMLInputElementRequiredPropertyInfo , - constructDOMHTMLInputElementRequired , - dOMHTMLInputElementRequired , - getDOMHTMLInputElementRequired , - setDOMHTMLInputElementRequired , - - --- ** Size - DOMHTMLInputElementSizePropertyInfo , - constructDOMHTMLInputElementSize , - dOMHTMLInputElementSize , - getDOMHTMLInputElementSize , - setDOMHTMLInputElementSize , - - --- ** Src - DOMHTMLInputElementSrcPropertyInfo , - constructDOMHTMLInputElementSrc , - dOMHTMLInputElementSrc , - getDOMHTMLInputElementSrc , - setDOMHTMLInputElementSrc , - - --- ** Step - DOMHTMLInputElementStepPropertyInfo , - clearDOMHTMLInputElementStep , - constructDOMHTMLInputElementStep , - dOMHTMLInputElementStep , - getDOMHTMLInputElementStep , - setDOMHTMLInputElementStep , - - --- ** Type - DOMHTMLInputElementTypePropertyInfo , - clearDOMHTMLInputElementType , - constructDOMHTMLInputElementType , - dOMHTMLInputElementType , - getDOMHTMLInputElementType , - setDOMHTMLInputElementType , - - --- ** UseMap - DOMHTMLInputElementUseMapPropertyInfo , - constructDOMHTMLInputElementUseMap , - dOMHTMLInputElementUseMap , - getDOMHTMLInputElementUseMap , - setDOMHTMLInputElementUseMap , - - --- ** ValidationMessage - DOMHTMLInputElementValidationMessagePropertyInfo, - dOMHTMLInputElementValidationMessage , - getDOMHTMLInputElementValidationMessage , - - --- ** Value - DOMHTMLInputElementValuePropertyInfo , - constructDOMHTMLInputElementValue , - dOMHTMLInputElementValue , - getDOMHTMLInputElementValue , - setDOMHTMLInputElementValue , - - --- ** ValueAsNumber - DOMHTMLInputElementValueAsNumberPropertyInfo, - constructDOMHTMLInputElementValueAsNumber, - dOMHTMLInputElementValueAsNumber , - getDOMHTMLInputElementValueAsNumber , - setDOMHTMLInputElementValueAsNumber , - - --- ** Width - DOMHTMLInputElementWidthPropertyInfo , - constructDOMHTMLInputElementWidth , - dOMHTMLInputElementWidth , - getDOMHTMLInputElementWidth , - setDOMHTMLInputElementWidth , - - --- ** WillValidate - DOMHTMLInputElementWillValidatePropertyInfo, - dOMHTMLInputElementWillValidate , - getDOMHTMLInputElementWillValidate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLInputElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLInputElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLInputElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLInputElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLInputElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLInputElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLInputElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLInputElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLInputElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLInputElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLInputElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLInputElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLInputElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLInputElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLInputElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLInputElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLInputElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLInputElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLInputElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLInputElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLInputElementMethod "isEdited" o = DOMHTMLInputElementIsEditedMethodInfo - ResolveDOMHTMLInputElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLInputElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLInputElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLInputElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLInputElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLInputElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLInputElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLInputElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLInputElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLInputElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLInputElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLInputElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLInputElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLInputElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLInputElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLInputElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLInputElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLInputElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLInputElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLInputElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLInputElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLInputElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLInputElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLInputElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLInputElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLInputElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLInputElementMethod "select" o = DOMHTMLInputElementSelectMethodInfo - ResolveDOMHTMLInputElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLInputElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLInputElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLInputElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLInputElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLInputElementMethod "getAccept" o = DOMHTMLInputElementGetAcceptMethodInfo - ResolveDOMHTMLInputElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLInputElementMethod "getAlign" o = DOMHTMLInputElementGetAlignMethodInfo - ResolveDOMHTMLInputElementMethod "getAlt" o = DOMHTMLInputElementGetAltMethodInfo - ResolveDOMHTMLInputElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLInputElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLInputElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLInputElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLInputElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLInputElementMethod "getAutofocus" o = DOMHTMLInputElementGetAutofocusMethodInfo - ResolveDOMHTMLInputElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLInputElementMethod "getCapture" o = DOMHTMLInputElementGetCaptureMethodInfo - ResolveDOMHTMLInputElementMethod "getChecked" o = DOMHTMLInputElementGetCheckedMethodInfo - ResolveDOMHTMLInputElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLInputElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLInputElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLInputElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLInputElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLInputElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLInputElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLInputElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLInputElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLInputElementMethod "getDefaultChecked" o = DOMHTMLInputElementGetDefaultCheckedMethodInfo - ResolveDOMHTMLInputElementMethod "getDefaultValue" o = DOMHTMLInputElementGetDefaultValueMethodInfo - ResolveDOMHTMLInputElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLInputElementMethod "getDisabled" o = DOMHTMLInputElementGetDisabledMethodInfo - ResolveDOMHTMLInputElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLInputElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLInputElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLInputElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLInputElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLInputElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLInputElementMethod "getFiles" o = DOMHTMLInputElementGetFilesMethodInfo - ResolveDOMHTMLInputElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLInputElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLInputElementMethod "getForm" o = DOMHTMLInputElementGetFormMethodInfo - ResolveDOMHTMLInputElementMethod "getHeight" o = DOMHTMLInputElementGetHeightMethodInfo - ResolveDOMHTMLInputElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLInputElementMethod "getIndeterminate" o = DOMHTMLInputElementGetIndeterminateMethodInfo - ResolveDOMHTMLInputElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLInputElementMethod "getInputType" o = DOMHTMLInputElementGetInputTypeMethodInfo - ResolveDOMHTMLInputElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLInputElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLInputElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLInputElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLInputElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLInputElementMethod "getMaxLength" o = DOMHTMLInputElementGetMaxLengthMethodInfo - ResolveDOMHTMLInputElementMethod "getMultiple" o = DOMHTMLInputElementGetMultipleMethodInfo - ResolveDOMHTMLInputElementMethod "getName" o = DOMHTMLInputElementGetNameMethodInfo - ResolveDOMHTMLInputElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLInputElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLInputElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLInputElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLInputElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLInputElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLInputElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLInputElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLInputElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLInputElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLInputElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLInputElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLInputElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLInputElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLInputElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLInputElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLInputElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLInputElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLInputElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLInputElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLInputElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLInputElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLInputElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLInputElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLInputElementMethod "getSize" o = DOMHTMLInputElementGetSizeMethodInfo - ResolveDOMHTMLInputElementMethod "getSrc" o = DOMHTMLInputElementGetSrcMethodInfo - ResolveDOMHTMLInputElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLInputElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLInputElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLInputElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLInputElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLInputElementMethod "getUseMap" o = DOMHTMLInputElementGetUseMapMethodInfo - ResolveDOMHTMLInputElementMethod "getValue" o = DOMHTMLInputElementGetValueMethodInfo - ResolveDOMHTMLInputElementMethod "getWidth" o = DOMHTMLInputElementGetWidthMethodInfo - ResolveDOMHTMLInputElementMethod "getWillValidate" o = DOMHTMLInputElementGetWillValidateMethodInfo - ResolveDOMHTMLInputElementMethod "setAccept" o = DOMHTMLInputElementSetAcceptMethodInfo - ResolveDOMHTMLInputElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLInputElementMethod "setAlign" o = DOMHTMLInputElementSetAlignMethodInfo - ResolveDOMHTMLInputElementMethod "setAlt" o = DOMHTMLInputElementSetAltMethodInfo - ResolveDOMHTMLInputElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLInputElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLInputElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLInputElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLInputElementMethod "setAutofocus" o = DOMHTMLInputElementSetAutofocusMethodInfo - ResolveDOMHTMLInputElementMethod "setChecked" o = DOMHTMLInputElementSetCheckedMethodInfo - ResolveDOMHTMLInputElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLInputElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLInputElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLInputElementMethod "setDefaultValue" o = DOMHTMLInputElementSetDefaultValueMethodInfo - ResolveDOMHTMLInputElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLInputElementMethod "setDisabled" o = DOMHTMLInputElementSetDisabledMethodInfo - ResolveDOMHTMLInputElementMethod "setFiles" o = DOMHTMLInputElementSetFilesMethodInfo - ResolveDOMHTMLInputElementMethod "setHeight" o = DOMHTMLInputElementSetHeightMethodInfo - ResolveDOMHTMLInputElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLInputElementMethod "setIndeterminate" o = DOMHTMLInputElementSetIndeterminateMethodInfo - ResolveDOMHTMLInputElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLInputElementMethod "setInputType" o = DOMHTMLInputElementSetInputTypeMethodInfo - ResolveDOMHTMLInputElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLInputElementMethod "setMaxLength" o = DOMHTMLInputElementSetMaxLengthMethodInfo - ResolveDOMHTMLInputElementMethod "setMultiple" o = DOMHTMLInputElementSetMultipleMethodInfo - ResolveDOMHTMLInputElementMethod "setName" o = DOMHTMLInputElementSetNameMethodInfo - ResolveDOMHTMLInputElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLInputElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLInputElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLInputElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLInputElementMethod "setReadOnly" o = DOMHTMLInputElementSetReadOnlyMethodInfo - ResolveDOMHTMLInputElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLInputElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLInputElementMethod "setSize" o = DOMHTMLInputElementSetSizeMethodInfo - ResolveDOMHTMLInputElementMethod "setSrc" o = DOMHTMLInputElementSetSrcMethodInfo - ResolveDOMHTMLInputElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLInputElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLInputElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLInputElementMethod "setUseMap" o = DOMHTMLInputElementSetUseMapMethodInfo - ResolveDOMHTMLInputElementMethod "setValue" o = DOMHTMLInputElementSetValueMethodInfo - ResolveDOMHTMLInputElementMethod "setWidth" o = DOMHTMLInputElementSetWidthMethodInfo - ResolveDOMHTMLInputElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLInputElementMethod t DOMHTMLInputElement, MethodInfo info DOMHTMLInputElement p) => IsLabelProxy t (DOMHTMLInputElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLInputElementMethod t DOMHTMLInputElement, MethodInfo info DOMHTMLInputElement p) => IsLabel t (DOMHTMLInputElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "accept" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementAccept obj = liftIO $ getObjectPropertyString obj "accept" - -setDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAccept obj val = liftIO $ setObjectPropertyString obj "accept" (Just val) - -constructDOMHTMLInputElementAccept :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAccept val = constructObjectPropertyString "accept" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementAcceptPropertyInfo = "accept" - attrGet _ = getDOMHTMLInputElementAccept - attrSet _ = setDOMHTMLInputElementAccept - attrConstruct _ = constructDOMHTMLInputElementAccept - attrClear _ = undefined - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLInputElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLInputElementAlign - attrSet _ = setDOMHTMLInputElementAlign - attrConstruct _ = constructDOMHTMLInputElementAlign - attrClear _ = undefined - --- VVV Prop "alt" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementAlt obj = liftIO $ getObjectPropertyString obj "alt" - -setDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" (Just val) - -constructDOMHTMLInputElementAlt :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAlt val = constructObjectPropertyString "alt" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementAltPropertyInfo = "alt" - attrGet _ = getDOMHTMLInputElementAlt - attrSet _ = setDOMHTMLInputElementAlt - attrConstruct _ = constructDOMHTMLInputElementAlt - attrClear _ = undefined - --- VVV Prop "autocapitalize" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" - -setDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" (Just val) - -constructDOMHTMLInputElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAutocapitalize val = constructObjectPropertyString "autocapitalize" (Just val) - -clearDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementAutocapitalize obj = liftIO $ setObjectPropertyString obj "autocapitalize" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementAutocapitalizePropertyInfo -instance AttrInfo DOMHTMLInputElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutocapitalizePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementAutocapitalizePropertyInfo = "autocapitalize" - attrGet _ = getDOMHTMLInputElementAutocapitalize - attrSet _ = setDOMHTMLInputElementAutocapitalize - attrConstruct _ = constructDOMHTMLInputElementAutocapitalize - attrClear _ = clearDOMHTMLInputElementAutocapitalize - --- VVV Prop "autocomplete" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" - -setDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) - -constructDOMHTMLInputElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) - -clearDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementAutocompletePropertyInfo -instance AttrInfo DOMHTMLInputElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementAutocompletePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementAutocompletePropertyInfo = "autocomplete" - attrGet _ = getDOMHTMLInputElementAutocomplete - attrSet _ = setDOMHTMLInputElementAutocomplete - attrConstruct _ = constructDOMHTMLInputElementAutocomplete - attrClear _ = clearDOMHTMLInputElementAutocomplete - --- VVV Prop "autocorrect" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "autocorrect" - attrGet _ = getDOMHTMLInputElementAutocorrect - attrSet _ = setDOMHTMLInputElementAutocorrect - attrConstruct _ = constructDOMHTMLInputElementAutocorrect - attrClear _ = undefined - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "autofocus" - attrGet _ = getDOMHTMLInputElementAutofocus - attrSet _ = setDOMHTMLInputElementAutofocus - attrConstruct _ = constructDOMHTMLInputElementAutofocus - attrClear _ = undefined - --- VVV Prop "capture" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -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 = "capture" - attrGet _ = getDOMHTMLInputElementCapture - attrSet _ = setDOMHTMLInputElementCapture - attrConstruct _ = constructDOMHTMLInputElementCapture - attrClear _ = undefined - --- VVV Prop "checked" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "checked" - attrGet _ = getDOMHTMLInputElementChecked - attrSet _ = setDOMHTMLInputElementChecked - attrConstruct _ = constructDOMHTMLInputElementChecked - attrClear _ = undefined - --- VVV Prop "default-checked" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -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 = "default-checked" - attrGet _ = getDOMHTMLInputElementDefaultChecked - attrSet _ = setDOMHTMLInputElementDefaultChecked - attrConstruct _ = constructDOMHTMLInputElementDefaultChecked - attrClear _ = undefined - --- VVV Prop "default-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLInputElementDefaultValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementDefaultValue val = constructObjectPropertyString "default-value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementDefaultValuePropertyInfo = "default-value" - attrGet _ = getDOMHTMLInputElementDefaultValue - attrSet _ = setDOMHTMLInputElementDefaultValue - attrConstruct _ = constructDOMHTMLInputElementDefaultValue - attrClear _ = undefined - --- VVV Prop "dir-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLInputElementDirName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementDirName val = constructObjectPropertyString "dir-name" (Just val) - -clearDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementDirName obj = liftIO $ setObjectPropertyString obj "dir-name" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementDirNamePropertyInfo -instance AttrInfo DOMHTMLInputElementDirNamePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementDirNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementDirNamePropertyInfo = "dir-name" - attrGet _ = getDOMHTMLInputElementDirName - attrSet _ = setDOMHTMLInputElementDirName - attrConstruct _ = constructDOMHTMLInputElementDirName - attrClear _ = clearDOMHTMLInputElementDirName - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLInputElementDisabled - attrSet _ = setDOMHTMLInputElementDisabled - attrConstruct _ = constructDOMHTMLInputElementDisabled - attrClear _ = undefined - --- VVV Prop "files" - -- Type: TInterface "WebKit2WebExtension" "DOMFileList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementFiles :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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 = (Maybe DOMFileList) - type AttrLabel DOMHTMLInputElementFilesPropertyInfo = "files" - attrGet _ = getDOMHTMLInputElementFiles - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLInputElementForm :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLInputElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLInputElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLInputElementFormPropertyInfo -instance AttrInfo DOMHTMLInputElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementFormPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLInputElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLInputElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "form-action" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLInputElementFormAction :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormAction val = constructObjectPropertyString "form-action" (Just val) - -clearDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementFormAction obj = liftIO $ setObjectPropertyString obj "form-action" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementFormActionPropertyInfo -instance AttrInfo DOMHTMLInputElementFormActionPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormActionPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementFormActionPropertyInfo = "form-action" - attrGet _ = getDOMHTMLInputElementFormAction - attrSet _ = setDOMHTMLInputElementFormAction - attrConstruct _ = constructDOMHTMLInputElementFormAction - attrClear _ = clearDOMHTMLInputElementFormAction - --- VVV Prop "form-enctype" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLInputElementFormEnctype :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormEnctype val = constructObjectPropertyString "form-enctype" (Just val) - -clearDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementFormEnctype obj = liftIO $ setObjectPropertyString obj "form-enctype" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementFormEnctypePropertyInfo -instance AttrInfo DOMHTMLInputElementFormEnctypePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormEnctypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementFormEnctypePropertyInfo = "form-enctype" - attrGet _ = getDOMHTMLInputElementFormEnctype - attrSet _ = setDOMHTMLInputElementFormEnctype - attrConstruct _ = constructDOMHTMLInputElementFormEnctype - attrClear _ = clearDOMHTMLInputElementFormEnctype - --- VVV Prop "form-method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLInputElementFormMethod :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormMethod val = constructObjectPropertyString "form-method" (Just val) - -clearDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementFormMethod obj = liftIO $ setObjectPropertyString obj "form-method" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementFormMethodPropertyInfo -instance AttrInfo DOMHTMLInputElementFormMethodPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormMethodPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementFormMethodPropertyInfo = "form-method" - attrGet _ = getDOMHTMLInputElementFormMethod - attrSet _ = setDOMHTMLInputElementFormMethod - attrConstruct _ = constructDOMHTMLInputElementFormMethod - attrClear _ = clearDOMHTMLInputElementFormMethod - --- VVV Prop "form-no-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "form-no-validate" - attrGet _ = getDOMHTMLInputElementFormNoValidate - attrSet _ = setDOMHTMLInputElementFormNoValidate - attrConstruct _ = constructDOMHTMLInputElementFormNoValidate - attrClear _ = undefined - --- VVV Prop "form-target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLInputElementFormTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementFormTarget val = constructObjectPropertyString "form-target" (Just val) - -clearDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementFormTarget obj = liftIO $ setObjectPropertyString obj "form-target" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementFormTargetPropertyInfo -instance AttrInfo DOMHTMLInputElementFormTargetPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementFormTargetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementFormTargetPropertyInfo = "form-target" - attrGet _ = getDOMHTMLInputElementFormTarget - attrSet _ = setDOMHTMLInputElementFormTarget - attrConstruct _ = constructDOMHTMLInputElementFormTarget - attrClear _ = clearDOMHTMLInputElementFormTarget - --- VVV Prop "height" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CULong -getDOMHTMLInputElementHeight obj = liftIO $ getObjectPropertyULong obj "height" - -setDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> CULong -> m () -setDOMHTMLInputElementHeight obj val = liftIO $ setObjectPropertyULong obj "height" val - -constructDOMHTMLInputElementHeight :: CULong -> IO ([Char], GValue) -constructDOMHTMLInputElementHeight val = constructObjectPropertyULong "height" val - -data DOMHTMLInputElementHeightPropertyInfo -instance AttrInfo DOMHTMLInputElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementHeightPropertyInfo = (~) CULong - type AttrBaseTypeConstraint DOMHTMLInputElementHeightPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementHeightPropertyInfo = CULong - type AttrLabel DOMHTMLInputElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLInputElementHeight - attrSet _ = setDOMHTMLInputElementHeight - attrConstruct _ = constructDOMHTMLInputElementHeight - attrClear _ = undefined - --- VVV Prop "incremental" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "incremental" - attrGet _ = getDOMHTMLInputElementIncremental - attrSet _ = setDOMHTMLInputElementIncremental - attrConstruct _ = constructDOMHTMLInputElementIncremental - attrClear _ = undefined - --- VVV Prop "indeterminate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "indeterminate" - attrGet _ = getDOMHTMLInputElementIndeterminate - attrSet _ = setDOMHTMLInputElementIndeterminate - attrConstruct _ = constructDOMHTMLInputElementIndeterminate - attrClear _ = undefined - --- VVV Prop "labels" - -- Type: TInterface "WebKit2WebExtension" "DOMNodeList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementLabels :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe DOMNodeList) -getDOMHTMLInputElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLInputElementLabelsPropertyInfo -instance AttrInfo DOMHTMLInputElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementLabelsPropertyInfo = (Maybe DOMNodeList) - type AttrLabel DOMHTMLInputElementLabelsPropertyInfo = "labels" - attrGet _ = getDOMHTMLInputElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "list" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe DOMHTMLElement) -getDOMHTMLInputElementList obj = liftIO $ getObjectPropertyObject obj "list" DOMHTMLElement - -data DOMHTMLInputElementListPropertyInfo -instance AttrInfo DOMHTMLInputElementListPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementListPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementListPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementListPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementListPropertyInfo = (Maybe DOMHTMLElement) - type AttrLabel DOMHTMLInputElementListPropertyInfo = "list" - attrGet _ = getDOMHTMLInputElementList - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "max" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementMax obj = liftIO $ getObjectPropertyString obj "max" - -setDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementMax obj val = liftIO $ setObjectPropertyString obj "max" (Just val) - -constructDOMHTMLInputElementMax :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementMax val = constructObjectPropertyString "max" (Just val) - -clearDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementMax obj = liftIO $ setObjectPropertyString obj "max" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementMaxPropertyInfo -instance AttrInfo DOMHTMLInputElementMaxPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementMaxPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementMaxPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMaxPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementMaxPropertyInfo = "max" - attrGet _ = getDOMHTMLInputElementMax - attrSet _ = setDOMHTMLInputElementMax - attrConstruct _ = constructDOMHTMLInputElementMax - attrClear _ = clearDOMHTMLInputElementMax - --- VVV Prop "max-length" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CLong -getDOMHTMLInputElementMaxLength obj = liftIO $ getObjectPropertyLong obj "max-length" - -setDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> CLong -> m () -setDOMHTMLInputElementMaxLength obj val = liftIO $ setObjectPropertyLong obj "max-length" val - -constructDOMHTMLInputElementMaxLength :: CLong -> IO ([Char], GValue) -constructDOMHTMLInputElementMaxLength val = constructObjectPropertyLong "max-length" val - -data DOMHTMLInputElementMaxLengthPropertyInfo -instance AttrInfo DOMHTMLInputElementMaxLengthPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMaxLengthPropertyInfo = CLong - type AttrLabel DOMHTMLInputElementMaxLengthPropertyInfo = "max-length" - attrGet _ = getDOMHTMLInputElementMaxLength - attrSet _ = setDOMHTMLInputElementMaxLength - attrConstruct _ = constructDOMHTMLInputElementMaxLength - attrClear _ = undefined - --- VVV Prop "min" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementMin obj = liftIO $ getObjectPropertyString obj "min" - -setDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementMin obj val = liftIO $ setObjectPropertyString obj "min" (Just val) - -constructDOMHTMLInputElementMin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementMin val = constructObjectPropertyString "min" (Just val) - -clearDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementMin obj = liftIO $ setObjectPropertyString obj "min" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementMinPropertyInfo -instance AttrInfo DOMHTMLInputElementMinPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementMinPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementMinPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementMinPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementMinPropertyInfo = "min" - attrGet _ = getDOMHTMLInputElementMin - attrSet _ = setDOMHTMLInputElementMin - attrConstruct _ = constructDOMHTMLInputElementMin - attrClear _ = clearDOMHTMLInputElementMin - --- VVV Prop "multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "multiple" - attrGet _ = getDOMHTMLInputElementMultiple - attrSet _ = setDOMHTMLInputElementMultiple - attrConstruct _ = constructDOMHTMLInputElementMultiple - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLInputElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLInputElementName - attrSet _ = setDOMHTMLInputElementName - attrConstruct _ = constructDOMHTMLInputElementName - attrClear _ = undefined - --- VVV Prop "pattern" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementPattern obj = liftIO $ getObjectPropertyString obj "pattern" - -setDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementPattern obj val = liftIO $ setObjectPropertyString obj "pattern" (Just val) - -constructDOMHTMLInputElementPattern :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementPattern val = constructObjectPropertyString "pattern" (Just val) - -clearDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementPattern obj = liftIO $ setObjectPropertyString obj "pattern" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementPatternPropertyInfo -instance AttrInfo DOMHTMLInputElementPatternPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementPatternPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementPatternPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementPatternPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementPatternPropertyInfo = "pattern" - attrGet _ = getDOMHTMLInputElementPattern - attrSet _ = setDOMHTMLInputElementPattern - attrConstruct _ = constructDOMHTMLInputElementPattern - attrClear _ = clearDOMHTMLInputElementPattern - --- VVV Prop "placeholder" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" - -setDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" (Just val) - -constructDOMHTMLInputElementPlaceholder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementPlaceholder val = constructObjectPropertyString "placeholder" (Just val) - -clearDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementPlaceholder obj = liftIO $ setObjectPropertyString obj "placeholder" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementPlaceholderPropertyInfo -instance AttrInfo DOMHTMLInputElementPlaceholderPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementPlaceholderPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementPlaceholderPropertyInfo = "placeholder" - attrGet _ = getDOMHTMLInputElementPlaceholder - attrSet _ = setDOMHTMLInputElementPlaceholder - attrConstruct _ = constructDOMHTMLInputElementPlaceholder - attrClear _ = clearDOMHTMLInputElementPlaceholder - --- VVV Prop "read-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -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 = "read-only" - attrGet _ = getDOMHTMLInputElementReadOnly - attrSet _ = setDOMHTMLInputElementReadOnly - attrConstruct _ = constructDOMHTMLInputElementReadOnly - attrClear _ = undefined - --- VVV Prop "required" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "required" - attrGet _ = getDOMHTMLInputElementRequired - attrSet _ = setDOMHTMLInputElementRequired - attrConstruct _ = constructDOMHTMLInputElementRequired - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CULong -getDOMHTMLInputElementSize obj = liftIO $ getObjectPropertyULong obj "size" - -setDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> CULong -> m () -setDOMHTMLInputElementSize obj val = liftIO $ setObjectPropertyULong obj "size" val - -constructDOMHTMLInputElementSize :: CULong -> IO ([Char], GValue) -constructDOMHTMLInputElementSize val = constructObjectPropertyULong "size" val - -data DOMHTMLInputElementSizePropertyInfo -instance AttrInfo DOMHTMLInputElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementSizePropertyInfo = (~) CULong - type AttrBaseTypeConstraint DOMHTMLInputElementSizePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementSizePropertyInfo = CULong - type AttrLabel DOMHTMLInputElementSizePropertyInfo = "size" - attrGet _ = getDOMHTMLInputElementSize - attrSet _ = setDOMHTMLInputElementSize - attrConstruct _ = constructDOMHTMLInputElementSize - attrClear _ = undefined - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) - -constructDOMHTMLInputElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementSrc val = constructObjectPropertyString "src" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementSrcPropertyInfo = "src" - attrGet _ = getDOMHTMLInputElementSrc - attrSet _ = setDOMHTMLInputElementSrc - attrConstruct _ = constructDOMHTMLInputElementSrc - attrClear _ = undefined - --- VVV Prop "step" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementStep obj = liftIO $ getObjectPropertyString obj "step" - -setDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementStep obj val = liftIO $ setObjectPropertyString obj "step" (Just val) - -constructDOMHTMLInputElementStep :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementStep val = constructObjectPropertyString "step" (Just val) - -clearDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementStep obj = liftIO $ setObjectPropertyString obj "step" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementStepPropertyInfo -instance AttrInfo DOMHTMLInputElementStepPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementStepPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementStepPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementStepPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementStepPropertyInfo = "step" - attrGet _ = getDOMHTMLInputElementStep - attrSet _ = setDOMHTMLInputElementStep - attrConstruct _ = constructDOMHTMLInputElementStep - attrClear _ = clearDOMHTMLInputElementStep - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLInputElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m () -clearDOMHTMLInputElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLInputElementTypePropertyInfo -instance AttrInfo DOMHTMLInputElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLInputElementTypePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLInputElementType - attrSet _ = setDOMHTMLInputElementType - attrConstruct _ = constructDOMHTMLInputElementType - attrClear _ = clearDOMHTMLInputElementType - --- VVV Prop "use-map" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLInputElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementUseMap val = constructObjectPropertyString "use-map" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementUseMapPropertyInfo = "use-map" - attrGet _ = getDOMHTMLInputElementUseMap - attrSet _ = setDOMHTMLInputElementUseMap - attrConstruct _ = constructDOMHTMLInputElementUseMap - attrClear _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLInputElementValidationMessage :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLInputElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLInputElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLInputElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementValidationMessagePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementValidationMessagePropertyInfo = "validation-message" - attrGet _ = getDOMHTMLInputElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m (Maybe T.Text) -getDOMHTMLInputElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () -setDOMHTMLInputElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) - -constructDOMHTMLInputElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLInputElementValue val = constructObjectPropertyString "value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLInputElementValuePropertyInfo = "value" - attrGet _ = getDOMHTMLInputElementValue - attrSet _ = setDOMHTMLInputElementValue - attrConstruct _ = constructDOMHTMLInputElementValue - attrClear _ = undefined - --- VVV Prop "value-as-number" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "value-as-number" - attrGet _ = getDOMHTMLInputElementValueAsNumber - attrSet _ = setDOMHTMLInputElementValueAsNumber - attrConstruct _ = constructDOMHTMLInputElementValueAsNumber - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> m CULong -getDOMHTMLInputElementWidth obj = liftIO $ getObjectPropertyULong obj "width" - -setDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> CULong -> m () -setDOMHTMLInputElementWidth obj val = liftIO $ setObjectPropertyULong obj "width" val - -constructDOMHTMLInputElementWidth :: CULong -> IO ([Char], GValue) -constructDOMHTMLInputElementWidth val = constructObjectPropertyULong "width" val - -data DOMHTMLInputElementWidthPropertyInfo -instance AttrInfo DOMHTMLInputElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLInputElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLInputElementWidthPropertyInfo = (~) CULong - type AttrBaseTypeConstraint DOMHTMLInputElementWidthPropertyInfo = DOMHTMLInputElementK - type AttrGetType DOMHTMLInputElementWidthPropertyInfo = CULong - type AttrLabel DOMHTMLInputElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLInputElementWidth - attrSet _ = setDOMHTMLInputElementWidth - attrConstruct _ = constructDOMHTMLInputElementWidth - attrClear _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "will-validate" - attrGet _ = getDOMHTMLInputElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLInputElement = DOMHTMLInputElementAttributeList -type DOMHTMLInputElementAttributeList = ('[ '("accept", DOMHTMLInputElementAcceptPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLInputElementAlignPropertyInfo), '("alt", DOMHTMLInputElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLInputElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLInputElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLInputElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLInputElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("capture", DOMHTMLInputElementCapturePropertyInfo), '("checked", DOMHTMLInputElementCheckedPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultChecked", DOMHTMLInputElementDefaultCheckedPropertyInfo), '("defaultValue", DOMHTMLInputElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dirName", DOMHTMLInputElementDirNamePropertyInfo), '("disabled", DOMHTMLInputElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("files", DOMHTMLInputElementFilesPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLInputElementFormPropertyInfo), '("formAction", DOMHTMLInputElementFormActionPropertyInfo), '("formEnctype", DOMHTMLInputElementFormEnctypePropertyInfo), '("formMethod", DOMHTMLInputElementFormMethodPropertyInfo), '("formNoValidate", DOMHTMLInputElementFormNoValidatePropertyInfo), '("formTarget", DOMHTMLInputElementFormTargetPropertyInfo), '("height", DOMHTMLInputElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("incremental", DOMHTMLInputElementIncrementalPropertyInfo), '("indeterminate", DOMHTMLInputElementIndeterminatePropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLInputElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("list", DOMHTMLInputElementListPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("max", DOMHTMLInputElementMaxPropertyInfo), '("maxLength", DOMHTMLInputElementMaxLengthPropertyInfo), '("min", DOMHTMLInputElementMinPropertyInfo), '("multiple", DOMHTMLInputElementMultiplePropertyInfo), '("name", DOMHTMLInputElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("pattern", DOMHTMLInputElementPatternPropertyInfo), '("placeholder", DOMHTMLInputElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readOnly", DOMHTMLInputElementReadOnlyPropertyInfo), '("required", DOMHTMLInputElementRequiredPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLInputElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLInputElementSrcPropertyInfo), '("step", DOMHTMLInputElementStepPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLInputElementTypePropertyInfo), '("useMap", DOMHTMLInputElementUseMapPropertyInfo), '("validationMessage", DOMHTMLInputElementValidationMessagePropertyInfo), '("value", DOMHTMLInputElementValuePropertyInfo), '("valueAsNumber", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLInputElementWidthPropertyInfo), '("willValidate", DOMHTMLInputElementWillValidatePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLInputElementAccept :: AttrLabelProxy "accept" -dOMHTMLInputElementAccept = AttrLabelProxy - -dOMHTMLInputElementAlign :: AttrLabelProxy "align" -dOMHTMLInputElementAlign = AttrLabelProxy - -dOMHTMLInputElementAlt :: AttrLabelProxy "alt" -dOMHTMLInputElementAlt = AttrLabelProxy - -dOMHTMLInputElementAutocapitalize :: AttrLabelProxy "autocapitalize" -dOMHTMLInputElementAutocapitalize = AttrLabelProxy - -dOMHTMLInputElementAutocomplete :: AttrLabelProxy "autocomplete" -dOMHTMLInputElementAutocomplete = AttrLabelProxy - -dOMHTMLInputElementAutocorrect :: AttrLabelProxy "autocorrect" -dOMHTMLInputElementAutocorrect = AttrLabelProxy - -dOMHTMLInputElementAutofocus :: AttrLabelProxy "autofocus" -dOMHTMLInputElementAutofocus = AttrLabelProxy - -dOMHTMLInputElementCapture :: AttrLabelProxy "capture" -dOMHTMLInputElementCapture = AttrLabelProxy - -dOMHTMLInputElementChecked :: AttrLabelProxy "checked" -dOMHTMLInputElementChecked = AttrLabelProxy - -dOMHTMLInputElementDefaultChecked :: AttrLabelProxy "defaultChecked" -dOMHTMLInputElementDefaultChecked = AttrLabelProxy - -dOMHTMLInputElementDefaultValue :: AttrLabelProxy "defaultValue" -dOMHTMLInputElementDefaultValue = AttrLabelProxy - -dOMHTMLInputElementDirName :: AttrLabelProxy "dirName" -dOMHTMLInputElementDirName = AttrLabelProxy - -dOMHTMLInputElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLInputElementDisabled = AttrLabelProxy - -dOMHTMLInputElementFiles :: AttrLabelProxy "files" -dOMHTMLInputElementFiles = AttrLabelProxy - -dOMHTMLInputElementForm :: AttrLabelProxy "form" -dOMHTMLInputElementForm = AttrLabelProxy - -dOMHTMLInputElementFormAction :: AttrLabelProxy "formAction" -dOMHTMLInputElementFormAction = AttrLabelProxy - -dOMHTMLInputElementFormEnctype :: AttrLabelProxy "formEnctype" -dOMHTMLInputElementFormEnctype = AttrLabelProxy - -dOMHTMLInputElementFormMethod :: AttrLabelProxy "formMethod" -dOMHTMLInputElementFormMethod = AttrLabelProxy - -dOMHTMLInputElementFormNoValidate :: AttrLabelProxy "formNoValidate" -dOMHTMLInputElementFormNoValidate = AttrLabelProxy - -dOMHTMLInputElementFormTarget :: AttrLabelProxy "formTarget" -dOMHTMLInputElementFormTarget = AttrLabelProxy - -dOMHTMLInputElementHeight :: AttrLabelProxy "height" -dOMHTMLInputElementHeight = AttrLabelProxy - -dOMHTMLInputElementIncremental :: AttrLabelProxy "incremental" -dOMHTMLInputElementIncremental = AttrLabelProxy - -dOMHTMLInputElementIndeterminate :: AttrLabelProxy "indeterminate" -dOMHTMLInputElementIndeterminate = AttrLabelProxy - -dOMHTMLInputElementLabels :: AttrLabelProxy "labels" -dOMHTMLInputElementLabels = AttrLabelProxy - -dOMHTMLInputElementList :: AttrLabelProxy "list" -dOMHTMLInputElementList = AttrLabelProxy - -dOMHTMLInputElementMax :: AttrLabelProxy "max" -dOMHTMLInputElementMax = AttrLabelProxy - -dOMHTMLInputElementMaxLength :: AttrLabelProxy "maxLength" -dOMHTMLInputElementMaxLength = AttrLabelProxy - -dOMHTMLInputElementMin :: AttrLabelProxy "min" -dOMHTMLInputElementMin = AttrLabelProxy - -dOMHTMLInputElementMultiple :: AttrLabelProxy "multiple" -dOMHTMLInputElementMultiple = AttrLabelProxy - -dOMHTMLInputElementName :: AttrLabelProxy "name" -dOMHTMLInputElementName = AttrLabelProxy - -dOMHTMLInputElementPattern :: AttrLabelProxy "pattern" -dOMHTMLInputElementPattern = AttrLabelProxy - -dOMHTMLInputElementPlaceholder :: AttrLabelProxy "placeholder" -dOMHTMLInputElementPlaceholder = AttrLabelProxy - -dOMHTMLInputElementReadOnly :: AttrLabelProxy "readOnly" -dOMHTMLInputElementReadOnly = AttrLabelProxy - -dOMHTMLInputElementRequired :: AttrLabelProxy "required" -dOMHTMLInputElementRequired = AttrLabelProxy - -dOMHTMLInputElementSize :: AttrLabelProxy "size" -dOMHTMLInputElementSize = AttrLabelProxy - -dOMHTMLInputElementSrc :: AttrLabelProxy "src" -dOMHTMLInputElementSrc = AttrLabelProxy - -dOMHTMLInputElementStep :: AttrLabelProxy "step" -dOMHTMLInputElementStep = AttrLabelProxy - -dOMHTMLInputElementType :: AttrLabelProxy "type" -dOMHTMLInputElementType = AttrLabelProxy - -dOMHTMLInputElementUseMap :: AttrLabelProxy "useMap" -dOMHTMLInputElementUseMap = AttrLabelProxy - -dOMHTMLInputElementValidationMessage :: AttrLabelProxy "validationMessage" -dOMHTMLInputElementValidationMessage = AttrLabelProxy - -dOMHTMLInputElementValue :: AttrLabelProxy "value" -dOMHTMLInputElementValue = AttrLabelProxy - -dOMHTMLInputElementValueAsNumber :: AttrLabelProxy "valueAsNumber" -dOMHTMLInputElementValueAsNumber = AttrLabelProxy - -dOMHTMLInputElementWidth :: AttrLabelProxy "width" -dOMHTMLInputElementWidth = AttrLabelProxy - -dOMHTMLInputElementWillValidate :: AttrLabelProxy "willValidate" -dOMHTMLInputElementWillValidate = AttrLabelProxy - -type instance SignalList DOMHTMLInputElement = DOMHTMLInputElementSignalList -type DOMHTMLInputElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLInputElement::get_accept --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetAcceptMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetAcceptMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetAccept - --- method DOMHTMLInputElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetAlign - --- method DOMHTMLInputElement::get_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetAltMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetAlt - --- method DOMHTMLInputElement::get_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetAutofocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetAutofocus - --- method DOMHTMLInputElement::get_capture --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetCaptureMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetCaptureMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetCapture - --- method DOMHTMLInputElement::get_checked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetCheckedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetCheckedMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetChecked - --- method DOMHTMLInputElement::get_default_checked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetDefaultCheckedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetDefaultCheckedMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetDefaultChecked - --- method DOMHTMLInputElement::get_default_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetDefaultValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetDefaultValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetDefaultValue - --- method DOMHTMLInputElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetDisabled - --- method DOMHTMLInputElement::get_files --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetFilesMethodInfo -instance (signature ~ (m DOMFileList), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetFilesMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetFiles - --- method DOMHTMLInputElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetForm - --- method DOMHTMLInputElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMHTMLInputElementGetHeight :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> m CULong -- result -dOMHTMLInputElementGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_input_element_get_height _obj' - touchManagedPtr _obj - return result - -data DOMHTMLInputElementGetHeightMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetHeight - --- method DOMHTMLInputElement::get_indeterminate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetIndeterminateMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetIndeterminateMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetIndeterminate - --- method DOMHTMLInputElement::get_input_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetInputTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetInputTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetInputType - --- method DOMHTMLInputElement::get_max_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLInputElementGetMaxLength :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLInputElementGetMaxLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_input_element_get_max_length _obj' - touchManagedPtr _obj - return result - -data DOMHTMLInputElementGetMaxLengthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetMaxLengthMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetMaxLength - --- method DOMHTMLInputElement::get_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetMultipleMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetMultipleMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetMultiple - --- method DOMHTMLInputElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetName - --- method DOMHTMLInputElement::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMHTMLInputElementGetSize :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> m CULong -- result -dOMHTMLInputElementGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_input_element_get_size _obj' - touchManagedPtr _obj - return result - -data DOMHTMLInputElementGetSizeMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetSize - --- method DOMHTMLInputElement::get_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetSrcMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetSrc - --- method DOMHTMLInputElement::get_use_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetUseMapMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetUseMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetUseMap - --- method DOMHTMLInputElement::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetValue - --- method DOMHTMLInputElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMHTMLInputElementGetWidth :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> m CULong -- result -dOMHTMLInputElementGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_input_element_get_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLInputElementGetWidthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetWidth - --- method DOMHTMLInputElement::get_will_validate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementGetWillValidateMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementGetWillValidateMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementGetWillValidate - --- method DOMHTMLInputElement::is_edited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLInputElementIsEditedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementIsEditedMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementIsEdited - --- method DOMHTMLInputElement::select --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLInputElementSelect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_input_element_select _obj' - touchManagedPtr _obj - return () - -data DOMHTMLInputElementSelectMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSelectMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSelect - --- method DOMHTMLInputElement::set_accept --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetAcceptMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetAcceptMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetAccept - --- method DOMHTMLInputElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetAlign - --- method DOMHTMLInputElement::set_alt --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetAltMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetAltMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetAlt - --- method DOMHTMLInputElement::set_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetAutofocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetAutofocus - --- method DOMHTMLInputElement::set_checked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetCheckedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetCheckedMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetChecked - --- method DOMHTMLInputElement::set_default_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetDefaultValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetDefaultValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetDefaultValue - --- method DOMHTMLInputElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetDisabled - --- method DOMHTMLInputElement::set_files --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetFilesMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMHTMLInputElementK a, DOMFileListK b) => MethodInfo DOMHTMLInputElementSetFilesMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetFiles - --- method DOMHTMLInputElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- value : TBasicType TULong - IO () - - -dOMHTMLInputElementSetHeight :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> CULong -- value - -> m () -- result -dOMHTMLInputElementSetHeight _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_input_element_set_height _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLInputElementSetHeightMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetHeight - --- method DOMHTMLInputElement::set_indeterminate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetIndeterminateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetIndeterminateMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetIndeterminate - --- method DOMHTMLInputElement::set_input_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetInputTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetInputTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetInputType - --- method DOMHTMLInputElement::set_max_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO () - - -dOMHTMLInputElementSetMaxLength :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -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 () - ) - -data DOMHTMLInputElementSetMaxLengthMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetMaxLengthMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetMaxLength - --- method DOMHTMLInputElement::set_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetMultipleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetMultipleMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetMultiple - --- method DOMHTMLInputElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetName - --- method DOMHTMLInputElement::set_read_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetReadOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetReadOnlyMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetReadOnly - --- method DOMHTMLInputElement::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- value : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO () - - -dOMHTMLInputElementSetSize :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> CULong -- value - -> m () -- result -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 () - ) - -data DOMHTMLInputElementSetSizeMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetSize - --- method DOMHTMLInputElement::set_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetSrcMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetSrc - --- method DOMHTMLInputElement::set_use_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetUseMapMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetUseMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetUseMap - --- method DOMHTMLInputElement::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLInputElementSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetValue - --- method DOMHTMLInputElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- value : TBasicType TULong - IO () - - -dOMHTMLInputElementSetWidth :: - (MonadIO m, DOMHTMLInputElementK a) => - a -- _obj - -> CULong -- value - -> m () -- result -dOMHTMLInputElementSetWidth _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_input_element_set_width _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLInputElementSetWidthMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLInputElementK a) => MethodInfo DOMHTMLInputElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLInputElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot +++ /dev/null @@ -1,102 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLInputElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLInputElementGetAcceptMethodInfo -data DOMHTMLInputElementGetAlignMethodInfo -data DOMHTMLInputElementGetAltMethodInfo -data DOMHTMLInputElementGetAutofocusMethodInfo -data DOMHTMLInputElementGetCaptureMethodInfo -data DOMHTMLInputElementGetCheckedMethodInfo -data DOMHTMLInputElementGetDefaultCheckedMethodInfo -data DOMHTMLInputElementGetDefaultValueMethodInfo -data DOMHTMLInputElementGetDisabledMethodInfo -data DOMHTMLInputElementGetFilesMethodInfo -data DOMHTMLInputElementGetFormMethodInfo -data DOMHTMLInputElementGetHeightMethodInfo -data DOMHTMLInputElementGetIndeterminateMethodInfo -data DOMHTMLInputElementGetInputTypeMethodInfo -data DOMHTMLInputElementGetMaxLengthMethodInfo -data DOMHTMLInputElementGetMultipleMethodInfo -data DOMHTMLInputElementGetNameMethodInfo -data DOMHTMLInputElementGetSizeMethodInfo -data DOMHTMLInputElementGetSrcMethodInfo -data DOMHTMLInputElementGetUseMapMethodInfo -data DOMHTMLInputElementGetValueMethodInfo -data DOMHTMLInputElementGetWidthMethodInfo -data DOMHTMLInputElementGetWillValidateMethodInfo -data DOMHTMLInputElementIsEditedMethodInfo -data DOMHTMLInputElementSelectMethodInfo -data DOMHTMLInputElementSetAcceptMethodInfo -data DOMHTMLInputElementSetAlignMethodInfo -data DOMHTMLInputElementSetAltMethodInfo -data DOMHTMLInputElementSetAutofocusMethodInfo -data DOMHTMLInputElementSetCheckedMethodInfo -data DOMHTMLInputElementSetDefaultValueMethodInfo -data DOMHTMLInputElementSetDisabledMethodInfo -data DOMHTMLInputElementSetFilesMethodInfo -data DOMHTMLInputElementSetHeightMethodInfo -data DOMHTMLInputElementSetIndeterminateMethodInfo -data DOMHTMLInputElementSetInputTypeMethodInfo -data DOMHTMLInputElementSetMaxLengthMethodInfo -data DOMHTMLInputElementSetMultipleMethodInfo -data DOMHTMLInputElementSetNameMethodInfo -data DOMHTMLInputElementSetReadOnlyMethodInfo -data DOMHTMLInputElementSetSizeMethodInfo -data DOMHTMLInputElementSetSrcMethodInfo -data DOMHTMLInputElementSetUseMapMethodInfo -data DOMHTMLInputElementSetValueMethodInfo -data DOMHTMLInputElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs +++ /dev/null @@ -1,427 +0,0 @@ - - -{- | -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 - DOMHTMLLIElementGetTypeAttrMethodInfo , - dOMHTMLLIElementGetTypeAttr , - - --- ** dOMHTMLLIElementGetValue - DOMHTMLLIElementGetValueMethodInfo , - dOMHTMLLIElementGetValue , - - --- ** dOMHTMLLIElementSetTypeAttr - DOMHTMLLIElementSetTypeAttrMethodInfo , - dOMHTMLLIElementSetTypeAttr , - - --- ** dOMHTMLLIElementSetValue - DOMHTMLLIElementSetValueMethodInfo , - dOMHTMLLIElementSetValue , - - - - - -- * Properties --- ** Type - DOMHTMLLIElementTypePropertyInfo , - clearDOMHTMLLIElementType , - constructDOMHTMLLIElementType , - dOMHTMLLIElementType , - getDOMHTMLLIElementType , - setDOMHTMLLIElementType , - - --- ** Value - DOMHTMLLIElementValuePropertyInfo , - constructDOMHTMLLIElementValue , - dOMHTMLLIElementValue , - getDOMHTMLLIElementValue , - setDOMHTMLLIElementValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLLIElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLLIElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLLIElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLLIElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLLIElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLLIElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLLIElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLLIElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLLIElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLLIElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLLIElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLLIElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLLIElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLLIElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLLIElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLLIElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLLIElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLLIElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLLIElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLLIElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLLIElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLLIElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLLIElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLLIElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLLIElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLLIElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLLIElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLLIElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLLIElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLLIElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLLIElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLLIElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLLIElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLLIElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLLIElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLLIElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLLIElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLLIElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLLIElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLLIElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLLIElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLLIElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLLIElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLLIElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLLIElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLLIElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLLIElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLLIElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLLIElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLLIElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLLIElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLLIElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLLIElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLLIElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLLIElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLLIElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLLIElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLLIElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLLIElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLLIElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLLIElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLLIElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLLIElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLLIElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLLIElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLLIElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLLIElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLLIElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLLIElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLLIElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLIElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLLIElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLIElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLLIElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLLIElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLLIElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLLIElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLLIElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLLIElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLLIElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLLIElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLLIElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLLIElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLLIElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLLIElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLLIElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLLIElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLLIElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLLIElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLLIElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLLIElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLLIElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLLIElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLLIElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLLIElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLLIElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLLIElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLLIElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLLIElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLLIElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLLIElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLLIElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLLIElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLLIElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLLIElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLLIElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLLIElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLLIElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLLIElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLLIElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLLIElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLLIElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLLIElementMethod "getTypeAttr" o = DOMHTMLLIElementGetTypeAttrMethodInfo - ResolveDOMHTMLLIElementMethod "getValue" o = DOMHTMLLIElementGetValueMethodInfo - ResolveDOMHTMLLIElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLLIElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLLIElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLLIElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLLIElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLLIElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLLIElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLLIElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLLIElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLLIElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLLIElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLLIElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLLIElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLLIElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLLIElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLLIElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLLIElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLLIElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLLIElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLLIElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLLIElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLLIElementMethod "setTypeAttr" o = DOMHTMLLIElementSetTypeAttrMethodInfo - ResolveDOMHTMLLIElementMethod "setValue" o = DOMHTMLLIElementSetValueMethodInfo - ResolveDOMHTMLLIElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLLIElementMethod t DOMHTMLLIElement, MethodInfo info DOMHTMLLIElement p) => IsLabelProxy t (DOMHTMLLIElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLLIElementMethod t DOMHTMLLIElement, MethodInfo info DOMHTMLLIElement p) => IsLabel t (DOMHTMLLIElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLIElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> T.Text -> m () -setDOMHTMLLIElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLLIElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLIElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m () -clearDOMHTMLLIElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLLIElementTypePropertyInfo -instance AttrInfo DOMHTMLLIElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLLIElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLLIElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLIElementTypePropertyInfo = DOMHTMLLIElementK - type AttrGetType DOMHTMLLIElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLLIElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLLIElementType - attrSet _ = setDOMHTMLLIElementType - attrConstruct _ = constructDOMHTMLLIElementType - attrClear _ = clearDOMHTMLLIElementType - --- VVV Prop "value" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> m CLong -getDOMHTMLLIElementValue obj = liftIO $ getObjectPropertyLong obj "value" - -setDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> CLong -> m () -setDOMHTMLLIElementValue obj val = liftIO $ setObjectPropertyLong obj "value" val - -constructDOMHTMLLIElementValue :: CLong -> IO ([Char], GValue) -constructDOMHTMLLIElementValue val = constructObjectPropertyLong "value" val - -data DOMHTMLLIElementValuePropertyInfo -instance AttrInfo DOMHTMLLIElementValuePropertyInfo where - type AttrAllowedOps DOMHTMLLIElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLLIElementValuePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLLIElementValuePropertyInfo = DOMHTMLLIElementK - type AttrGetType DOMHTMLLIElementValuePropertyInfo = CLong - type AttrLabel DOMHTMLLIElementValuePropertyInfo = "value" - attrGet _ = getDOMHTMLLIElementValue - attrSet _ = setDOMHTMLLIElementValue - attrConstruct _ = constructDOMHTMLLIElementValue - attrClear _ = undefined - -type instance AttributeList DOMHTMLLIElement = DOMHTMLLIElementAttributeList -type DOMHTMLLIElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLLIElementTypePropertyInfo), '("value", DOMHTMLLIElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLLIElementType :: AttrLabelProxy "type" -dOMHTMLLIElementType = AttrLabelProxy - -dOMHTMLLIElementValue :: AttrLabelProxy "value" -dOMHTMLLIElementValue = AttrLabelProxy - -type instance SignalList DOMHTMLLIElement = DOMHTMLLIElementSignalList -type DOMHTMLLIElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLLIElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLIElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLLIElementGetTypeAttr - --- method DOMHTMLLIElement::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLLIElementGetValue :: - (MonadIO m, DOMHTMLLIElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLLIElementGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_li_element_get_value _obj' - touchManagedPtr _obj - return result - -data DOMHTMLLIElementGetValueMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementGetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLLIElementGetValue - --- method DOMHTMLLIElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLIElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLLIElementSetTypeAttr - --- method DOMHTMLLIElement::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLLIElementSetValue :: - (MonadIO m, DOMHTMLLIElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLLIElementSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_li_element_set_value _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLLIElementSetValueMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLLIElementK a) => MethodInfo DOMHTMLLIElementSetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLLIElementSetValue - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLLIElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLLIElementGetTypeAttrMethodInfo -data DOMHTMLLIElementGetValueMethodInfo -data DOMHTMLLIElementSetTypeAttrMethodInfo -data DOMHTMLLIElementSetValueMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs +++ /dev/null @@ -1,411 +0,0 @@ - - -{- | -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 - DOMHTMLLabelElementGetFormMethodInfo , - dOMHTMLLabelElementGetForm , - - --- ** dOMHTMLLabelElementGetHtmlFor - DOMHTMLLabelElementGetHtmlForMethodInfo , - dOMHTMLLabelElementGetHtmlFor , - - --- ** dOMHTMLLabelElementSetHtmlFor - DOMHTMLLabelElementSetHtmlForMethodInfo , - dOMHTMLLabelElementSetHtmlFor , - - - - - -- * Properties --- ** Control - DOMHTMLLabelElementControlPropertyInfo , - dOMHTMLLabelElementControl , - getDOMHTMLLabelElementControl , - - --- ** Form - DOMHTMLLabelElementFormPropertyInfo , - dOMHTMLLabelElementForm , - getDOMHTMLLabelElementForm , - - --- ** HtmlFor - DOMHTMLLabelElementHtmlForPropertyInfo , - constructDOMHTMLLabelElementHtmlFor , - dOMHTMLLabelElementHtmlFor , - getDOMHTMLLabelElementHtmlFor , - setDOMHTMLLabelElementHtmlFor , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLLabelElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLLabelElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLLabelElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLLabelElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLLabelElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLLabelElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLLabelElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLLabelElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLLabelElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLLabelElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLLabelElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLLabelElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLLabelElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLLabelElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLLabelElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLLabelElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLLabelElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLLabelElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLLabelElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLLabelElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLLabelElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLLabelElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLLabelElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLLabelElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLLabelElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLLabelElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLLabelElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLLabelElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLLabelElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLLabelElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLLabelElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLLabelElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLLabelElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLLabelElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLLabelElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLLabelElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLLabelElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLLabelElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLLabelElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLLabelElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLLabelElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLLabelElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLLabelElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLLabelElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLLabelElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLLabelElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLLabelElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLLabelElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLLabelElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLLabelElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLLabelElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLLabelElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLLabelElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLLabelElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLLabelElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLLabelElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLLabelElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLLabelElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLLabelElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLLabelElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLLabelElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLLabelElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLLabelElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLLabelElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLLabelElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLLabelElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLLabelElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLLabelElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLLabelElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLLabelElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLabelElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLLabelElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLabelElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLLabelElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLLabelElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLLabelElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLLabelElementMethod "getForm" o = DOMHTMLLabelElementGetFormMethodInfo - ResolveDOMHTMLLabelElementMethod "getHtmlFor" o = DOMHTMLLabelElementGetHtmlForMethodInfo - ResolveDOMHTMLLabelElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLLabelElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLLabelElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLLabelElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLLabelElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLLabelElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLLabelElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLLabelElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLLabelElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLLabelElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLLabelElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLLabelElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLLabelElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLLabelElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLLabelElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLLabelElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLLabelElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLLabelElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLLabelElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLLabelElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLLabelElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLLabelElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLLabelElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLLabelElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLLabelElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLLabelElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLLabelElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLLabelElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLLabelElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLLabelElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLLabelElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLLabelElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLLabelElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLLabelElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLLabelElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLLabelElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLLabelElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLLabelElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLLabelElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLLabelElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLLabelElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLLabelElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLLabelElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLLabelElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLLabelElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLLabelElementMethod "setHtmlFor" o = DOMHTMLLabelElementSetHtmlForMethodInfo - ResolveDOMHTMLLabelElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLLabelElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLLabelElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLLabelElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLLabelElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLLabelElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLLabelElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLLabelElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLLabelElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLLabelElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLLabelElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLLabelElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLLabelElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLLabelElementMethod t DOMHTMLLabelElement, MethodInfo info DOMHTMLLabelElement p) => IsLabelProxy t (DOMHTMLLabelElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLLabelElementMethod t DOMHTMLLabelElement, MethodInfo info DOMHTMLLabelElement p) => IsLabel t (DOMHTMLLabelElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "control" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLElement" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m (Maybe DOMHTMLElement) -getDOMHTMLLabelElementControl obj = liftIO $ getObjectPropertyObject obj "control" DOMHTMLElement - -data DOMHTMLLabelElementControlPropertyInfo -instance AttrInfo DOMHTMLLabelElementControlPropertyInfo where - type AttrAllowedOps DOMHTMLLabelElementControlPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLLabelElementControlPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLabelElementControlPropertyInfo = DOMHTMLLabelElementK - type AttrGetType DOMHTMLLabelElementControlPropertyInfo = (Maybe DOMHTMLElement) - type AttrLabel DOMHTMLLabelElementControlPropertyInfo = "control" - attrGet _ = getDOMHTMLLabelElementControl - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLLabelElementForm :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLLabelElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLLabelElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLLabelElementFormPropertyInfo -instance AttrInfo DOMHTMLLabelElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLLabelElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLLabelElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLabelElementFormPropertyInfo = DOMHTMLLabelElementK - type AttrGetType DOMHTMLLabelElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLLabelElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLLabelElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "html-for" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLLabelElementHtmlFor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLabelElementHtmlFor val = constructObjectPropertyString "html-for" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLabelElementHtmlForPropertyInfo = "html-for" - attrGet _ = getDOMHTMLLabelElementHtmlFor - attrSet _ = setDOMHTMLLabelElementHtmlFor - attrConstruct _ = constructDOMHTMLLabelElementHtmlFor - attrClear _ = undefined - -type instance AttributeList DOMHTMLLabelElement = DOMHTMLLabelElementAttributeList -type DOMHTMLLabelElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("control", DOMHTMLLabelElementControlPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLabelElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("htmlFor", DOMHTMLLabelElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLLabelElementControl :: AttrLabelProxy "control" -dOMHTMLLabelElementControl = AttrLabelProxy - -dOMHTMLLabelElementForm :: AttrLabelProxy "form" -dOMHTMLLabelElementForm = AttrLabelProxy - -dOMHTMLLabelElementHtmlFor :: AttrLabelProxy "htmlFor" -dOMHTMLLabelElementHtmlFor = AttrLabelProxy - -type instance SignalList DOMHTMLLabelElement = DOMHTMLLabelElementSignalList -type DOMHTMLLabelElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLLabelElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLabelElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLLabelElementK a) => MethodInfo DOMHTMLLabelElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLLabelElementGetForm - --- method DOMHTMLLabelElement::get_html_for --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLabelElementGetHtmlForMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLabelElementK a) => MethodInfo DOMHTMLLabelElementGetHtmlForMethodInfo a signature where - overloadedMethod _ = dOMHTMLLabelElementGetHtmlFor - --- method DOMHTMLLabelElement::set_html_for --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLabelElementSetHtmlForMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLabelElementK a) => MethodInfo DOMHTMLLabelElementSetHtmlForMethodInfo a signature where - overloadedMethod _ = dOMHTMLLabelElementSetHtmlFor - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLLabelElementGetFormMethodInfo -data DOMHTMLLabelElementGetHtmlForMethodInfo -data DOMHTMLLabelElementSetHtmlForMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs +++ /dev/null @@ -1,382 +0,0 @@ - - -{- | -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 - DOMHTMLLegendElementGetAlignMethodInfo , - dOMHTMLLegendElementGetAlign , - - --- ** dOMHTMLLegendElementGetForm - DOMHTMLLegendElementGetFormMethodInfo , - dOMHTMLLegendElementGetForm , - - --- ** dOMHTMLLegendElementSetAlign - DOMHTMLLegendElementSetAlignMethodInfo , - dOMHTMLLegendElementSetAlign , - - - - - -- * Properties --- ** Align - DOMHTMLLegendElementAlignPropertyInfo , - constructDOMHTMLLegendElementAlign , - dOMHTMLLegendElementAlign , - getDOMHTMLLegendElementAlign , - setDOMHTMLLegendElementAlign , - - --- ** Form - DOMHTMLLegendElementFormPropertyInfo , - dOMHTMLLegendElementForm , - getDOMHTMLLegendElementForm , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLLegendElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLLegendElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLLegendElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLLegendElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLLegendElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLLegendElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLLegendElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLLegendElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLLegendElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLLegendElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLLegendElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLLegendElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLLegendElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLLegendElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLLegendElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLLegendElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLLegendElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLLegendElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLLegendElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLLegendElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLLegendElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLLegendElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLLegendElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLLegendElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLLegendElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLLegendElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLLegendElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLLegendElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLLegendElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLLegendElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLLegendElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLLegendElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLLegendElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLLegendElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLLegendElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLLegendElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLLegendElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLLegendElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLLegendElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLLegendElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLLegendElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLLegendElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLLegendElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLLegendElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLLegendElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLLegendElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLLegendElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLLegendElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLLegendElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLLegendElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLLegendElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLLegendElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLLegendElementMethod "getAlign" o = DOMHTMLLegendElementGetAlignMethodInfo - ResolveDOMHTMLLegendElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLLegendElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLLegendElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLLegendElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLLegendElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLLegendElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLLegendElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLLegendElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLLegendElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLLegendElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLLegendElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLLegendElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLLegendElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLLegendElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLLegendElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLLegendElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLLegendElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLLegendElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLegendElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLLegendElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLegendElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLLegendElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLLegendElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLLegendElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLLegendElementMethod "getForm" o = DOMHTMLLegendElementGetFormMethodInfo - ResolveDOMHTMLLegendElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLLegendElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLLegendElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLLegendElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLLegendElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLLegendElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLLegendElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLLegendElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLLegendElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLLegendElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLLegendElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLLegendElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLLegendElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLLegendElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLLegendElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLLegendElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLLegendElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLLegendElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLLegendElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLLegendElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLLegendElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLLegendElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLLegendElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLLegendElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLLegendElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLLegendElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLLegendElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLLegendElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLLegendElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLLegendElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLLegendElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLLegendElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLLegendElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLLegendElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLLegendElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLLegendElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLLegendElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLLegendElementMethod "setAlign" o = DOMHTMLLegendElementSetAlignMethodInfo - ResolveDOMHTMLLegendElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLLegendElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLLegendElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLLegendElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLLegendElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLLegendElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLLegendElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLLegendElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLLegendElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLLegendElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLLegendElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLLegendElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLLegendElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLLegendElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLLegendElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLLegendElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLLegendElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLLegendElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLLegendElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLLegendElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLLegendElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLLegendElementMethod t DOMHTMLLegendElement, MethodInfo info DOMHTMLLegendElement p) => IsLabelProxy t (DOMHTMLLegendElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLLegendElementMethod t DOMHTMLLegendElement, MethodInfo info DOMHTMLLegendElement p) => IsLabel t (DOMHTMLLegendElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLegendElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> T.Text -> m () -setDOMHTMLLegendElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLLegendElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLegendElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLegendElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLLegendElementAlign - attrSet _ = setDOMHTMLLegendElementAlign - attrConstruct _ = constructDOMHTMLLegendElementAlign - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLLegendElementForm :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLLegendElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLLegendElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLLegendElementFormPropertyInfo -instance AttrInfo DOMHTMLLegendElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLLegendElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLLegendElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLegendElementFormPropertyInfo = DOMHTMLLegendElementK - type AttrGetType DOMHTMLLegendElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLLegendElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLLegendElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLLegendElement = DOMHTMLLegendElementAttributeList -type DOMHTMLLegendElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLLegendElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLegendElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLLegendElementAlign :: AttrLabelProxy "align" -dOMHTMLLegendElementAlign = AttrLabelProxy - -dOMHTMLLegendElementForm :: AttrLabelProxy "form" -dOMHTMLLegendElementForm = AttrLabelProxy - -type instance SignalList DOMHTMLLegendElement = DOMHTMLLegendElementSignalList -type DOMHTMLLegendElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLLegendElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLegendElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLegendElementK a) => MethodInfo DOMHTMLLegendElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLLegendElementGetAlign - --- method DOMHTMLLegendElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLegendElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLLegendElementK a) => MethodInfo DOMHTMLLegendElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLLegendElementGetForm - --- method DOMHTMLLegendElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLegendElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLegendElementK a) => MethodInfo DOMHTMLLegendElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLLegendElementSetAlign - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLLegendElementGetAlignMethodInfo -data DOMHTMLLegendElementGetFormMethodInfo -data DOMHTMLLegendElementSetAlignMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs +++ /dev/null @@ -1,1263 +0,0 @@ - - -{- | -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 - DOMHTMLLinkElementGetCharsetMethodInfo , - dOMHTMLLinkElementGetCharset , - - --- ** dOMHTMLLinkElementGetDisabled - DOMHTMLLinkElementGetDisabledMethodInfo , - dOMHTMLLinkElementGetDisabled , - - --- ** dOMHTMLLinkElementGetHref - DOMHTMLLinkElementGetHrefMethodInfo , - dOMHTMLLinkElementGetHref , - - --- ** dOMHTMLLinkElementGetHreflang - DOMHTMLLinkElementGetHreflangMethodInfo , - dOMHTMLLinkElementGetHreflang , - - --- ** dOMHTMLLinkElementGetMedia - DOMHTMLLinkElementGetMediaMethodInfo , - dOMHTMLLinkElementGetMedia , - - --- ** dOMHTMLLinkElementGetRel - DOMHTMLLinkElementGetRelMethodInfo , - dOMHTMLLinkElementGetRel , - - --- ** dOMHTMLLinkElementGetRev - DOMHTMLLinkElementGetRevMethodInfo , - dOMHTMLLinkElementGetRev , - - --- ** dOMHTMLLinkElementGetSheet - DOMHTMLLinkElementGetSheetMethodInfo , - dOMHTMLLinkElementGetSheet , - - --- ** dOMHTMLLinkElementGetTarget - DOMHTMLLinkElementGetTargetMethodInfo , - dOMHTMLLinkElementGetTarget , - - --- ** dOMHTMLLinkElementGetTypeAttr - DOMHTMLLinkElementGetTypeAttrMethodInfo , - dOMHTMLLinkElementGetTypeAttr , - - --- ** dOMHTMLLinkElementSetCharset - DOMHTMLLinkElementSetCharsetMethodInfo , - dOMHTMLLinkElementSetCharset , - - --- ** dOMHTMLLinkElementSetDisabled - DOMHTMLLinkElementSetDisabledMethodInfo , - dOMHTMLLinkElementSetDisabled , - - --- ** dOMHTMLLinkElementSetHref - DOMHTMLLinkElementSetHrefMethodInfo , - dOMHTMLLinkElementSetHref , - - --- ** dOMHTMLLinkElementSetHreflang - DOMHTMLLinkElementSetHreflangMethodInfo , - dOMHTMLLinkElementSetHreflang , - - --- ** dOMHTMLLinkElementSetMedia - DOMHTMLLinkElementSetMediaMethodInfo , - dOMHTMLLinkElementSetMedia , - - --- ** dOMHTMLLinkElementSetRel - DOMHTMLLinkElementSetRelMethodInfo , - dOMHTMLLinkElementSetRel , - - --- ** dOMHTMLLinkElementSetRev - DOMHTMLLinkElementSetRevMethodInfo , - dOMHTMLLinkElementSetRev , - - --- ** dOMHTMLLinkElementSetTarget - DOMHTMLLinkElementSetTargetMethodInfo , - dOMHTMLLinkElementSetTarget , - - --- ** dOMHTMLLinkElementSetTypeAttr - DOMHTMLLinkElementSetTypeAttrMethodInfo , - dOMHTMLLinkElementSetTypeAttr , - - - - - -- * Properties --- ** Charset - DOMHTMLLinkElementCharsetPropertyInfo , - constructDOMHTMLLinkElementCharset , - dOMHTMLLinkElementCharset , - getDOMHTMLLinkElementCharset , - setDOMHTMLLinkElementCharset , - - --- ** Disabled - DOMHTMLLinkElementDisabledPropertyInfo , - constructDOMHTMLLinkElementDisabled , - dOMHTMLLinkElementDisabled , - getDOMHTMLLinkElementDisabled , - setDOMHTMLLinkElementDisabled , - - --- ** Href - DOMHTMLLinkElementHrefPropertyInfo , - constructDOMHTMLLinkElementHref , - dOMHTMLLinkElementHref , - getDOMHTMLLinkElementHref , - setDOMHTMLLinkElementHref , - - --- ** Hreflang - DOMHTMLLinkElementHreflangPropertyInfo , - constructDOMHTMLLinkElementHreflang , - dOMHTMLLinkElementHreflang , - getDOMHTMLLinkElementHreflang , - setDOMHTMLLinkElementHreflang , - - --- ** Media - DOMHTMLLinkElementMediaPropertyInfo , - constructDOMHTMLLinkElementMedia , - dOMHTMLLinkElementMedia , - getDOMHTMLLinkElementMedia , - setDOMHTMLLinkElementMedia , - - --- ** Rel - DOMHTMLLinkElementRelPropertyInfo , - constructDOMHTMLLinkElementRel , - dOMHTMLLinkElementRel , - getDOMHTMLLinkElementRel , - setDOMHTMLLinkElementRel , - - --- ** Rev - DOMHTMLLinkElementRevPropertyInfo , - constructDOMHTMLLinkElementRev , - dOMHTMLLinkElementRev , - getDOMHTMLLinkElementRev , - setDOMHTMLLinkElementRev , - - --- ** Sheet - DOMHTMLLinkElementSheetPropertyInfo , - dOMHTMLLinkElementSheet , - getDOMHTMLLinkElementSheet , - - --- ** Target - DOMHTMLLinkElementTargetPropertyInfo , - constructDOMHTMLLinkElementTarget , - dOMHTMLLinkElementTarget , - getDOMHTMLLinkElementTarget , - setDOMHTMLLinkElementTarget , - - --- ** Type - DOMHTMLLinkElementTypePropertyInfo , - clearDOMHTMLLinkElementType , - constructDOMHTMLLinkElementType , - dOMHTMLLinkElementType , - getDOMHTMLLinkElementType , - setDOMHTMLLinkElementType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLLinkElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLLinkElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLLinkElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLLinkElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLLinkElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLLinkElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLLinkElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLLinkElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLLinkElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLLinkElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLLinkElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLLinkElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLLinkElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLLinkElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLLinkElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLLinkElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLLinkElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLLinkElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLLinkElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLLinkElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLLinkElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLLinkElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLLinkElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLLinkElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLLinkElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLLinkElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLLinkElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLLinkElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLLinkElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLLinkElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLLinkElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLLinkElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLLinkElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLLinkElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLLinkElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLLinkElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLLinkElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLLinkElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLLinkElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLLinkElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLLinkElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLLinkElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLLinkElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLLinkElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLLinkElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLLinkElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLLinkElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLLinkElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLLinkElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLLinkElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLLinkElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLLinkElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLLinkElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLLinkElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLLinkElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLLinkElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLLinkElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLLinkElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLLinkElementMethod "getCharset" o = DOMHTMLLinkElementGetCharsetMethodInfo - ResolveDOMHTMLLinkElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLLinkElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLLinkElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLLinkElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLLinkElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLLinkElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLLinkElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLLinkElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLLinkElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLLinkElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLLinkElementMethod "getDisabled" o = DOMHTMLLinkElementGetDisabledMethodInfo - ResolveDOMHTMLLinkElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLLinkElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLinkElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLLinkElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLLinkElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLLinkElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLLinkElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLLinkElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLLinkElementMethod "getHref" o = DOMHTMLLinkElementGetHrefMethodInfo - ResolveDOMHTMLLinkElementMethod "getHreflang" o = DOMHTMLLinkElementGetHreflangMethodInfo - ResolveDOMHTMLLinkElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLLinkElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLLinkElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLLinkElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLLinkElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLLinkElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLLinkElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLLinkElementMethod "getMedia" o = DOMHTMLLinkElementGetMediaMethodInfo - ResolveDOMHTMLLinkElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLLinkElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLLinkElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLLinkElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLLinkElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLLinkElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLLinkElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLLinkElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLLinkElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLLinkElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLLinkElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLLinkElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLLinkElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLLinkElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLLinkElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLLinkElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLLinkElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLLinkElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLLinkElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLLinkElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLLinkElementMethod "getRel" o = DOMHTMLLinkElementGetRelMethodInfo - ResolveDOMHTMLLinkElementMethod "getRev" o = DOMHTMLLinkElementGetRevMethodInfo - ResolveDOMHTMLLinkElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLLinkElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLLinkElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLLinkElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLLinkElementMethod "getSheet" o = DOMHTMLLinkElementGetSheetMethodInfo - ResolveDOMHTMLLinkElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLLinkElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLLinkElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLLinkElementMethod "getTarget" o = DOMHTMLLinkElementGetTargetMethodInfo - ResolveDOMHTMLLinkElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLLinkElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLLinkElementMethod "getTypeAttr" o = DOMHTMLLinkElementGetTypeAttrMethodInfo - ResolveDOMHTMLLinkElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLLinkElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLLinkElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLLinkElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLLinkElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLLinkElementMethod "setCharset" o = DOMHTMLLinkElementSetCharsetMethodInfo - ResolveDOMHTMLLinkElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLLinkElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLLinkElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLLinkElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLLinkElementMethod "setDisabled" o = DOMHTMLLinkElementSetDisabledMethodInfo - ResolveDOMHTMLLinkElementMethod "setHref" o = DOMHTMLLinkElementSetHrefMethodInfo - ResolveDOMHTMLLinkElementMethod "setHreflang" o = DOMHTMLLinkElementSetHreflangMethodInfo - ResolveDOMHTMLLinkElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLLinkElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLLinkElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLLinkElementMethod "setMedia" o = DOMHTMLLinkElementSetMediaMethodInfo - ResolveDOMHTMLLinkElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLLinkElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLLinkElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLLinkElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLLinkElementMethod "setRel" o = DOMHTMLLinkElementSetRelMethodInfo - ResolveDOMHTMLLinkElementMethod "setRev" o = DOMHTMLLinkElementSetRevMethodInfo - ResolveDOMHTMLLinkElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLLinkElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLLinkElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLLinkElementMethod "setTarget" o = DOMHTMLLinkElementSetTargetMethodInfo - ResolveDOMHTMLLinkElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLLinkElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLLinkElementMethod "setTypeAttr" o = DOMHTMLLinkElementSetTypeAttrMethodInfo - ResolveDOMHTMLLinkElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLLinkElementMethod t DOMHTMLLinkElement, MethodInfo info DOMHTMLLinkElement p) => IsLabelProxy t (DOMHTMLLinkElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLLinkElementMethod t DOMHTMLLinkElement, MethodInfo info DOMHTMLLinkElement p) => IsLabel t (DOMHTMLLinkElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) - -constructDOMHTMLLinkElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementCharsetPropertyInfo = "charset" - attrGet _ = getDOMHTMLLinkElementCharset - attrSet _ = setDOMHTMLLinkElementCharset - attrConstruct _ = constructDOMHTMLLinkElementCharset - attrClear _ = undefined - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLLinkElementDisabled - attrSet _ = setDOMHTMLLinkElementDisabled - attrConstruct _ = constructDOMHTMLLinkElementDisabled - attrClear _ = undefined - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementHref obj = liftIO $ getObjectPropertyString obj "href" - -setDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" (Just val) - -constructDOMHTMLLinkElementHref :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementHrefPropertyInfo = "href" - attrGet _ = getDOMHTMLLinkElementHref - attrSet _ = setDOMHTMLLinkElementHref - attrConstruct _ = constructDOMHTMLLinkElementHref - attrClear _ = undefined - --- VVV Prop "hreflang" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" - -setDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" (Just val) - -constructDOMHTMLLinkElementHreflang :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementHreflangPropertyInfo = "hreflang" - attrGet _ = getDOMHTMLLinkElementHreflang - attrSet _ = setDOMHTMLLinkElementHreflang - attrConstruct _ = constructDOMHTMLLinkElementHreflang - attrClear _ = undefined - --- VVV Prop "media" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementMedia obj = liftIO $ getObjectPropertyString obj "media" - -setDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" (Just val) - -constructDOMHTMLLinkElementMedia :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementMediaPropertyInfo = "media" - attrGet _ = getDOMHTMLLinkElementMedia - attrSet _ = setDOMHTMLLinkElementMedia - attrConstruct _ = constructDOMHTMLLinkElementMedia - attrClear _ = undefined - --- VVV Prop "rel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementRel obj = liftIO $ getObjectPropertyString obj "rel" - -setDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" (Just val) - -constructDOMHTMLLinkElementRel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementRelPropertyInfo = "rel" - attrGet _ = getDOMHTMLLinkElementRel - attrSet _ = setDOMHTMLLinkElementRel - attrConstruct _ = constructDOMHTMLLinkElementRel - attrClear _ = undefined - --- VVV Prop "rev" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementRev obj = liftIO $ getObjectPropertyString obj "rev" - -setDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" (Just val) - -constructDOMHTMLLinkElementRev :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementRevPropertyInfo = "rev" - attrGet _ = getDOMHTMLLinkElementRev - attrSet _ = setDOMHTMLLinkElementRev - attrConstruct _ = constructDOMHTMLLinkElementRev - attrClear _ = undefined - --- VVV Prop "sheet" - -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe DOMStyleSheet) -getDOMHTMLLinkElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet - -data DOMHTMLLinkElementSheetPropertyInfo -instance AttrInfo DOMHTMLLinkElementSheetPropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = (Maybe DOMStyleSheet) - type AttrLabel DOMHTMLLinkElementSheetPropertyInfo = "sheet" - attrGet _ = getDOMHTMLLinkElementSheet - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementTarget obj = liftIO $ getObjectPropertyString obj "target" - -setDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" (Just val) - -constructDOMHTMLLinkElementTarget :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementTargetPropertyInfo = "target" - attrGet _ = getDOMHTMLLinkElementTarget - attrSet _ = setDOMHTMLLinkElementTarget - attrConstruct _ = constructDOMHTMLLinkElementTarget - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m (Maybe T.Text) -getDOMHTMLLinkElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () -setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLLinkElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m () -clearDOMHTMLLinkElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLLinkElementTypePropertyInfo -instance AttrInfo DOMHTMLLinkElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLLinkElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLLinkElementTypePropertyInfo = DOMHTMLLinkElementK - type AttrGetType DOMHTMLLinkElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLLinkElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLLinkElementType - attrSet _ = setDOMHTMLLinkElementType - attrConstruct _ = constructDOMHTMLLinkElementType - attrClear _ = clearDOMHTMLLinkElementType - -type instance AttributeList DOMHTMLLinkElement = DOMHTMLLinkElementAttributeList -type DOMHTMLLinkElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLLinkElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLLinkElementHrefPropertyInfo), '("hreflang", DOMHTMLLinkElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLLinkElementMediaPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rel", DOMHTMLLinkElementRelPropertyInfo), '("rev", DOMHTMLLinkElementRevPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLLinkElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("target", DOMHTMLLinkElementTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLLinkElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLLinkElementCharset :: AttrLabelProxy "charset" -dOMHTMLLinkElementCharset = AttrLabelProxy - -dOMHTMLLinkElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLLinkElementDisabled = AttrLabelProxy - -dOMHTMLLinkElementHref :: AttrLabelProxy "href" -dOMHTMLLinkElementHref = AttrLabelProxy - -dOMHTMLLinkElementHreflang :: AttrLabelProxy "hreflang" -dOMHTMLLinkElementHreflang = AttrLabelProxy - -dOMHTMLLinkElementMedia :: AttrLabelProxy "media" -dOMHTMLLinkElementMedia = AttrLabelProxy - -dOMHTMLLinkElementRel :: AttrLabelProxy "rel" -dOMHTMLLinkElementRel = AttrLabelProxy - -dOMHTMLLinkElementRev :: AttrLabelProxy "rev" -dOMHTMLLinkElementRev = AttrLabelProxy - -dOMHTMLLinkElementSheet :: AttrLabelProxy "sheet" -dOMHTMLLinkElementSheet = AttrLabelProxy - -dOMHTMLLinkElementTarget :: AttrLabelProxy "target" -dOMHTMLLinkElementTarget = AttrLabelProxy - -dOMHTMLLinkElementType :: AttrLabelProxy "type" -dOMHTMLLinkElementType = AttrLabelProxy - -type instance SignalList DOMHTMLLinkElement = DOMHTMLLinkElementSignalList -type DOMHTMLLinkElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLLinkElement::get_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetCharsetMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetCharset - --- method DOMHTMLLinkElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetDisabled - --- method DOMHTMLLinkElement::get_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetHrefMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetHref - --- method DOMHTMLLinkElement::get_hreflang --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetHreflangMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetHreflangMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetHreflang - --- method DOMHTMLLinkElement::get_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetMediaMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetMediaMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetMedia - --- method DOMHTMLLinkElement::get_rel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetRelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetRelMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetRel - --- method DOMHTMLLinkElement::get_rev --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetRevMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetRevMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetRev - --- method DOMHTMLLinkElement::get_sheet --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetSheetMethodInfo -instance (signature ~ (m DOMStyleSheet), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetSheetMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetSheet - --- method DOMHTMLLinkElement::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetTargetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetTarget - --- method DOMHTMLLinkElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLLinkElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementGetTypeAttr - --- method DOMHTMLLinkElement::set_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetCharsetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetCharsetMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetCharset - --- method DOMHTMLLinkElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetDisabled - --- method DOMHTMLLinkElement::set_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetHrefMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetHrefMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetHref - --- method DOMHTMLLinkElement::set_hreflang --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetHreflangMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetHreflangMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetHreflang - --- method DOMHTMLLinkElement::set_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetMediaMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetMediaMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetMedia - --- method DOMHTMLLinkElement::set_rel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetRelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetRelMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetRel - --- method DOMHTMLLinkElement::set_rev --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetRevMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetRevMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetRev - --- method DOMHTMLLinkElement::set_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetTargetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetTargetMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetTarget - --- method DOMHTMLLinkElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLLinkElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLLinkElementK a) => MethodInfo DOMHTMLLinkElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLLinkElementSetTypeAttr - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot +++ /dev/null @@ -1,42 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLLinkElementGetCharsetMethodInfo -data DOMHTMLLinkElementGetDisabledMethodInfo -data DOMHTMLLinkElementGetHrefMethodInfo -data DOMHTMLLinkElementGetHreflangMethodInfo -data DOMHTMLLinkElementGetMediaMethodInfo -data DOMHTMLLinkElementGetRelMethodInfo -data DOMHTMLLinkElementGetRevMethodInfo -data DOMHTMLLinkElementGetSheetMethodInfo -data DOMHTMLLinkElementGetTargetMethodInfo -data DOMHTMLLinkElementGetTypeAttrMethodInfo -data DOMHTMLLinkElementSetCharsetMethodInfo -data DOMHTMLLinkElementSetDisabledMethodInfo -data DOMHTMLLinkElementSetHrefMethodInfo -data DOMHTMLLinkElementSetHreflangMethodInfo -data DOMHTMLLinkElementSetMediaMethodInfo -data DOMHTMLLinkElementSetRelMethodInfo -data DOMHTMLLinkElementSetRevMethodInfo -data DOMHTMLLinkElementSetTargetMethodInfo -data DOMHTMLLinkElementSetTypeAttrMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs +++ /dev/null @@ -1,382 +0,0 @@ - - -{- | -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 - DOMHTMLMapElementGetAreasMethodInfo , - dOMHTMLMapElementGetAreas , - - --- ** dOMHTMLMapElementGetName - DOMHTMLMapElementGetNameMethodInfo , - dOMHTMLMapElementGetName , - - --- ** dOMHTMLMapElementSetName - DOMHTMLMapElementSetNameMethodInfo , - dOMHTMLMapElementSetName , - - - - - -- * Properties --- ** Areas - DOMHTMLMapElementAreasPropertyInfo , - dOMHTMLMapElementAreas , - getDOMHTMLMapElementAreas , - - --- ** Name - DOMHTMLMapElementNamePropertyInfo , - constructDOMHTMLMapElementName , - dOMHTMLMapElementName , - getDOMHTMLMapElementName , - setDOMHTMLMapElementName , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLMapElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLMapElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLMapElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLMapElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLMapElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLMapElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLMapElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLMapElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLMapElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLMapElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLMapElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLMapElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLMapElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLMapElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLMapElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLMapElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLMapElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLMapElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLMapElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLMapElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLMapElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLMapElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLMapElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLMapElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLMapElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLMapElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLMapElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLMapElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLMapElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLMapElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLMapElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLMapElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLMapElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLMapElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLMapElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLMapElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLMapElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLMapElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLMapElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLMapElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLMapElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLMapElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLMapElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLMapElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLMapElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLMapElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLMapElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLMapElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLMapElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLMapElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLMapElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLMapElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLMapElementMethod "getAreas" o = DOMHTMLMapElementGetAreasMethodInfo - ResolveDOMHTMLMapElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLMapElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLMapElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLMapElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLMapElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLMapElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLMapElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLMapElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLMapElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLMapElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLMapElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLMapElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLMapElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLMapElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLMapElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLMapElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLMapElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLMapElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMapElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLMapElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMapElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLMapElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLMapElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLMapElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLMapElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLMapElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLMapElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLMapElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLMapElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLMapElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLMapElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLMapElementMethod "getName" o = DOMHTMLMapElementGetNameMethodInfo - ResolveDOMHTMLMapElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLMapElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLMapElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLMapElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLMapElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLMapElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLMapElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLMapElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLMapElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLMapElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLMapElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLMapElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLMapElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLMapElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLMapElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLMapElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLMapElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLMapElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLMapElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLMapElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLMapElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLMapElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLMapElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLMapElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLMapElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLMapElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLMapElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLMapElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLMapElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLMapElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLMapElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLMapElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLMapElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLMapElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLMapElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLMapElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLMapElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLMapElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLMapElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLMapElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLMapElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLMapElementMethod "setName" o = DOMHTMLMapElementSetNameMethodInfo - ResolveDOMHTMLMapElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLMapElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLMapElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLMapElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLMapElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLMapElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLMapElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLMapElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLMapElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLMapElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLMapElementMethod t DOMHTMLMapElement, MethodInfo info DOMHTMLMapElement p) => IsLabelProxy t (DOMHTMLMapElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLMapElementMethod t DOMHTMLMapElement, MethodInfo info DOMHTMLMapElement p) => IsLabel t (DOMHTMLMapElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "areas" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMapElementAreas :: (MonadIO m, DOMHTMLMapElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLMapElementAreas obj = liftIO $ getObjectPropertyObject obj "areas" DOMHTMLCollection - -data DOMHTMLMapElementAreasPropertyInfo -instance AttrInfo DOMHTMLMapElementAreasPropertyInfo where - type AttrAllowedOps DOMHTMLMapElementAreasPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLMapElementAreasPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLMapElementAreasPropertyInfo = DOMHTMLMapElementK - type AttrGetType DOMHTMLMapElementAreasPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLMapElementAreasPropertyInfo = "areas" - attrGet _ = getDOMHTMLMapElementAreas - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMapElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> T.Text -> m () -setDOMHTMLMapElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLMapElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMapElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLMapElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLMapElementName - attrSet _ = setDOMHTMLMapElementName - attrConstruct _ = constructDOMHTMLMapElementName - attrClear _ = undefined - -type instance AttributeList DOMHTMLMapElement = DOMHTMLMapElementAttributeList -type DOMHTMLMapElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("areas", DOMHTMLMapElementAreasPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMapElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLMapElementAreas :: AttrLabelProxy "areas" -dOMHTMLMapElementAreas = AttrLabelProxy - -dOMHTMLMapElementName :: AttrLabelProxy "name" -dOMHTMLMapElementName = AttrLabelProxy - -type instance SignalList DOMHTMLMapElement = DOMHTMLMapElementSignalList -type DOMHTMLMapElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLMapElement::get_areas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLMapElementGetAreasMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLMapElementK a) => MethodInfo DOMHTMLMapElementGetAreasMethodInfo a signature where - overloadedMethod _ = dOMHTMLMapElementGetAreas - --- method DOMHTMLMapElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLMapElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLMapElementK a) => MethodInfo DOMHTMLMapElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLMapElementGetName - --- method DOMHTMLMapElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLMapElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLMapElementK a) => MethodInfo DOMHTMLMapElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLMapElementSetName - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLMapElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLMapElementGetAreasMethodInfo -data DOMHTMLMapElementGetNameMethodInfo -data DOMHTMLMapElementSetNameMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs +++ /dev/null @@ -1,701 +0,0 @@ - - -{- | -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 - DOMHTMLMarqueeElementStartMethodInfo , - dOMHTMLMarqueeElementStart , - - --- ** dOMHTMLMarqueeElementStop - DOMHTMLMarqueeElementStopMethodInfo , - dOMHTMLMarqueeElementStop , - - - - - -- * Properties --- ** Behavior - DOMHTMLMarqueeElementBehaviorPropertyInfo, - clearDOMHTMLMarqueeElementBehavior , - constructDOMHTMLMarqueeElementBehavior , - dOMHTMLMarqueeElementBehavior , - getDOMHTMLMarqueeElementBehavior , - setDOMHTMLMarqueeElementBehavior , - - --- ** BgColor - DOMHTMLMarqueeElementBgColorPropertyInfo, - clearDOMHTMLMarqueeElementBgColor , - constructDOMHTMLMarqueeElementBgColor , - dOMHTMLMarqueeElementBgColor , - getDOMHTMLMarqueeElementBgColor , - setDOMHTMLMarqueeElementBgColor , - - --- ** Direction - DOMHTMLMarqueeElementDirectionPropertyInfo, - clearDOMHTMLMarqueeElementDirection , - constructDOMHTMLMarqueeElementDirection , - dOMHTMLMarqueeElementDirection , - getDOMHTMLMarqueeElementDirection , - setDOMHTMLMarqueeElementDirection , - - --- ** Height - DOMHTMLMarqueeElementHeightPropertyInfo , - clearDOMHTMLMarqueeElementHeight , - constructDOMHTMLMarqueeElementHeight , - dOMHTMLMarqueeElementHeight , - getDOMHTMLMarqueeElementHeight , - setDOMHTMLMarqueeElementHeight , - - --- ** Hspace - DOMHTMLMarqueeElementHspacePropertyInfo , - constructDOMHTMLMarqueeElementHspace , - dOMHTMLMarqueeElementHspace , - getDOMHTMLMarqueeElementHspace , - setDOMHTMLMarqueeElementHspace , - - --- ** Loop - DOMHTMLMarqueeElementLoopPropertyInfo , - constructDOMHTMLMarqueeElementLoop , - dOMHTMLMarqueeElementLoop , - getDOMHTMLMarqueeElementLoop , - setDOMHTMLMarqueeElementLoop , - - --- ** ScrollAmount - DOMHTMLMarqueeElementScrollAmountPropertyInfo, - constructDOMHTMLMarqueeElementScrollAmount, - dOMHTMLMarqueeElementScrollAmount , - getDOMHTMLMarqueeElementScrollAmount , - setDOMHTMLMarqueeElementScrollAmount , - - --- ** ScrollDelay - DOMHTMLMarqueeElementScrollDelayPropertyInfo, - constructDOMHTMLMarqueeElementScrollDelay, - dOMHTMLMarqueeElementScrollDelay , - getDOMHTMLMarqueeElementScrollDelay , - setDOMHTMLMarqueeElementScrollDelay , - - --- ** TrueSpeed - DOMHTMLMarqueeElementTrueSpeedPropertyInfo, - constructDOMHTMLMarqueeElementTrueSpeed , - dOMHTMLMarqueeElementTrueSpeed , - getDOMHTMLMarqueeElementTrueSpeed , - setDOMHTMLMarqueeElementTrueSpeed , - - --- ** Vspace - DOMHTMLMarqueeElementVspacePropertyInfo , - constructDOMHTMLMarqueeElementVspace , - dOMHTMLMarqueeElementVspace , - getDOMHTMLMarqueeElementVspace , - setDOMHTMLMarqueeElementVspace , - - --- ** Width - DOMHTMLMarqueeElementWidthPropertyInfo , - clearDOMHTMLMarqueeElementWidth , - constructDOMHTMLMarqueeElementWidth , - dOMHTMLMarqueeElementWidth , - getDOMHTMLMarqueeElementWidth , - setDOMHTMLMarqueeElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLMarqueeElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLMarqueeElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLMarqueeElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLMarqueeElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLMarqueeElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLMarqueeElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLMarqueeElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLMarqueeElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLMarqueeElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLMarqueeElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLMarqueeElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLMarqueeElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLMarqueeElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLMarqueeElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLMarqueeElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLMarqueeElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLMarqueeElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLMarqueeElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLMarqueeElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLMarqueeElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLMarqueeElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLMarqueeElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLMarqueeElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLMarqueeElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLMarqueeElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLMarqueeElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLMarqueeElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLMarqueeElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLMarqueeElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLMarqueeElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLMarqueeElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLMarqueeElementMethod "start" o = DOMHTMLMarqueeElementStartMethodInfo - ResolveDOMHTMLMarqueeElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLMarqueeElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLMarqueeElementMethod "stop" o = DOMHTMLMarqueeElementStopMethodInfo - ResolveDOMHTMLMarqueeElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLMarqueeElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLMarqueeElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLMarqueeElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLMarqueeElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLMarqueeElementMethod t DOMHTMLMarqueeElement, MethodInfo info DOMHTMLMarqueeElement p) => IsLabelProxy t (DOMHTMLMarqueeElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLMarqueeElementMethod t DOMHTMLMarqueeElement, MethodInfo info DOMHTMLMarqueeElement p) => IsLabel t (DOMHTMLMarqueeElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "behavior" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMarqueeElementBehavior obj = liftIO $ getObjectPropertyString obj "behavior" - -setDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementBehavior obj val = liftIO $ setObjectPropertyString obj "behavior" (Just val) - -constructDOMHTMLMarqueeElementBehavior :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementBehavior val = constructObjectPropertyString "behavior" (Just val) - -clearDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () -clearDOMHTMLMarqueeElementBehavior obj = liftIO $ setObjectPropertyString obj "behavior" (Nothing :: Maybe T.Text) - -data DOMHTMLMarqueeElementBehaviorPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementBehaviorPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementBehaviorPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLMarqueeElementBehaviorPropertyInfo = "behavior" - attrGet _ = getDOMHTMLMarqueeElementBehavior - attrSet _ = setDOMHTMLMarqueeElementBehavior - attrConstruct _ = constructDOMHTMLMarqueeElementBehavior - attrClear _ = clearDOMHTMLMarqueeElementBehavior - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLMarqueeElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementBgColor val = constructObjectPropertyString "bg-color" (Just val) - -clearDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () -clearDOMHTMLMarqueeElementBgColor obj = liftIO $ setObjectPropertyString obj "bg-color" (Nothing :: Maybe T.Text) - -data DOMHTMLMarqueeElementBgColorPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementBgColorPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementBgColorPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLMarqueeElementBgColorPropertyInfo = "bg-color" - attrGet _ = getDOMHTMLMarqueeElementBgColor - attrSet _ = setDOMHTMLMarqueeElementBgColor - attrConstruct _ = constructDOMHTMLMarqueeElementBgColor - attrClear _ = clearDOMHTMLMarqueeElementBgColor - --- VVV Prop "direction" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMarqueeElementDirection obj = liftIO $ getObjectPropertyString obj "direction" - -setDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementDirection obj val = liftIO $ setObjectPropertyString obj "direction" (Just val) - -constructDOMHTMLMarqueeElementDirection :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementDirection val = constructObjectPropertyString "direction" (Just val) - -clearDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () -clearDOMHTMLMarqueeElementDirection obj = liftIO $ setObjectPropertyString obj "direction" (Nothing :: Maybe T.Text) - -data DOMHTMLMarqueeElementDirectionPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementDirectionPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementDirectionPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLMarqueeElementDirectionPropertyInfo = "direction" - attrGet _ = getDOMHTMLMarqueeElementDirection - attrSet _ = setDOMHTMLMarqueeElementDirection - attrConstruct _ = constructDOMHTMLMarqueeElementDirection - attrClear _ = clearDOMHTMLMarqueeElementDirection - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMarqueeElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) - -constructDOMHTMLMarqueeElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementHeight val = constructObjectPropertyString "height" (Just val) - -clearDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () -clearDOMHTMLMarqueeElementHeight obj = liftIO $ setObjectPropertyString obj "height" (Nothing :: Maybe T.Text) - -data DOMHTMLMarqueeElementHeightPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementHeightPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementHeightPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLMarqueeElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLMarqueeElementHeight - attrSet _ = setDOMHTMLMarqueeElementHeight - attrConstruct _ = constructDOMHTMLMarqueeElementHeight - attrClear _ = clearDOMHTMLMarqueeElementHeight - --- VVV Prop "hspace" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CULong -getDOMHTMLMarqueeElementHspace obj = liftIO $ getObjectPropertyULong obj "hspace" - -setDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CULong -> m () -setDOMHTMLMarqueeElementHspace obj val = liftIO $ setObjectPropertyULong obj "hspace" val - -constructDOMHTMLMarqueeElementHspace :: CULong -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementHspace val = constructObjectPropertyULong "hspace" val - -data DOMHTMLMarqueeElementHspacePropertyInfo -instance AttrInfo DOMHTMLMarqueeElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = (~) CULong - type AttrBaseTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementHspacePropertyInfo = CULong - type AttrLabel DOMHTMLMarqueeElementHspacePropertyInfo = "hspace" - attrGet _ = getDOMHTMLMarqueeElementHspace - attrSet _ = setDOMHTMLMarqueeElementHspace - attrConstruct _ = constructDOMHTMLMarqueeElementHspace - attrClear _ = undefined - --- VVV Prop "loop" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CLong -getDOMHTMLMarqueeElementLoop obj = liftIO $ getObjectPropertyLong obj "loop" - -setDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CLong -> m () -setDOMHTMLMarqueeElementLoop obj val = liftIO $ setObjectPropertyLong obj "loop" val - -constructDOMHTMLMarqueeElementLoop :: CLong -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementLoop val = constructObjectPropertyLong "loop" val - -data DOMHTMLMarqueeElementLoopPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementLoopPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementLoopPropertyInfo = CLong - type AttrLabel DOMHTMLMarqueeElementLoopPropertyInfo = "loop" - attrGet _ = getDOMHTMLMarqueeElementLoop - attrSet _ = setDOMHTMLMarqueeElementLoop - attrConstruct _ = constructDOMHTMLMarqueeElementLoop - attrClear _ = undefined - --- VVV Prop "scroll-amount" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CLong -getDOMHTMLMarqueeElementScrollAmount obj = liftIO $ getObjectPropertyLong obj "scroll-amount" - -setDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CLong -> m () -setDOMHTMLMarqueeElementScrollAmount obj val = liftIO $ setObjectPropertyLong obj "scroll-amount" val - -constructDOMHTMLMarqueeElementScrollAmount :: CLong -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementScrollAmount val = constructObjectPropertyLong "scroll-amount" val - -data DOMHTMLMarqueeElementScrollAmountPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementScrollAmountPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementScrollAmountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementScrollAmountPropertyInfo = CLong - type AttrLabel DOMHTMLMarqueeElementScrollAmountPropertyInfo = "scroll-amount" - attrGet _ = getDOMHTMLMarqueeElementScrollAmount - attrSet _ = setDOMHTMLMarqueeElementScrollAmount - attrConstruct _ = constructDOMHTMLMarqueeElementScrollAmount - attrClear _ = undefined - --- VVV Prop "scroll-delay" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CLong -getDOMHTMLMarqueeElementScrollDelay obj = liftIO $ getObjectPropertyLong obj "scroll-delay" - -setDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CLong -> m () -setDOMHTMLMarqueeElementScrollDelay obj val = liftIO $ setObjectPropertyLong obj "scroll-delay" val - -constructDOMHTMLMarqueeElementScrollDelay :: CLong -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementScrollDelay val = constructObjectPropertyLong "scroll-delay" val - -data DOMHTMLMarqueeElementScrollDelayPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementScrollDelayPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementScrollDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementScrollDelayPropertyInfo = CLong - type AttrLabel DOMHTMLMarqueeElementScrollDelayPropertyInfo = "scroll-delay" - attrGet _ = getDOMHTMLMarqueeElementScrollDelay - attrSet _ = setDOMHTMLMarqueeElementScrollDelay - attrConstruct _ = constructDOMHTMLMarqueeElementScrollDelay - attrClear _ = undefined - --- VVV Prop "true-speed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "true-speed" - attrGet _ = getDOMHTMLMarqueeElementTrueSpeed - attrSet _ = setDOMHTMLMarqueeElementTrueSpeed - attrConstruct _ = constructDOMHTMLMarqueeElementTrueSpeed - attrClear _ = undefined - --- VVV Prop "vspace" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m CULong -getDOMHTMLMarqueeElementVspace obj = liftIO $ getObjectPropertyULong obj "vspace" - -setDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> CULong -> m () -setDOMHTMLMarqueeElementVspace obj val = liftIO $ setObjectPropertyULong obj "vspace" val - -constructDOMHTMLMarqueeElementVspace :: CULong -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementVspace val = constructObjectPropertyULong "vspace" val - -data DOMHTMLMarqueeElementVspacePropertyInfo -instance AttrInfo DOMHTMLMarqueeElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = (~) CULong - type AttrBaseTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementVspacePropertyInfo = CULong - type AttrLabel DOMHTMLMarqueeElementVspacePropertyInfo = "vspace" - attrGet _ = getDOMHTMLMarqueeElementVspace - attrSet _ = setDOMHTMLMarqueeElementVspace - attrConstruct _ = constructDOMHTMLMarqueeElementVspace - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMarqueeElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () -setDOMHTMLMarqueeElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLMarqueeElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMarqueeElementWidth val = constructObjectPropertyString "width" (Just val) - -clearDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m () -clearDOMHTMLMarqueeElementWidth obj = liftIO $ setObjectPropertyString obj "width" (Nothing :: Maybe T.Text) - -data DOMHTMLMarqueeElementWidthPropertyInfo -instance AttrInfo DOMHTMLMarqueeElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = DOMHTMLMarqueeElementK - type AttrGetType DOMHTMLMarqueeElementWidthPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLMarqueeElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLMarqueeElementWidth - attrSet _ = setDOMHTMLMarqueeElementWidth - attrConstruct _ = constructDOMHTMLMarqueeElementWidth - attrClear _ = clearDOMHTMLMarqueeElementWidth - -type instance AttributeList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementAttributeList -type DOMHTMLMarqueeElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bgColor", DOMHTMLMarqueeElementBgColorPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("direction", DOMHTMLMarqueeElementDirectionPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLMarqueeElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLMarqueeElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMarqueeElementLoopPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollAmount", DOMHTMLMarqueeElementScrollAmountPropertyInfo), '("scrollDelay", DOMHTMLMarqueeElementScrollDelayPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("trueSpeed", DOMHTMLMarqueeElementTrueSpeedPropertyInfo), '("vspace", DOMHTMLMarqueeElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLMarqueeElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLMarqueeElementBehavior :: AttrLabelProxy "behavior" -dOMHTMLMarqueeElementBehavior = AttrLabelProxy - -dOMHTMLMarqueeElementBgColor :: AttrLabelProxy "bgColor" -dOMHTMLMarqueeElementBgColor = AttrLabelProxy - -dOMHTMLMarqueeElementDirection :: AttrLabelProxy "direction" -dOMHTMLMarqueeElementDirection = AttrLabelProxy - -dOMHTMLMarqueeElementHeight :: AttrLabelProxy "height" -dOMHTMLMarqueeElementHeight = AttrLabelProxy - -dOMHTMLMarqueeElementHspace :: AttrLabelProxy "hspace" -dOMHTMLMarqueeElementHspace = AttrLabelProxy - -dOMHTMLMarqueeElementLoop :: AttrLabelProxy "loop" -dOMHTMLMarqueeElementLoop = AttrLabelProxy - -dOMHTMLMarqueeElementScrollAmount :: AttrLabelProxy "scrollAmount" -dOMHTMLMarqueeElementScrollAmount = AttrLabelProxy - -dOMHTMLMarqueeElementScrollDelay :: AttrLabelProxy "scrollDelay" -dOMHTMLMarqueeElementScrollDelay = AttrLabelProxy - -dOMHTMLMarqueeElementTrueSpeed :: AttrLabelProxy "trueSpeed" -dOMHTMLMarqueeElementTrueSpeed = AttrLabelProxy - -dOMHTMLMarqueeElementVspace :: AttrLabelProxy "vspace" -dOMHTMLMarqueeElementVspace = AttrLabelProxy - -dOMHTMLMarqueeElementWidth :: AttrLabelProxy "width" -dOMHTMLMarqueeElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementSignalList -type DOMHTMLMarqueeElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLMarqueeElement::start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLMarqueeElementStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_marquee_element_start _obj' - touchManagedPtr _obj - return () - -data DOMHTMLMarqueeElementStartMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementStartMethodInfo a signature where - overloadedMethod _ = dOMHTMLMarqueeElementStart - --- method DOMHTMLMarqueeElement::stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLMarqueeElementStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_marquee_element_stop _obj' - touchManagedPtr _obj - return () - -data DOMHTMLMarqueeElementStopMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLMarqueeElementK a) => MethodInfo DOMHTMLMarqueeElementStopMethodInfo a signature where - overloadedMethod _ = dOMHTMLMarqueeElementStop - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLMarqueeElementStartMethodInfo -data DOMHTMLMarqueeElementStopMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs +++ /dev/null @@ -1,315 +0,0 @@ - - -{- | -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 - DOMHTMLMenuElementGetCompactMethodInfo , - dOMHTMLMenuElementGetCompact , - - --- ** dOMHTMLMenuElementSetCompact - DOMHTMLMenuElementSetCompactMethodInfo , - dOMHTMLMenuElementSetCompact , - - - - - -- * Properties --- ** Compact - DOMHTMLMenuElementCompactPropertyInfo , - constructDOMHTMLMenuElementCompact , - dOMHTMLMenuElementCompact , - getDOMHTMLMenuElementCompact , - setDOMHTMLMenuElementCompact , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLMenuElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLMenuElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLMenuElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLMenuElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLMenuElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLMenuElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLMenuElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLMenuElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLMenuElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLMenuElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLMenuElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLMenuElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLMenuElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLMenuElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLMenuElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLMenuElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLMenuElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLMenuElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLMenuElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLMenuElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLMenuElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLMenuElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLMenuElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLMenuElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLMenuElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLMenuElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLMenuElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLMenuElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLMenuElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLMenuElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLMenuElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLMenuElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLMenuElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLMenuElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLMenuElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLMenuElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLMenuElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLMenuElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLMenuElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLMenuElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLMenuElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLMenuElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLMenuElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLMenuElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLMenuElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLMenuElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLMenuElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLMenuElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLMenuElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLMenuElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLMenuElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLMenuElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLMenuElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLMenuElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLMenuElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLMenuElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLMenuElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLMenuElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLMenuElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLMenuElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLMenuElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLMenuElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLMenuElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLMenuElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLMenuElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLMenuElementMethod "getCompact" o = DOMHTMLMenuElementGetCompactMethodInfo - ResolveDOMHTMLMenuElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLMenuElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLMenuElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLMenuElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLMenuElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMenuElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLMenuElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMenuElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLMenuElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLMenuElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLMenuElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLMenuElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLMenuElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLMenuElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLMenuElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLMenuElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLMenuElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLMenuElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLMenuElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLMenuElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLMenuElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLMenuElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLMenuElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLMenuElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLMenuElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLMenuElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLMenuElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLMenuElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLMenuElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLMenuElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLMenuElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLMenuElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLMenuElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLMenuElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLMenuElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLMenuElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLMenuElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLMenuElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLMenuElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLMenuElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLMenuElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLMenuElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLMenuElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLMenuElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLMenuElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLMenuElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLMenuElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLMenuElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLMenuElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLMenuElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLMenuElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLMenuElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLMenuElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLMenuElementMethod "setCompact" o = DOMHTMLMenuElementSetCompactMethodInfo - ResolveDOMHTMLMenuElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLMenuElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLMenuElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLMenuElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLMenuElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLMenuElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLMenuElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLMenuElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLMenuElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLMenuElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLMenuElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLMenuElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLMenuElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLMenuElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLMenuElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLMenuElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLMenuElementMethod t DOMHTMLMenuElement, MethodInfo info DOMHTMLMenuElement p) => IsLabelProxy t (DOMHTMLMenuElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLMenuElementMethod t DOMHTMLMenuElement, MethodInfo info DOMHTMLMenuElement p) => IsLabel t (DOMHTMLMenuElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "compact" - attrGet _ = getDOMHTMLMenuElementCompact - attrSet _ = setDOMHTMLMenuElementCompact - attrConstruct _ = constructDOMHTMLMenuElementCompact - attrClear _ = undefined - -type instance AttributeList DOMHTMLMenuElement = DOMHTMLMenuElementAttributeList -type DOMHTMLMenuElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLMenuElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLMenuElementCompact :: AttrLabelProxy "compact" -dOMHTMLMenuElementCompact = AttrLabelProxy - -type instance SignalList DOMHTMLMenuElement = DOMHTMLMenuElementSignalList -type DOMHTMLMenuElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLMenuElement::get_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLMenuElementGetCompactMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLMenuElementK a) => MethodInfo DOMHTMLMenuElementGetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLMenuElementGetCompact - --- method DOMHTMLMenuElement::set_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLMenuElementSetCompactMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLMenuElementK a) => MethodInfo DOMHTMLMenuElementSetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLMenuElementSetCompact - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLMenuElementGetCompactMethodInfo -data DOMHTMLMenuElementSetCompactMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs +++ /dev/null @@ -1,648 +0,0 @@ - - -{- | -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 - DOMHTMLMetaElementGetContentMethodInfo , - dOMHTMLMetaElementGetContent , - - --- ** dOMHTMLMetaElementGetHttpEquiv - DOMHTMLMetaElementGetHttpEquivMethodInfo, - dOMHTMLMetaElementGetHttpEquiv , - - --- ** dOMHTMLMetaElementGetName - DOMHTMLMetaElementGetNameMethodInfo , - dOMHTMLMetaElementGetName , - - --- ** dOMHTMLMetaElementGetScheme - DOMHTMLMetaElementGetSchemeMethodInfo , - dOMHTMLMetaElementGetScheme , - - --- ** dOMHTMLMetaElementSetContent - DOMHTMLMetaElementSetContentMethodInfo , - dOMHTMLMetaElementSetContent , - - --- ** dOMHTMLMetaElementSetHttpEquiv - DOMHTMLMetaElementSetHttpEquivMethodInfo, - dOMHTMLMetaElementSetHttpEquiv , - - --- ** dOMHTMLMetaElementSetName - DOMHTMLMetaElementSetNameMethodInfo , - dOMHTMLMetaElementSetName , - - --- ** dOMHTMLMetaElementSetScheme - DOMHTMLMetaElementSetSchemeMethodInfo , - dOMHTMLMetaElementSetScheme , - - - - - -- * Properties --- ** Content - DOMHTMLMetaElementContentPropertyInfo , - constructDOMHTMLMetaElementContent , - dOMHTMLMetaElementContent , - getDOMHTMLMetaElementContent , - setDOMHTMLMetaElementContent , - - --- ** HttpEquiv - DOMHTMLMetaElementHttpEquivPropertyInfo , - constructDOMHTMLMetaElementHttpEquiv , - dOMHTMLMetaElementHttpEquiv , - getDOMHTMLMetaElementHttpEquiv , - setDOMHTMLMetaElementHttpEquiv , - - --- ** Name - DOMHTMLMetaElementNamePropertyInfo , - constructDOMHTMLMetaElementName , - dOMHTMLMetaElementName , - getDOMHTMLMetaElementName , - setDOMHTMLMetaElementName , - - --- ** Scheme - DOMHTMLMetaElementSchemePropertyInfo , - constructDOMHTMLMetaElementScheme , - dOMHTMLMetaElementScheme , - getDOMHTMLMetaElementScheme , - setDOMHTMLMetaElementScheme , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLMetaElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLMetaElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLMetaElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLMetaElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLMetaElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLMetaElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLMetaElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLMetaElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLMetaElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLMetaElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLMetaElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLMetaElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLMetaElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLMetaElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLMetaElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLMetaElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLMetaElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLMetaElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLMetaElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLMetaElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLMetaElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLMetaElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLMetaElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLMetaElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLMetaElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLMetaElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLMetaElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLMetaElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLMetaElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLMetaElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLMetaElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLMetaElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLMetaElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLMetaElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLMetaElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLMetaElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLMetaElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLMetaElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLMetaElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLMetaElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLMetaElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLMetaElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLMetaElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLMetaElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLMetaElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLMetaElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLMetaElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLMetaElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLMetaElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLMetaElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLMetaElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLMetaElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLMetaElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLMetaElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLMetaElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLMetaElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLMetaElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLMetaElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLMetaElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLMetaElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLMetaElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLMetaElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLMetaElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLMetaElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLMetaElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLMetaElementMethod "getContent" o = DOMHTMLMetaElementGetContentMethodInfo - ResolveDOMHTMLMetaElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLMetaElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLMetaElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLMetaElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLMetaElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMetaElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLMetaElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLMetaElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLMetaElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLMetaElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLMetaElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLMetaElementMethod "getHttpEquiv" o = DOMHTMLMetaElementGetHttpEquivMethodInfo - ResolveDOMHTMLMetaElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLMetaElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLMetaElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLMetaElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLMetaElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLMetaElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLMetaElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLMetaElementMethod "getName" o = DOMHTMLMetaElementGetNameMethodInfo - ResolveDOMHTMLMetaElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLMetaElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLMetaElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLMetaElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLMetaElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLMetaElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLMetaElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLMetaElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLMetaElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLMetaElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLMetaElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLMetaElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLMetaElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLMetaElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLMetaElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLMetaElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLMetaElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLMetaElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLMetaElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLMetaElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLMetaElementMethod "getScheme" o = DOMHTMLMetaElementGetSchemeMethodInfo - ResolveDOMHTMLMetaElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLMetaElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLMetaElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLMetaElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLMetaElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLMetaElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLMetaElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLMetaElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLMetaElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLMetaElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLMetaElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLMetaElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLMetaElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLMetaElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLMetaElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLMetaElementMethod "setContent" o = DOMHTMLMetaElementSetContentMethodInfo - ResolveDOMHTMLMetaElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLMetaElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLMetaElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLMetaElementMethod "setHttpEquiv" o = DOMHTMLMetaElementSetHttpEquivMethodInfo - ResolveDOMHTMLMetaElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLMetaElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLMetaElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLMetaElementMethod "setName" o = DOMHTMLMetaElementSetNameMethodInfo - ResolveDOMHTMLMetaElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLMetaElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLMetaElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLMetaElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLMetaElementMethod "setScheme" o = DOMHTMLMetaElementSetSchemeMethodInfo - ResolveDOMHTMLMetaElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLMetaElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLMetaElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLMetaElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLMetaElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLMetaElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLMetaElementMethod t DOMHTMLMetaElement, MethodInfo info DOMHTMLMetaElement p) => IsLabelProxy t (DOMHTMLMetaElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLMetaElementMethod t DOMHTMLMetaElement, MethodInfo info DOMHTMLMetaElement p) => IsLabel t (DOMHTMLMetaElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "content" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMetaElementContent obj = liftIO $ getObjectPropertyString obj "content" - -setDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementContent obj val = liftIO $ setObjectPropertyString obj "content" (Just val) - -constructDOMHTMLMetaElementContent :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementContent val = constructObjectPropertyString "content" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLMetaElementContentPropertyInfo = "content" - attrGet _ = getDOMHTMLMetaElementContent - attrSet _ = setDOMHTMLMetaElementContent - attrConstruct _ = constructDOMHTMLMetaElementContent - attrClear _ = undefined - --- VVV Prop "http-equiv" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLMetaElementHttpEquiv :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementHttpEquiv val = constructObjectPropertyString "http-equiv" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLMetaElementHttpEquivPropertyInfo = "http-equiv" - attrGet _ = getDOMHTMLMetaElementHttpEquiv - attrSet _ = setDOMHTMLMetaElementHttpEquiv - attrConstruct _ = constructDOMHTMLMetaElementHttpEquiv - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMetaElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLMetaElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLMetaElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLMetaElementName - attrSet _ = setDOMHTMLMetaElementName - attrConstruct _ = constructDOMHTMLMetaElementName - attrClear _ = undefined - --- VVV Prop "scheme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLMetaElementScheme obj = liftIO $ getObjectPropertyString obj "scheme" - -setDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () -setDOMHTMLMetaElementScheme obj val = liftIO $ setObjectPropertyString obj "scheme" (Just val) - -constructDOMHTMLMetaElementScheme :: T.Text -> IO ([Char], GValue) -constructDOMHTMLMetaElementScheme val = constructObjectPropertyString "scheme" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLMetaElementSchemePropertyInfo = "scheme" - attrGet _ = getDOMHTMLMetaElementScheme - attrSet _ = setDOMHTMLMetaElementScheme - attrConstruct _ = constructDOMHTMLMetaElementScheme - attrClear _ = undefined - -type instance AttributeList DOMHTMLMetaElement = DOMHTMLMetaElementAttributeList -type DOMHTMLMetaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("content", DOMHTMLMetaElementContentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("httpEquiv", DOMHTMLMetaElementHttpEquivPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMetaElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scheme", DOMHTMLMetaElementSchemePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLMetaElementContent :: AttrLabelProxy "content" -dOMHTMLMetaElementContent = AttrLabelProxy - -dOMHTMLMetaElementHttpEquiv :: AttrLabelProxy "httpEquiv" -dOMHTMLMetaElementHttpEquiv = AttrLabelProxy - -dOMHTMLMetaElementName :: AttrLabelProxy "name" -dOMHTMLMetaElementName = AttrLabelProxy - -dOMHTMLMetaElementScheme :: AttrLabelProxy "scheme" -dOMHTMLMetaElementScheme = AttrLabelProxy - -type instance SignalList DOMHTMLMetaElement = DOMHTMLMetaElementSignalList -type DOMHTMLMetaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLMetaElement::get_content --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLMetaElementGetContentMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementGetContentMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementGetContent - --- method DOMHTMLMetaElement::get_http_equiv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLMetaElementGetHttpEquivMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementGetHttpEquivMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementGetHttpEquiv - --- method DOMHTMLMetaElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLMetaElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementGetName - --- method DOMHTMLMetaElement::get_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLMetaElementGetSchemeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementGetSchemeMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementGetScheme - --- method DOMHTMLMetaElement::set_content --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLMetaElementSetContentMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementSetContentMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementSetContent - --- method DOMHTMLMetaElement::set_http_equiv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLMetaElementSetHttpEquivMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementSetHttpEquivMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementSetHttpEquiv - --- method DOMHTMLMetaElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLMetaElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementSetName - --- method DOMHTMLMetaElement::set_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLMetaElementSetSchemeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLMetaElementK a) => MethodInfo DOMHTMLMetaElementSetSchemeMethodInfo a signature where - overloadedMethod _ = dOMHTMLMetaElementSetScheme - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLMetaElementGetContentMethodInfo -data DOMHTMLMetaElementGetHttpEquivMethodInfo -data DOMHTMLMetaElementGetNameMethodInfo -data DOMHTMLMetaElementGetSchemeMethodInfo -data DOMHTMLMetaElementSetContentMethodInfo -data DOMHTMLMetaElementSetHttpEquivMethodInfo -data DOMHTMLMetaElementSetNameMethodInfo -data DOMHTMLMetaElementSetSchemeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs +++ /dev/null @@ -1,428 +0,0 @@ - - -{- | -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 - DOMHTMLModElementGetCiteMethodInfo , - dOMHTMLModElementGetCite , - - --- ** dOMHTMLModElementGetDateTime - DOMHTMLModElementGetDateTimeMethodInfo , - dOMHTMLModElementGetDateTime , - - --- ** dOMHTMLModElementSetCite - DOMHTMLModElementSetCiteMethodInfo , - dOMHTMLModElementSetCite , - - --- ** dOMHTMLModElementSetDateTime - DOMHTMLModElementSetDateTimeMethodInfo , - dOMHTMLModElementSetDateTime , - - - - - -- * Properties --- ** Cite - DOMHTMLModElementCitePropertyInfo , - constructDOMHTMLModElementCite , - dOMHTMLModElementCite , - getDOMHTMLModElementCite , - setDOMHTMLModElementCite , - - --- ** DateTime - DOMHTMLModElementDateTimePropertyInfo , - constructDOMHTMLModElementDateTime , - dOMHTMLModElementDateTime , - getDOMHTMLModElementDateTime , - setDOMHTMLModElementDateTime , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLModElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLModElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLModElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLModElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLModElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLModElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLModElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLModElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLModElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLModElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLModElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLModElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLModElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLModElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLModElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLModElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLModElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLModElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLModElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLModElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLModElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLModElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLModElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLModElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLModElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLModElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLModElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLModElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLModElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLModElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLModElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLModElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLModElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLModElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLModElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLModElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLModElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLModElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLModElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLModElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLModElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLModElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLModElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLModElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLModElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLModElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLModElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLModElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLModElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLModElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLModElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLModElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLModElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLModElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLModElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLModElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLModElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLModElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLModElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLModElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLModElementMethod "getCite" o = DOMHTMLModElementGetCiteMethodInfo - ResolveDOMHTMLModElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLModElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLModElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLModElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLModElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLModElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLModElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLModElementMethod "getDateTime" o = DOMHTMLModElementGetDateTimeMethodInfo - ResolveDOMHTMLModElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLModElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLModElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLModElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLModElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLModElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLModElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLModElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLModElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLModElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLModElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLModElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLModElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLModElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLModElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLModElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLModElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLModElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLModElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLModElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLModElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLModElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLModElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLModElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLModElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLModElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLModElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLModElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLModElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLModElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLModElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLModElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLModElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLModElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLModElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLModElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLModElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLModElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLModElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLModElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLModElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLModElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLModElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLModElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLModElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLModElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLModElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLModElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLModElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLModElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLModElementMethod "setCite" o = DOMHTMLModElementSetCiteMethodInfo - ResolveDOMHTMLModElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLModElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLModElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLModElementMethod "setDateTime" o = DOMHTMLModElementSetDateTimeMethodInfo - ResolveDOMHTMLModElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLModElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLModElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLModElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLModElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLModElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLModElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLModElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLModElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLModElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLModElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLModElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLModElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLModElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLModElementMethod t DOMHTMLModElement, MethodInfo info DOMHTMLModElement p) => IsLabelProxy t (DOMHTMLModElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLModElementMethod t DOMHTMLModElement, MethodInfo info DOMHTMLModElement p) => IsLabel t (DOMHTMLModElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "cite" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> m (Maybe T.Text) -getDOMHTMLModElementCite obj = liftIO $ getObjectPropertyString obj "cite" - -setDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () -setDOMHTMLModElementCite obj val = liftIO $ setObjectPropertyString obj "cite" (Just val) - -constructDOMHTMLModElementCite :: T.Text -> IO ([Char], GValue) -constructDOMHTMLModElementCite val = constructObjectPropertyString "cite" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLModElementCitePropertyInfo = "cite" - attrGet _ = getDOMHTMLModElementCite - attrSet _ = setDOMHTMLModElementCite - attrConstruct _ = constructDOMHTMLModElementCite - attrClear _ = undefined - --- VVV Prop "date-time" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLModElementDateTime :: T.Text -> IO ([Char], GValue) -constructDOMHTMLModElementDateTime val = constructObjectPropertyString "date-time" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLModElementDateTimePropertyInfo = "date-time" - attrGet _ = getDOMHTMLModElementDateTime - attrSet _ = setDOMHTMLModElementDateTime - attrConstruct _ = constructDOMHTMLModElementDateTime - attrClear _ = undefined - -type instance AttributeList DOMHTMLModElement = DOMHTMLModElementAttributeList -type DOMHTMLModElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dateTime", DOMHTMLModElementDateTimePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLModElementCite :: AttrLabelProxy "cite" -dOMHTMLModElementCite = AttrLabelProxy - -dOMHTMLModElementDateTime :: AttrLabelProxy "dateTime" -dOMHTMLModElementDateTime = AttrLabelProxy - -type instance SignalList DOMHTMLModElement = DOMHTMLModElementSignalList -type DOMHTMLModElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLModElement::get_cite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLModElementGetCiteMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLModElementK a) => MethodInfo DOMHTMLModElementGetCiteMethodInfo a signature where - overloadedMethod _ = dOMHTMLModElementGetCite - --- method DOMHTMLModElement::get_date_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLModElementGetDateTimeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLModElementK a) => MethodInfo DOMHTMLModElementGetDateTimeMethodInfo a signature where - overloadedMethod _ = dOMHTMLModElementGetDateTime - --- method DOMHTMLModElement::set_cite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLModElementSetCiteMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLModElementK a) => MethodInfo DOMHTMLModElementSetCiteMethodInfo a signature where - overloadedMethod _ = dOMHTMLModElementSetCite - --- method DOMHTMLModElement::set_date_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLModElementSetDateTimeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLModElementK a) => MethodInfo DOMHTMLModElementSetDateTimeMethodInfo a signature where - overloadedMethod _ = dOMHTMLModElementSetDateTime - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLModElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLModElementGetCiteMethodInfo -data DOMHTMLModElementGetDateTimeMethodInfo -data DOMHTMLModElementSetCiteMethodInfo -data DOMHTMLModElementSetDateTimeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs +++ /dev/null @@ -1,571 +0,0 @@ - - -{- | -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 - DOMHTMLOListElementGetCompactMethodInfo , - dOMHTMLOListElementGetCompact , - - --- ** dOMHTMLOListElementGetStart - DOMHTMLOListElementGetStartMethodInfo , - dOMHTMLOListElementGetStart , - - --- ** dOMHTMLOListElementGetTypeAttr - DOMHTMLOListElementGetTypeAttrMethodInfo, - dOMHTMLOListElementGetTypeAttr , - - --- ** dOMHTMLOListElementSetCompact - DOMHTMLOListElementSetCompactMethodInfo , - dOMHTMLOListElementSetCompact , - - --- ** dOMHTMLOListElementSetStart - DOMHTMLOListElementSetStartMethodInfo , - dOMHTMLOListElementSetStart , - - --- ** dOMHTMLOListElementSetTypeAttr - DOMHTMLOListElementSetTypeAttrMethodInfo, - dOMHTMLOListElementSetTypeAttr , - - - - - -- * Properties --- ** Compact - DOMHTMLOListElementCompactPropertyInfo , - constructDOMHTMLOListElementCompact , - dOMHTMLOListElementCompact , - getDOMHTMLOListElementCompact , - setDOMHTMLOListElementCompact , - - --- ** Reversed - DOMHTMLOListElementReversedPropertyInfo , - constructDOMHTMLOListElementReversed , - dOMHTMLOListElementReversed , - getDOMHTMLOListElementReversed , - setDOMHTMLOListElementReversed , - - --- ** Start - DOMHTMLOListElementStartPropertyInfo , - constructDOMHTMLOListElementStart , - dOMHTMLOListElementStart , - getDOMHTMLOListElementStart , - setDOMHTMLOListElementStart , - - --- ** Type - DOMHTMLOListElementTypePropertyInfo , - clearDOMHTMLOListElementType , - constructDOMHTMLOListElementType , - dOMHTMLOListElementType , - getDOMHTMLOListElementType , - setDOMHTMLOListElementType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLOListElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLOListElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLOListElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLOListElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLOListElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLOListElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLOListElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLOListElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLOListElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLOListElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLOListElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLOListElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLOListElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLOListElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLOListElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLOListElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLOListElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLOListElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLOListElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLOListElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLOListElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLOListElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLOListElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLOListElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLOListElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLOListElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLOListElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLOListElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLOListElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLOListElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLOListElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLOListElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLOListElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLOListElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLOListElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLOListElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLOListElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLOListElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLOListElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLOListElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLOListElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLOListElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLOListElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLOListElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLOListElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLOListElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLOListElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLOListElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLOListElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLOListElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLOListElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLOListElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLOListElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLOListElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLOListElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLOListElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLOListElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLOListElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLOListElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLOListElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLOListElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLOListElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLOListElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLOListElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLOListElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLOListElementMethod "getCompact" o = DOMHTMLOListElementGetCompactMethodInfo - ResolveDOMHTMLOListElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLOListElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLOListElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLOListElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLOListElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLOListElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLOListElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLOListElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLOListElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLOListElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLOListElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLOListElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLOListElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLOListElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLOListElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLOListElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLOListElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLOListElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLOListElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLOListElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLOListElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLOListElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLOListElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLOListElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLOListElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLOListElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLOListElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLOListElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLOListElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLOListElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLOListElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLOListElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLOListElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLOListElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLOListElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLOListElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLOListElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLOListElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLOListElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLOListElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLOListElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLOListElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLOListElementMethod "getStart" o = DOMHTMLOListElementGetStartMethodInfo - ResolveDOMHTMLOListElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLOListElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLOListElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLOListElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLOListElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLOListElementMethod "getTypeAttr" o = DOMHTMLOListElementGetTypeAttrMethodInfo - ResolveDOMHTMLOListElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLOListElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLOListElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLOListElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLOListElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLOListElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLOListElementMethod "setCompact" o = DOMHTMLOListElementSetCompactMethodInfo - ResolveDOMHTMLOListElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLOListElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLOListElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLOListElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLOListElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLOListElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLOListElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLOListElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLOListElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLOListElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLOListElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLOListElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLOListElementMethod "setStart" o = DOMHTMLOListElementSetStartMethodInfo - ResolveDOMHTMLOListElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLOListElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLOListElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLOListElementMethod "setTypeAttr" o = DOMHTMLOListElementSetTypeAttrMethodInfo - ResolveDOMHTMLOListElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLOListElementMethod t DOMHTMLOListElement, MethodInfo info DOMHTMLOListElement p) => IsLabelProxy t (DOMHTMLOListElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLOListElementMethod t DOMHTMLOListElement, MethodInfo info DOMHTMLOListElement p) => IsLabel t (DOMHTMLOListElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "compact" - attrGet _ = getDOMHTMLOListElementCompact - attrSet _ = setDOMHTMLOListElementCompact - attrConstruct _ = constructDOMHTMLOListElementCompact - attrClear _ = undefined - --- VVV Prop "reversed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "reversed" - attrGet _ = getDOMHTMLOListElementReversed - attrSet _ = setDOMHTMLOListElementReversed - attrConstruct _ = constructDOMHTMLOListElementReversed - attrClear _ = undefined - --- VVV Prop "start" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> m CLong -getDOMHTMLOListElementStart obj = liftIO $ getObjectPropertyLong obj "start" - -setDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> CLong -> m () -setDOMHTMLOListElementStart obj val = liftIO $ setObjectPropertyLong obj "start" val - -constructDOMHTMLOListElementStart :: CLong -> IO ([Char], GValue) -constructDOMHTMLOListElementStart val = constructObjectPropertyLong "start" val - -data DOMHTMLOListElementStartPropertyInfo -instance AttrInfo DOMHTMLOListElementStartPropertyInfo where - type AttrAllowedOps DOMHTMLOListElementStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOListElementStartPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLOListElementStartPropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementStartPropertyInfo = CLong - type AttrLabel DOMHTMLOListElementStartPropertyInfo = "start" - attrGet _ = getDOMHTMLOListElementStart - attrSet _ = setDOMHTMLOListElementStart - attrConstruct _ = constructDOMHTMLOListElementStart - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m (Maybe T.Text) -getDOMHTMLOListElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> T.Text -> m () -setDOMHTMLOListElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLOListElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOListElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m () -clearDOMHTMLOListElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLOListElementTypePropertyInfo -instance AttrInfo DOMHTMLOListElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLOListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLOListElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLOListElementTypePropertyInfo = DOMHTMLOListElementK - type AttrGetType DOMHTMLOListElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLOListElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLOListElementType - attrSet _ = setDOMHTMLOListElementType - attrConstruct _ = constructDOMHTMLOListElementType - attrClear _ = clearDOMHTMLOListElementType - -type instance AttributeList DOMHTMLOListElement = DOMHTMLOListElementAttributeList -type DOMHTMLOListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLOListElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("reversed", DOMHTMLOListElementReversedPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("start", DOMHTMLOListElementStartPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLOListElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLOListElementCompact :: AttrLabelProxy "compact" -dOMHTMLOListElementCompact = AttrLabelProxy - -dOMHTMLOListElementReversed :: AttrLabelProxy "reversed" -dOMHTMLOListElementReversed = AttrLabelProxy - -dOMHTMLOListElementStart :: AttrLabelProxy "start" -dOMHTMLOListElementStart = AttrLabelProxy - -dOMHTMLOListElementType :: AttrLabelProxy "type" -dOMHTMLOListElementType = AttrLabelProxy - -type instance SignalList DOMHTMLOListElement = DOMHTMLOListElementSignalList -type DOMHTMLOListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLOListElement::get_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOListElementGetCompactMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementGetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLOListElementGetCompact - --- method DOMHTMLOListElement::get_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLOListElementGetStart :: - (MonadIO m, DOMHTMLOListElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLOListElementGetStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_o_list_element_get_start _obj' - touchManagedPtr _obj - return result - -data DOMHTMLOListElementGetStartMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementGetStartMethodInfo a signature where - overloadedMethod _ = dOMHTMLOListElementGetStart - --- method DOMHTMLOListElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOListElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLOListElementGetTypeAttr - --- method DOMHTMLOListElement::set_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOListElementSetCompactMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementSetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLOListElementSetCompact - --- method DOMHTMLOListElement::set_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLOListElementSetStart :: - (MonadIO m, DOMHTMLOListElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLOListElementSetStart _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_o_list_element_set_start _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLOListElementSetStartMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementSetStartMethodInfo a signature where - overloadedMethod _ = dOMHTMLOListElementSetStart - --- method DOMHTMLOListElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOListElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLOListElementK a) => MethodInfo DOMHTMLOListElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLOListElementSetTypeAttr - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLOListElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLOListElementGetCompactMethodInfo -data DOMHTMLOListElementGetStartMethodInfo -data DOMHTMLOListElementGetTypeAttrMethodInfo -data DOMHTMLOListElementSetCompactMethodInfo -data DOMHTMLOListElementSetStartMethodInfo -data DOMHTMLOListElementSetTypeAttrMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs +++ /dev/null @@ -1,2141 +0,0 @@ - - -{- | -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 - DOMHTMLObjectElementGetAlignMethodInfo , - dOMHTMLObjectElementGetAlign , - - --- ** dOMHTMLObjectElementGetArchive - DOMHTMLObjectElementGetArchiveMethodInfo, - dOMHTMLObjectElementGetArchive , - - --- ** dOMHTMLObjectElementGetBorder - DOMHTMLObjectElementGetBorderMethodInfo , - dOMHTMLObjectElementGetBorder , - - --- ** dOMHTMLObjectElementGetCode - DOMHTMLObjectElementGetCodeMethodInfo , - dOMHTMLObjectElementGetCode , - - --- ** dOMHTMLObjectElementGetCodeBase - DOMHTMLObjectElementGetCodeBaseMethodInfo, - dOMHTMLObjectElementGetCodeBase , - - --- ** dOMHTMLObjectElementGetCodeType - DOMHTMLObjectElementGetCodeTypeMethodInfo, - dOMHTMLObjectElementGetCodeType , - - --- ** dOMHTMLObjectElementGetContentDocument - DOMHTMLObjectElementGetContentDocumentMethodInfo, - dOMHTMLObjectElementGetContentDocument , - - --- ** dOMHTMLObjectElementGetData - DOMHTMLObjectElementGetDataMethodInfo , - dOMHTMLObjectElementGetData , - - --- ** dOMHTMLObjectElementGetDeclare - DOMHTMLObjectElementGetDeclareMethodInfo, - dOMHTMLObjectElementGetDeclare , - - --- ** dOMHTMLObjectElementGetForm - DOMHTMLObjectElementGetFormMethodInfo , - dOMHTMLObjectElementGetForm , - - --- ** dOMHTMLObjectElementGetHeight - DOMHTMLObjectElementGetHeightMethodInfo , - dOMHTMLObjectElementGetHeight , - - --- ** dOMHTMLObjectElementGetHspace - DOMHTMLObjectElementGetHspaceMethodInfo , - dOMHTMLObjectElementGetHspace , - - --- ** dOMHTMLObjectElementGetName - DOMHTMLObjectElementGetNameMethodInfo , - dOMHTMLObjectElementGetName , - - --- ** dOMHTMLObjectElementGetStandby - DOMHTMLObjectElementGetStandbyMethodInfo, - dOMHTMLObjectElementGetStandby , - - --- ** dOMHTMLObjectElementGetTypeAttr - DOMHTMLObjectElementGetTypeAttrMethodInfo, - dOMHTMLObjectElementGetTypeAttr , - - --- ** dOMHTMLObjectElementGetUseMap - DOMHTMLObjectElementGetUseMapMethodInfo , - dOMHTMLObjectElementGetUseMap , - - --- ** dOMHTMLObjectElementGetVspace - DOMHTMLObjectElementGetVspaceMethodInfo , - dOMHTMLObjectElementGetVspace , - - --- ** dOMHTMLObjectElementGetWidth - DOMHTMLObjectElementGetWidthMethodInfo , - dOMHTMLObjectElementGetWidth , - - --- ** dOMHTMLObjectElementSetAlign - DOMHTMLObjectElementSetAlignMethodInfo , - dOMHTMLObjectElementSetAlign , - - --- ** dOMHTMLObjectElementSetArchive - DOMHTMLObjectElementSetArchiveMethodInfo, - dOMHTMLObjectElementSetArchive , - - --- ** dOMHTMLObjectElementSetBorder - DOMHTMLObjectElementSetBorderMethodInfo , - dOMHTMLObjectElementSetBorder , - - --- ** dOMHTMLObjectElementSetCode - DOMHTMLObjectElementSetCodeMethodInfo , - dOMHTMLObjectElementSetCode , - - --- ** dOMHTMLObjectElementSetCodeBase - DOMHTMLObjectElementSetCodeBaseMethodInfo, - dOMHTMLObjectElementSetCodeBase , - - --- ** dOMHTMLObjectElementSetCodeType - DOMHTMLObjectElementSetCodeTypeMethodInfo, - dOMHTMLObjectElementSetCodeType , - - --- ** dOMHTMLObjectElementSetData - DOMHTMLObjectElementSetDataMethodInfo , - dOMHTMLObjectElementSetData , - - --- ** dOMHTMLObjectElementSetDeclare - DOMHTMLObjectElementSetDeclareMethodInfo, - dOMHTMLObjectElementSetDeclare , - - --- ** dOMHTMLObjectElementSetHeight - DOMHTMLObjectElementSetHeightMethodInfo , - dOMHTMLObjectElementSetHeight , - - --- ** dOMHTMLObjectElementSetHspace - DOMHTMLObjectElementSetHspaceMethodInfo , - dOMHTMLObjectElementSetHspace , - - --- ** dOMHTMLObjectElementSetName - DOMHTMLObjectElementSetNameMethodInfo , - dOMHTMLObjectElementSetName , - - --- ** dOMHTMLObjectElementSetStandby - DOMHTMLObjectElementSetStandbyMethodInfo, - dOMHTMLObjectElementSetStandby , - - --- ** dOMHTMLObjectElementSetTypeAttr - DOMHTMLObjectElementSetTypeAttrMethodInfo, - dOMHTMLObjectElementSetTypeAttr , - - --- ** dOMHTMLObjectElementSetUseMap - DOMHTMLObjectElementSetUseMapMethodInfo , - dOMHTMLObjectElementSetUseMap , - - --- ** dOMHTMLObjectElementSetVspace - DOMHTMLObjectElementSetVspaceMethodInfo , - dOMHTMLObjectElementSetVspace , - - --- ** dOMHTMLObjectElementSetWidth - DOMHTMLObjectElementSetWidthMethodInfo , - dOMHTMLObjectElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLObjectElementAlignPropertyInfo , - constructDOMHTMLObjectElementAlign , - dOMHTMLObjectElementAlign , - getDOMHTMLObjectElementAlign , - setDOMHTMLObjectElementAlign , - - --- ** Archive - DOMHTMLObjectElementArchivePropertyInfo , - constructDOMHTMLObjectElementArchive , - dOMHTMLObjectElementArchive , - getDOMHTMLObjectElementArchive , - setDOMHTMLObjectElementArchive , - - --- ** Border - DOMHTMLObjectElementBorderPropertyInfo , - constructDOMHTMLObjectElementBorder , - dOMHTMLObjectElementBorder , - getDOMHTMLObjectElementBorder , - setDOMHTMLObjectElementBorder , - - --- ** Code - DOMHTMLObjectElementCodePropertyInfo , - constructDOMHTMLObjectElementCode , - dOMHTMLObjectElementCode , - getDOMHTMLObjectElementCode , - setDOMHTMLObjectElementCode , - - --- ** CodeBase - DOMHTMLObjectElementCodeBasePropertyInfo, - constructDOMHTMLObjectElementCodeBase , - dOMHTMLObjectElementCodeBase , - getDOMHTMLObjectElementCodeBase , - setDOMHTMLObjectElementCodeBase , - - --- ** CodeType - DOMHTMLObjectElementCodeTypePropertyInfo, - constructDOMHTMLObjectElementCodeType , - dOMHTMLObjectElementCodeType , - getDOMHTMLObjectElementCodeType , - setDOMHTMLObjectElementCodeType , - - --- ** ContentDocument - DOMHTMLObjectElementContentDocumentPropertyInfo, - dOMHTMLObjectElementContentDocument , - getDOMHTMLObjectElementContentDocument , - - --- ** Data - DOMHTMLObjectElementDataPropertyInfo , - constructDOMHTMLObjectElementData , - dOMHTMLObjectElementData , - getDOMHTMLObjectElementData , - setDOMHTMLObjectElementData , - - --- ** Declare - DOMHTMLObjectElementDeclarePropertyInfo , - constructDOMHTMLObjectElementDeclare , - dOMHTMLObjectElementDeclare , - getDOMHTMLObjectElementDeclare , - setDOMHTMLObjectElementDeclare , - - --- ** Form - DOMHTMLObjectElementFormPropertyInfo , - dOMHTMLObjectElementForm , - getDOMHTMLObjectElementForm , - - --- ** Height - DOMHTMLObjectElementHeightPropertyInfo , - constructDOMHTMLObjectElementHeight , - dOMHTMLObjectElementHeight , - getDOMHTMLObjectElementHeight , - setDOMHTMLObjectElementHeight , - - --- ** Hspace - DOMHTMLObjectElementHspacePropertyInfo , - constructDOMHTMLObjectElementHspace , - dOMHTMLObjectElementHspace , - getDOMHTMLObjectElementHspace , - setDOMHTMLObjectElementHspace , - - --- ** Name - DOMHTMLObjectElementNamePropertyInfo , - constructDOMHTMLObjectElementName , - dOMHTMLObjectElementName , - getDOMHTMLObjectElementName , - setDOMHTMLObjectElementName , - - --- ** Standby - DOMHTMLObjectElementStandbyPropertyInfo , - constructDOMHTMLObjectElementStandby , - dOMHTMLObjectElementStandby , - getDOMHTMLObjectElementStandby , - setDOMHTMLObjectElementStandby , - - --- ** Type - DOMHTMLObjectElementTypePropertyInfo , - clearDOMHTMLObjectElementType , - constructDOMHTMLObjectElementType , - dOMHTMLObjectElementType , - getDOMHTMLObjectElementType , - setDOMHTMLObjectElementType , - - --- ** UseMap - DOMHTMLObjectElementUseMapPropertyInfo , - constructDOMHTMLObjectElementUseMap , - dOMHTMLObjectElementUseMap , - getDOMHTMLObjectElementUseMap , - setDOMHTMLObjectElementUseMap , - - --- ** ValidationMessage - DOMHTMLObjectElementValidationMessagePropertyInfo, - dOMHTMLObjectElementValidationMessage , - getDOMHTMLObjectElementValidationMessage, - - --- ** Vspace - DOMHTMLObjectElementVspacePropertyInfo , - constructDOMHTMLObjectElementVspace , - dOMHTMLObjectElementVspace , - getDOMHTMLObjectElementVspace , - setDOMHTMLObjectElementVspace , - - --- ** Width - DOMHTMLObjectElementWidthPropertyInfo , - constructDOMHTMLObjectElementWidth , - dOMHTMLObjectElementWidth , - getDOMHTMLObjectElementWidth , - setDOMHTMLObjectElementWidth , - - --- ** WillValidate - DOMHTMLObjectElementWillValidatePropertyInfo, - dOMHTMLObjectElementWillValidate , - getDOMHTMLObjectElementWillValidate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLObjectElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLObjectElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLObjectElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLObjectElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLObjectElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLObjectElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLObjectElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLObjectElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLObjectElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLObjectElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLObjectElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLObjectElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLObjectElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLObjectElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLObjectElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLObjectElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLObjectElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLObjectElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLObjectElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLObjectElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLObjectElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLObjectElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLObjectElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLObjectElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLObjectElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLObjectElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLObjectElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLObjectElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLObjectElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLObjectElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLObjectElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLObjectElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLObjectElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLObjectElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLObjectElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLObjectElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLObjectElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLObjectElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLObjectElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLObjectElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLObjectElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLObjectElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLObjectElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLObjectElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLObjectElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLObjectElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLObjectElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLObjectElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLObjectElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLObjectElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLObjectElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLObjectElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLObjectElementMethod "getAlign" o = DOMHTMLObjectElementGetAlignMethodInfo - ResolveDOMHTMLObjectElementMethod "getArchive" o = DOMHTMLObjectElementGetArchiveMethodInfo - ResolveDOMHTMLObjectElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLObjectElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLObjectElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLObjectElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLObjectElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLObjectElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLObjectElementMethod "getBorder" o = DOMHTMLObjectElementGetBorderMethodInfo - ResolveDOMHTMLObjectElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLObjectElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLObjectElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLObjectElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLObjectElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLObjectElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLObjectElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLObjectElementMethod "getCode" o = DOMHTMLObjectElementGetCodeMethodInfo - ResolveDOMHTMLObjectElementMethod "getCodeBase" o = DOMHTMLObjectElementGetCodeBaseMethodInfo - ResolveDOMHTMLObjectElementMethod "getCodeType" o = DOMHTMLObjectElementGetCodeTypeMethodInfo - ResolveDOMHTMLObjectElementMethod "getContentDocument" o = DOMHTMLObjectElementGetContentDocumentMethodInfo - ResolveDOMHTMLObjectElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLObjectElementMethod "getDeclare" o = DOMHTMLObjectElementGetDeclareMethodInfo - ResolveDOMHTMLObjectElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLObjectElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLObjectElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLObjectElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLObjectElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLObjectElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLObjectElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLObjectElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLObjectElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLObjectElementMethod "getForm" o = DOMHTMLObjectElementGetFormMethodInfo - ResolveDOMHTMLObjectElementMethod "getHeight" o = DOMHTMLObjectElementGetHeightMethodInfo - ResolveDOMHTMLObjectElementMethod "getHspace" o = DOMHTMLObjectElementGetHspaceMethodInfo - ResolveDOMHTMLObjectElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLObjectElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLObjectElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLObjectElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLObjectElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLObjectElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLObjectElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLObjectElementMethod "getName" o = DOMHTMLObjectElementGetNameMethodInfo - ResolveDOMHTMLObjectElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLObjectElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLObjectElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLObjectElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLObjectElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLObjectElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLObjectElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLObjectElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLObjectElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLObjectElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLObjectElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLObjectElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLObjectElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLObjectElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLObjectElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLObjectElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLObjectElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLObjectElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLObjectElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLObjectElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLObjectElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLObjectElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLObjectElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLObjectElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLObjectElementMethod "getStandby" o = DOMHTMLObjectElementGetStandbyMethodInfo - ResolveDOMHTMLObjectElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLObjectElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLObjectElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLObjectElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLObjectElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLObjectElementMethod "getTypeAttr" o = DOMHTMLObjectElementGetTypeAttrMethodInfo - ResolveDOMHTMLObjectElementMethod "getUseMap" o = DOMHTMLObjectElementGetUseMapMethodInfo - ResolveDOMHTMLObjectElementMethod "getVspace" o = DOMHTMLObjectElementGetVspaceMethodInfo - ResolveDOMHTMLObjectElementMethod "getWidth" o = DOMHTMLObjectElementGetWidthMethodInfo - ResolveDOMHTMLObjectElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLObjectElementMethod "setAlign" o = DOMHTMLObjectElementSetAlignMethodInfo - ResolveDOMHTMLObjectElementMethod "setArchive" o = DOMHTMLObjectElementSetArchiveMethodInfo - ResolveDOMHTMLObjectElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLObjectElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLObjectElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLObjectElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLObjectElementMethod "setBorder" o = DOMHTMLObjectElementSetBorderMethodInfo - ResolveDOMHTMLObjectElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLObjectElementMethod "setCode" o = DOMHTMLObjectElementSetCodeMethodInfo - ResolveDOMHTMLObjectElementMethod "setCodeBase" o = DOMHTMLObjectElementSetCodeBaseMethodInfo - ResolveDOMHTMLObjectElementMethod "setCodeType" o = DOMHTMLObjectElementSetCodeTypeMethodInfo - ResolveDOMHTMLObjectElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLObjectElementMethod "setDeclare" o = DOMHTMLObjectElementSetDeclareMethodInfo - ResolveDOMHTMLObjectElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLObjectElementMethod "setHeight" o = DOMHTMLObjectElementSetHeightMethodInfo - ResolveDOMHTMLObjectElementMethod "setHspace" o = DOMHTMLObjectElementSetHspaceMethodInfo - ResolveDOMHTMLObjectElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLObjectElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLObjectElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLObjectElementMethod "setName" o = DOMHTMLObjectElementSetNameMethodInfo - ResolveDOMHTMLObjectElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLObjectElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLObjectElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLObjectElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLObjectElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLObjectElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLObjectElementMethod "setStandby" o = DOMHTMLObjectElementSetStandbyMethodInfo - ResolveDOMHTMLObjectElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLObjectElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLObjectElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLObjectElementMethod "setTypeAttr" o = DOMHTMLObjectElementSetTypeAttrMethodInfo - ResolveDOMHTMLObjectElementMethod "setUseMap" o = DOMHTMLObjectElementSetUseMapMethodInfo - ResolveDOMHTMLObjectElementMethod "setVspace" o = DOMHTMLObjectElementSetVspaceMethodInfo - ResolveDOMHTMLObjectElementMethod "setWidth" o = DOMHTMLObjectElementSetWidthMethodInfo - ResolveDOMHTMLObjectElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLObjectElementMethod t DOMHTMLObjectElement, MethodInfo info DOMHTMLObjectElement p) => IsLabelProxy t (DOMHTMLObjectElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLObjectElementMethod t DOMHTMLObjectElement, MethodInfo info DOMHTMLObjectElement p) => IsLabel t (DOMHTMLObjectElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLObjectElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLObjectElementAlign - attrSet _ = setDOMHTMLObjectElementAlign - attrConstruct _ = constructDOMHTMLObjectElementAlign - attrClear _ = undefined - --- VVV Prop "archive" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementArchive obj = liftIO $ getObjectPropertyString obj "archive" - -setDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" (Just val) - -constructDOMHTMLObjectElementArchive :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementArchive val = constructObjectPropertyString "archive" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementArchivePropertyInfo = "archive" - attrGet _ = getDOMHTMLObjectElementArchive - attrSet _ = setDOMHTMLObjectElementArchive - attrConstruct _ = constructDOMHTMLObjectElementArchive - attrClear _ = undefined - --- VVV Prop "border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementBorder obj = liftIO $ getObjectPropertyString obj "border" - -setDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementBorder obj val = liftIO $ setObjectPropertyString obj "border" (Just val) - -constructDOMHTMLObjectElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementBorder val = constructObjectPropertyString "border" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementBorderPropertyInfo = "border" - attrGet _ = getDOMHTMLObjectElementBorder - attrSet _ = setDOMHTMLObjectElementBorder - attrConstruct _ = constructDOMHTMLObjectElementBorder - attrClear _ = undefined - --- VVV Prop "code" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementCode obj = liftIO $ getObjectPropertyString obj "code" - -setDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementCode obj val = liftIO $ setObjectPropertyString obj "code" (Just val) - -constructDOMHTMLObjectElementCode :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCode val = constructObjectPropertyString "code" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementCodePropertyInfo = "code" - attrGet _ = getDOMHTMLObjectElementCode - attrSet _ = setDOMHTMLObjectElementCode - attrConstruct _ = constructDOMHTMLObjectElementCode - attrClear _ = undefined - --- VVV Prop "code-base" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLObjectElementCodeBase :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCodeBase val = constructObjectPropertyString "code-base" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementCodeBasePropertyInfo = "code-base" - attrGet _ = getDOMHTMLObjectElementCodeBase - attrSet _ = setDOMHTMLObjectElementCodeBase - attrConstruct _ = constructDOMHTMLObjectElementCodeBase - attrClear _ = undefined - --- VVV Prop "code-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLObjectElementCodeType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementCodeType val = constructObjectPropertyString "code-type" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementCodeTypePropertyInfo = "code-type" - attrGet _ = getDOMHTMLObjectElementCodeType - attrSet _ = setDOMHTMLObjectElementCodeType - attrConstruct _ = constructDOMHTMLObjectElementCodeType - attrClear _ = undefined - --- VVV Prop "content-document" - -- Type: TInterface "WebKit2WebExtension" "DOMDocument" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLObjectElementContentDocument :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMDocument -getDOMHTMLObjectElementContentDocument obj = liftIO $ checkUnexpectedNothing "getDOMHTMLObjectElementContentDocument" $ getObjectPropertyObject obj "content-document" DOMDocument - -data DOMHTMLObjectElementContentDocumentPropertyInfo -instance AttrInfo DOMHTMLObjectElementContentDocumentPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementContentDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementContentDocumentPropertyInfo = DOMDocument - type AttrLabel DOMHTMLObjectElementContentDocumentPropertyInfo = "content-document" - attrGet _ = getDOMHTMLObjectElementContentDocument - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "data" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementData obj = liftIO $ getObjectPropertyString obj "data" - -setDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementData obj val = liftIO $ setObjectPropertyString obj "data" (Just val) - -constructDOMHTMLObjectElementData :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementData val = constructObjectPropertyString "data" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementDataPropertyInfo = "data" - attrGet _ = getDOMHTMLObjectElementData - attrSet _ = setDOMHTMLObjectElementData - attrConstruct _ = constructDOMHTMLObjectElementData - attrClear _ = undefined - --- VVV Prop "declare" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "declare" - attrGet _ = getDOMHTMLObjectElementDeclare - attrSet _ = setDOMHTMLObjectElementDeclare - attrConstruct _ = constructDOMHTMLObjectElementDeclare - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLObjectElementForm :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLObjectElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLObjectElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLObjectElementFormPropertyInfo -instance AttrInfo DOMHTMLObjectElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLObjectElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementFormPropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLObjectElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLObjectElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) - -constructDOMHTMLObjectElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementHeight val = constructObjectPropertyString "height" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLObjectElementHeight - attrSet _ = setDOMHTMLObjectElementHeight - attrConstruct _ = constructDOMHTMLObjectElementHeight - attrClear _ = undefined - --- VVV Prop "hspace" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m CLong -getDOMHTMLObjectElementHspace obj = liftIO $ getObjectPropertyLong obj "hspace" - -setDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> CLong -> m () -setDOMHTMLObjectElementHspace obj val = liftIO $ setObjectPropertyLong obj "hspace" val - -constructDOMHTMLObjectElementHspace :: CLong -> IO ([Char], GValue) -constructDOMHTMLObjectElementHspace val = constructObjectPropertyLong "hspace" val - -data DOMHTMLObjectElementHspacePropertyInfo -instance AttrInfo DOMHTMLObjectElementHspacePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementHspacePropertyInfo = CLong - type AttrLabel DOMHTMLObjectElementHspacePropertyInfo = "hspace" - attrGet _ = getDOMHTMLObjectElementHspace - attrSet _ = setDOMHTMLObjectElementHspace - attrConstruct _ = constructDOMHTMLObjectElementHspace - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLObjectElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLObjectElementName - attrSet _ = setDOMHTMLObjectElementName - attrConstruct _ = constructDOMHTMLObjectElementName - attrClear _ = undefined - --- VVV Prop "standby" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementStandby obj = liftIO $ getObjectPropertyString obj "standby" - -setDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementStandby obj val = liftIO $ setObjectPropertyString obj "standby" (Just val) - -constructDOMHTMLObjectElementStandby :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementStandby val = constructObjectPropertyString "standby" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementStandbyPropertyInfo = "standby" - attrGet _ = getDOMHTMLObjectElementStandby - attrSet _ = setDOMHTMLObjectElementStandby - attrConstruct _ = constructDOMHTMLObjectElementStandby - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLObjectElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m () -clearDOMHTMLObjectElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLObjectElementTypePropertyInfo -instance AttrInfo DOMHTMLObjectElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLObjectElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLObjectElementTypePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLObjectElementType - attrSet _ = setDOMHTMLObjectElementType - attrConstruct _ = constructDOMHTMLObjectElementType - attrClear _ = clearDOMHTMLObjectElementType - --- VVV Prop "use-map" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLObjectElementUseMap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementUseMap val = constructObjectPropertyString "use-map" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementUseMapPropertyInfo = "use-map" - attrGet _ = getDOMHTMLObjectElementUseMap - attrSet _ = setDOMHTMLObjectElementUseMap - attrConstruct _ = constructDOMHTMLObjectElementUseMap - attrClear _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLObjectElementValidationMessage :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLObjectElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLObjectElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementValidationMessagePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementValidationMessagePropertyInfo = "validation-message" - attrGet _ = getDOMHTMLObjectElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "vspace" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m CLong -getDOMHTMLObjectElementVspace obj = liftIO $ getObjectPropertyLong obj "vspace" - -setDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> CLong -> m () -setDOMHTMLObjectElementVspace obj val = liftIO $ setObjectPropertyLong obj "vspace" val - -constructDOMHTMLObjectElementVspace :: CLong -> IO ([Char], GValue) -constructDOMHTMLObjectElementVspace val = constructObjectPropertyLong "vspace" val - -data DOMHTMLObjectElementVspacePropertyInfo -instance AttrInfo DOMHTMLObjectElementVspacePropertyInfo where - type AttrAllowedOps DOMHTMLObjectElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = DOMHTMLObjectElementK - type AttrGetType DOMHTMLObjectElementVspacePropertyInfo = CLong - type AttrLabel DOMHTMLObjectElementVspacePropertyInfo = "vspace" - attrGet _ = getDOMHTMLObjectElementVspace - attrSet _ = setDOMHTMLObjectElementVspace - attrConstruct _ = constructDOMHTMLObjectElementVspace - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLObjectElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () -setDOMHTMLObjectElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLObjectElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLObjectElementWidth val = constructObjectPropertyString "width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLObjectElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLObjectElementWidth - attrSet _ = setDOMHTMLObjectElementWidth - attrConstruct _ = constructDOMHTMLObjectElementWidth - attrClear _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "will-validate" - attrGet _ = getDOMHTMLObjectElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLObjectElement = DOMHTMLObjectElementAttributeList -type DOMHTMLObjectElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLObjectElementAlignPropertyInfo), '("archive", DOMHTMLObjectElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLObjectElementBorderPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLObjectElementCodePropertyInfo), '("codeBase", DOMHTMLObjectElementCodeBasePropertyInfo), '("codeType", DOMHTMLObjectElementCodeTypePropertyInfo), '("contentDocument", DOMHTMLObjectElementContentDocumentPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMHTMLObjectElementDataPropertyInfo), '("declare", DOMHTMLObjectElementDeclarePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLObjectElementFormPropertyInfo), '("height", DOMHTMLObjectElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLObjectElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLObjectElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("standby", DOMHTMLObjectElementStandbyPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLObjectElementTypePropertyInfo), '("useMap", DOMHTMLObjectElementUseMapPropertyInfo), '("validationMessage", DOMHTMLObjectElementValidationMessagePropertyInfo), '("vspace", DOMHTMLObjectElementVspacePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLObjectElementWidthPropertyInfo), '("willValidate", DOMHTMLObjectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLObjectElementAlign :: AttrLabelProxy "align" -dOMHTMLObjectElementAlign = AttrLabelProxy - -dOMHTMLObjectElementArchive :: AttrLabelProxy "archive" -dOMHTMLObjectElementArchive = AttrLabelProxy - -dOMHTMLObjectElementBorder :: AttrLabelProxy "border" -dOMHTMLObjectElementBorder = AttrLabelProxy - -dOMHTMLObjectElementCode :: AttrLabelProxy "code" -dOMHTMLObjectElementCode = AttrLabelProxy - -dOMHTMLObjectElementCodeBase :: AttrLabelProxy "codeBase" -dOMHTMLObjectElementCodeBase = AttrLabelProxy - -dOMHTMLObjectElementCodeType :: AttrLabelProxy "codeType" -dOMHTMLObjectElementCodeType = AttrLabelProxy - -dOMHTMLObjectElementContentDocument :: AttrLabelProxy "contentDocument" -dOMHTMLObjectElementContentDocument = AttrLabelProxy - -dOMHTMLObjectElementData :: AttrLabelProxy "data" -dOMHTMLObjectElementData = AttrLabelProxy - -dOMHTMLObjectElementDeclare :: AttrLabelProxy "declare" -dOMHTMLObjectElementDeclare = AttrLabelProxy - -dOMHTMLObjectElementForm :: AttrLabelProxy "form" -dOMHTMLObjectElementForm = AttrLabelProxy - -dOMHTMLObjectElementHeight :: AttrLabelProxy "height" -dOMHTMLObjectElementHeight = AttrLabelProxy - -dOMHTMLObjectElementHspace :: AttrLabelProxy "hspace" -dOMHTMLObjectElementHspace = AttrLabelProxy - -dOMHTMLObjectElementName :: AttrLabelProxy "name" -dOMHTMLObjectElementName = AttrLabelProxy - -dOMHTMLObjectElementStandby :: AttrLabelProxy "standby" -dOMHTMLObjectElementStandby = AttrLabelProxy - -dOMHTMLObjectElementType :: AttrLabelProxy "type" -dOMHTMLObjectElementType = AttrLabelProxy - -dOMHTMLObjectElementUseMap :: AttrLabelProxy "useMap" -dOMHTMLObjectElementUseMap = AttrLabelProxy - -dOMHTMLObjectElementValidationMessage :: AttrLabelProxy "validationMessage" -dOMHTMLObjectElementValidationMessage = AttrLabelProxy - -dOMHTMLObjectElementVspace :: AttrLabelProxy "vspace" -dOMHTMLObjectElementVspace = AttrLabelProxy - -dOMHTMLObjectElementWidth :: AttrLabelProxy "width" -dOMHTMLObjectElementWidth = AttrLabelProxy - -dOMHTMLObjectElementWillValidate :: AttrLabelProxy "willValidate" -dOMHTMLObjectElementWillValidate = AttrLabelProxy - -type instance SignalList DOMHTMLObjectElement = DOMHTMLObjectElementSignalList -type DOMHTMLObjectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLObjectElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetAlign - --- method DOMHTMLObjectElement::get_archive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetArchiveMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetArchiveMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetArchive - --- method DOMHTMLObjectElement::get_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetBorderMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetBorder - --- method DOMHTMLObjectElement::get_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetCodeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetCodeMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetCode - --- method DOMHTMLObjectElement::get_code_base --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetCodeBaseMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetCodeBaseMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetCodeBase - --- method DOMHTMLObjectElement::get_code_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetCodeTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetCodeTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetCodeType - --- method DOMHTMLObjectElement::get_content_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetContentDocumentMethodInfo -instance (signature ~ (m DOMDocument), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetContentDocumentMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetContentDocument - --- method DOMHTMLObjectElement::get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetDataMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetDataMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetData - --- method DOMHTMLObjectElement::get_declare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetDeclareMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetDeclareMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetDeclare - --- method DOMHTMLObjectElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetForm - --- method DOMHTMLObjectElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetHeightMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetHeight - --- method DOMHTMLObjectElement::get_hspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLObjectElementGetHspace :: - (MonadIO m, DOMHTMLObjectElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLObjectElementGetHspace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_object_element_get_hspace _obj' - touchManagedPtr _obj - return result - -data DOMHTMLObjectElementGetHspaceMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetHspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetHspace - --- method DOMHTMLObjectElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetName - --- method DOMHTMLObjectElement::get_standby --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetStandbyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetStandbyMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetStandby - --- method DOMHTMLObjectElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetTypeAttr - --- method DOMHTMLObjectElement::get_use_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetUseMapMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetUseMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetUseMap - --- method DOMHTMLObjectElement::get_vspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLObjectElementGetVspace :: - (MonadIO m, DOMHTMLObjectElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLObjectElementGetVspace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_object_element_get_vspace _obj' - touchManagedPtr _obj - return result - -data DOMHTMLObjectElementGetVspaceMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetVspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetVspace - --- method DOMHTMLObjectElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLObjectElementGetWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementGetWidth - --- method DOMHTMLObjectElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetAlign - --- method DOMHTMLObjectElement::set_archive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetArchiveMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetArchiveMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetArchive - --- method DOMHTMLObjectElement::set_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetBorderMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetBorder - --- method DOMHTMLObjectElement::set_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetCodeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetCodeMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetCode - --- method DOMHTMLObjectElement::set_code_base --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetCodeBaseMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetCodeBaseMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetCodeBase - --- method DOMHTMLObjectElement::set_code_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetCodeTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetCodeTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetCodeType - --- method DOMHTMLObjectElement::set_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetDataMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetDataMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetData - --- method DOMHTMLObjectElement::set_declare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetDeclareMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetDeclareMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetDeclare - --- method DOMHTMLObjectElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetHeightMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetHeight - --- method DOMHTMLObjectElement::set_hspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLObjectElementSetHspace :: - (MonadIO m, DOMHTMLObjectElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLObjectElementSetHspace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_object_element_set_hspace _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLObjectElementSetHspaceMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetHspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetHspace - --- method DOMHTMLObjectElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetName - --- method DOMHTMLObjectElement::set_standby --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetStandbyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetStandbyMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetStandby - --- method DOMHTMLObjectElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetTypeAttr - --- method DOMHTMLObjectElement::set_use_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetUseMapMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetUseMapMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetUseMap - --- method DOMHTMLObjectElement::set_vspace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLObjectElementSetVspace :: - (MonadIO m, DOMHTMLObjectElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLObjectElementSetVspace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_object_element_set_vspace _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLObjectElementSetVspaceMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetVspaceMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetVspace - --- method DOMHTMLObjectElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLObjectElementSetWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLObjectElementK a) => MethodInfo DOMHTMLObjectElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLObjectElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot +++ /dev/null @@ -1,67 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLObjectElementGetAlignMethodInfo -data DOMHTMLObjectElementGetArchiveMethodInfo -data DOMHTMLObjectElementGetBorderMethodInfo -data DOMHTMLObjectElementGetCodeMethodInfo -data DOMHTMLObjectElementGetCodeBaseMethodInfo -data DOMHTMLObjectElementGetCodeTypeMethodInfo -data DOMHTMLObjectElementGetContentDocumentMethodInfo -data DOMHTMLObjectElementGetDataMethodInfo -data DOMHTMLObjectElementGetDeclareMethodInfo -data DOMHTMLObjectElementGetFormMethodInfo -data DOMHTMLObjectElementGetHeightMethodInfo -data DOMHTMLObjectElementGetHspaceMethodInfo -data DOMHTMLObjectElementGetNameMethodInfo -data DOMHTMLObjectElementGetStandbyMethodInfo -data DOMHTMLObjectElementGetTypeAttrMethodInfo -data DOMHTMLObjectElementGetUseMapMethodInfo -data DOMHTMLObjectElementGetVspaceMethodInfo -data DOMHTMLObjectElementGetWidthMethodInfo -data DOMHTMLObjectElementSetAlignMethodInfo -data DOMHTMLObjectElementSetArchiveMethodInfo -data DOMHTMLObjectElementSetBorderMethodInfo -data DOMHTMLObjectElementSetCodeMethodInfo -data DOMHTMLObjectElementSetCodeBaseMethodInfo -data DOMHTMLObjectElementSetCodeTypeMethodInfo -data DOMHTMLObjectElementSetDataMethodInfo -data DOMHTMLObjectElementSetDeclareMethodInfo -data DOMHTMLObjectElementSetHeightMethodInfo -data DOMHTMLObjectElementSetHspaceMethodInfo -data DOMHTMLObjectElementSetNameMethodInfo -data DOMHTMLObjectElementSetStandbyMethodInfo -data DOMHTMLObjectElementSetTypeAttrMethodInfo -data DOMHTMLObjectElementSetUseMapMethodInfo -data DOMHTMLObjectElementSetVspaceMethodInfo -data DOMHTMLObjectElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs +++ /dev/null @@ -1,425 +0,0 @@ - - -{- | -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 - DOMHTMLOptGroupElementGetDisabledMethodInfo, - dOMHTMLOptGroupElementGetDisabled , - - --- ** dOMHTMLOptGroupElementGetLabel - DOMHTMLOptGroupElementGetLabelMethodInfo, - dOMHTMLOptGroupElementGetLabel , - - --- ** dOMHTMLOptGroupElementSetDisabled - DOMHTMLOptGroupElementSetDisabledMethodInfo, - dOMHTMLOptGroupElementSetDisabled , - - --- ** dOMHTMLOptGroupElementSetLabel - DOMHTMLOptGroupElementSetLabelMethodInfo, - dOMHTMLOptGroupElementSetLabel , - - - - - -- * Properties --- ** Disabled - DOMHTMLOptGroupElementDisabledPropertyInfo, - constructDOMHTMLOptGroupElementDisabled , - dOMHTMLOptGroupElementDisabled , - getDOMHTMLOptGroupElementDisabled , - setDOMHTMLOptGroupElementDisabled , - - --- ** Label - DOMHTMLOptGroupElementLabelPropertyInfo , - constructDOMHTMLOptGroupElementLabel , - dOMHTMLOptGroupElementLabel , - getDOMHTMLOptGroupElementLabel , - setDOMHTMLOptGroupElementLabel , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLOptGroupElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLOptGroupElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLOptGroupElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLOptGroupElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLOptGroupElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLOptGroupElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLOptGroupElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLOptGroupElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLOptGroupElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLOptGroupElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLOptGroupElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLOptGroupElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLOptGroupElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLOptGroupElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLOptGroupElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLOptGroupElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLOptGroupElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLOptGroupElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLOptGroupElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLOptGroupElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLOptGroupElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLOptGroupElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLOptGroupElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLOptGroupElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLOptGroupElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLOptGroupElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLOptGroupElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLOptGroupElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLOptGroupElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLOptGroupElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLOptGroupElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLOptGroupElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLOptGroupElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLOptGroupElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLOptGroupElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getDisabled" o = DOMHTMLOptGroupElementGetDisabledMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getLabel" o = DOMHTMLOptGroupElementGetLabelMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLOptGroupElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setDisabled" o = DOMHTMLOptGroupElementSetDisabledMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setLabel" o = DOMHTMLOptGroupElementSetLabelMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLOptGroupElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLOptGroupElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLOptGroupElementMethod t DOMHTMLOptGroupElement, MethodInfo info DOMHTMLOptGroupElement p) => IsLabelProxy t (DOMHTMLOptGroupElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLOptGroupElementMethod t DOMHTMLOptGroupElement, MethodInfo info DOMHTMLOptGroupElement p) => IsLabel t (DOMHTMLOptGroupElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLOptGroupElementDisabled - attrSet _ = setDOMHTMLOptGroupElementDisabled - attrConstruct _ = constructDOMHTMLOptGroupElementDisabled - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m (Maybe T.Text) -getDOMHTMLOptGroupElementLabel obj = liftIO $ getObjectPropertyString obj "label" - -setDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> T.Text -> m () -setDOMHTMLOptGroupElementLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructDOMHTMLOptGroupElementLabel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptGroupElementLabel val = constructObjectPropertyString "label" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLOptGroupElementLabelPropertyInfo = "label" - attrGet _ = getDOMHTMLOptGroupElementLabel - attrSet _ = setDOMHTMLOptGroupElementLabel - attrConstruct _ = constructDOMHTMLOptGroupElementLabel - attrClear _ = undefined - -type instance AttributeList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementAttributeList -type DOMHTMLOptGroupElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptGroupElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptGroupElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLOptGroupElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLOptGroupElementDisabled = AttrLabelProxy - -dOMHTMLOptGroupElementLabel :: AttrLabelProxy "label" -dOMHTMLOptGroupElementLabel = AttrLabelProxy - -type instance SignalList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementSignalList -type DOMHTMLOptGroupElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLOptGroupElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptGroupElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLOptGroupElementK a) => MethodInfo DOMHTMLOptGroupElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptGroupElementGetDisabled - --- method DOMHTMLOptGroupElement::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptGroupElementGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLOptGroupElementK a) => MethodInfo DOMHTMLOptGroupElementGetLabelMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptGroupElementGetLabel - --- method DOMHTMLOptGroupElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOptGroupElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLOptGroupElementK a) => MethodInfo DOMHTMLOptGroupElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptGroupElementSetDisabled - --- method DOMHTMLOptGroupElement::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOptGroupElementSetLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLOptGroupElementK a) => MethodInfo DOMHTMLOptGroupElementSetLabelMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptGroupElementSetLabel - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLOptGroupElementGetDisabledMethodInfo -data DOMHTMLOptGroupElementGetLabelMethodInfo -data DOMHTMLOptGroupElementSetDisabledMethodInfo -data DOMHTMLOptGroupElementSetLabelMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs +++ /dev/null @@ -1,940 +0,0 @@ - - -{- | -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 - DOMHTMLOptionElementGetDefaultSelectedMethodInfo, - dOMHTMLOptionElementGetDefaultSelected , - - --- ** dOMHTMLOptionElementGetDisabled - DOMHTMLOptionElementGetDisabledMethodInfo, - dOMHTMLOptionElementGetDisabled , - - --- ** dOMHTMLOptionElementGetForm - DOMHTMLOptionElementGetFormMethodInfo , - dOMHTMLOptionElementGetForm , - - --- ** dOMHTMLOptionElementGetIndex - DOMHTMLOptionElementGetIndexMethodInfo , - dOMHTMLOptionElementGetIndex , - - --- ** dOMHTMLOptionElementGetLabel - DOMHTMLOptionElementGetLabelMethodInfo , - dOMHTMLOptionElementGetLabel , - - --- ** dOMHTMLOptionElementGetSelected - DOMHTMLOptionElementGetSelectedMethodInfo, - dOMHTMLOptionElementGetSelected , - - --- ** dOMHTMLOptionElementGetText - DOMHTMLOptionElementGetTextMethodInfo , - dOMHTMLOptionElementGetText , - - --- ** dOMHTMLOptionElementGetValue - DOMHTMLOptionElementGetValueMethodInfo , - dOMHTMLOptionElementGetValue , - - --- ** dOMHTMLOptionElementSetDefaultSelected - DOMHTMLOptionElementSetDefaultSelectedMethodInfo, - dOMHTMLOptionElementSetDefaultSelected , - - --- ** dOMHTMLOptionElementSetDisabled - DOMHTMLOptionElementSetDisabledMethodInfo, - dOMHTMLOptionElementSetDisabled , - - --- ** dOMHTMLOptionElementSetLabel - DOMHTMLOptionElementSetLabelMethodInfo , - dOMHTMLOptionElementSetLabel , - - --- ** dOMHTMLOptionElementSetSelected - DOMHTMLOptionElementSetSelectedMethodInfo, - dOMHTMLOptionElementSetSelected , - - --- ** dOMHTMLOptionElementSetValue - DOMHTMLOptionElementSetValueMethodInfo , - dOMHTMLOptionElementSetValue , - - - - - -- * Properties --- ** DefaultSelected - DOMHTMLOptionElementDefaultSelectedPropertyInfo, - constructDOMHTMLOptionElementDefaultSelected, - dOMHTMLOptionElementDefaultSelected , - getDOMHTMLOptionElementDefaultSelected , - setDOMHTMLOptionElementDefaultSelected , - - --- ** Disabled - DOMHTMLOptionElementDisabledPropertyInfo, - constructDOMHTMLOptionElementDisabled , - dOMHTMLOptionElementDisabled , - getDOMHTMLOptionElementDisabled , - setDOMHTMLOptionElementDisabled , - - --- ** Form - DOMHTMLOptionElementFormPropertyInfo , - dOMHTMLOptionElementForm , - getDOMHTMLOptionElementForm , - - --- ** Index - DOMHTMLOptionElementIndexPropertyInfo , - dOMHTMLOptionElementIndex , - getDOMHTMLOptionElementIndex , - - --- ** Label - DOMHTMLOptionElementLabelPropertyInfo , - constructDOMHTMLOptionElementLabel , - dOMHTMLOptionElementLabel , - getDOMHTMLOptionElementLabel , - setDOMHTMLOptionElementLabel , - - --- ** Selected - DOMHTMLOptionElementSelectedPropertyInfo, - constructDOMHTMLOptionElementSelected , - dOMHTMLOptionElementSelected , - getDOMHTMLOptionElementSelected , - setDOMHTMLOptionElementSelected , - - --- ** Text - DOMHTMLOptionElementTextPropertyInfo , - dOMHTMLOptionElementText , - getDOMHTMLOptionElementText , - - --- ** Value - DOMHTMLOptionElementValuePropertyInfo , - constructDOMHTMLOptionElementValue , - dOMHTMLOptionElementValue , - getDOMHTMLOptionElementValue , - setDOMHTMLOptionElementValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLOptionElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLOptionElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLOptionElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLOptionElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLOptionElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLOptionElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLOptionElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLOptionElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLOptionElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLOptionElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLOptionElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLOptionElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLOptionElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLOptionElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLOptionElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLOptionElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLOptionElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLOptionElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLOptionElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLOptionElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLOptionElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLOptionElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLOptionElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLOptionElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLOptionElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLOptionElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLOptionElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLOptionElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLOptionElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLOptionElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLOptionElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLOptionElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLOptionElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLOptionElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLOptionElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLOptionElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLOptionElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLOptionElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLOptionElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLOptionElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLOptionElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLOptionElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLOptionElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLOptionElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLOptionElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLOptionElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLOptionElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLOptionElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLOptionElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLOptionElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLOptionElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLOptionElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLOptionElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLOptionElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLOptionElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLOptionElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLOptionElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLOptionElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLOptionElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLOptionElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLOptionElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLOptionElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLOptionElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLOptionElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLOptionElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLOptionElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLOptionElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLOptionElementMethod "getDefaultSelected" o = DOMHTMLOptionElementGetDefaultSelectedMethodInfo - ResolveDOMHTMLOptionElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLOptionElementMethod "getDisabled" o = DOMHTMLOptionElementGetDisabledMethodInfo - ResolveDOMHTMLOptionElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLOptionElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLOptionElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLOptionElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLOptionElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLOptionElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLOptionElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLOptionElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLOptionElementMethod "getForm" o = DOMHTMLOptionElementGetFormMethodInfo - ResolveDOMHTMLOptionElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLOptionElementMethod "getIndex" o = DOMHTMLOptionElementGetIndexMethodInfo - ResolveDOMHTMLOptionElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLOptionElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLOptionElementMethod "getLabel" o = DOMHTMLOptionElementGetLabelMethodInfo - ResolveDOMHTMLOptionElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLOptionElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLOptionElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLOptionElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLOptionElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLOptionElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLOptionElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLOptionElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLOptionElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLOptionElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLOptionElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLOptionElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLOptionElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLOptionElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLOptionElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLOptionElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLOptionElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLOptionElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLOptionElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLOptionElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLOptionElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLOptionElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLOptionElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLOptionElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLOptionElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLOptionElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLOptionElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLOptionElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLOptionElementMethod "getSelected" o = DOMHTMLOptionElementGetSelectedMethodInfo - ResolveDOMHTMLOptionElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLOptionElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLOptionElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLOptionElementMethod "getText" o = DOMHTMLOptionElementGetTextMethodInfo - ResolveDOMHTMLOptionElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLOptionElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLOptionElementMethod "getValue" o = DOMHTMLOptionElementGetValueMethodInfo - ResolveDOMHTMLOptionElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLOptionElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLOptionElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLOptionElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLOptionElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLOptionElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLOptionElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLOptionElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLOptionElementMethod "setDefaultSelected" o = DOMHTMLOptionElementSetDefaultSelectedMethodInfo - ResolveDOMHTMLOptionElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLOptionElementMethod "setDisabled" o = DOMHTMLOptionElementSetDisabledMethodInfo - ResolveDOMHTMLOptionElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLOptionElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLOptionElementMethod "setLabel" o = DOMHTMLOptionElementSetLabelMethodInfo - ResolveDOMHTMLOptionElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLOptionElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLOptionElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLOptionElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLOptionElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLOptionElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLOptionElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLOptionElementMethod "setSelected" o = DOMHTMLOptionElementSetSelectedMethodInfo - ResolveDOMHTMLOptionElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLOptionElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLOptionElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLOptionElementMethod "setValue" o = DOMHTMLOptionElementSetValueMethodInfo - ResolveDOMHTMLOptionElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLOptionElementMethod t DOMHTMLOptionElement, MethodInfo info DOMHTMLOptionElement p) => IsLabelProxy t (DOMHTMLOptionElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLOptionElementMethod t DOMHTMLOptionElement, MethodInfo info DOMHTMLOptionElement p) => IsLabel t (DOMHTMLOptionElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "default-selected" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "default-selected" - attrGet _ = getDOMHTMLOptionElementDefaultSelected - attrSet _ = setDOMHTMLOptionElementDefaultSelected - attrConstruct _ = constructDOMHTMLOptionElementDefaultSelected - attrClear _ = undefined - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLOptionElementDisabled - attrSet _ = setDOMHTMLOptionElementDisabled - attrConstruct _ = constructDOMHTMLOptionElementDisabled - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLOptionElementForm :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLOptionElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLOptionElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLOptionElementFormPropertyInfo -instance AttrInfo DOMHTMLOptionElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLOptionElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionElementFormPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLOptionElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLOptionElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "index" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLOptionElementIndex :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m CLong -getDOMHTMLOptionElementIndex obj = liftIO $ getObjectPropertyLong obj "index" - -data DOMHTMLOptionElementIndexPropertyInfo -instance AttrInfo DOMHTMLOptionElementIndexPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementIndexPropertyInfo = CLong - type AttrLabel DOMHTMLOptionElementIndexPropertyInfo = "index" - attrGet _ = getDOMHTMLOptionElementIndex - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m (Maybe T.Text) -getDOMHTMLOptionElementLabel obj = liftIO $ getObjectPropertyString obj "label" - -setDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () -setDOMHTMLOptionElementLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) - -constructDOMHTMLOptionElementLabel :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptionElementLabel val = constructObjectPropertyString "label" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLOptionElementLabelPropertyInfo = "label" - attrGet _ = getDOMHTMLOptionElementLabel - attrSet _ = setDOMHTMLOptionElementLabel - attrConstruct _ = constructDOMHTMLOptionElementLabel - attrClear _ = undefined - --- VVV Prop "selected" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "selected" - attrGet _ = getDOMHTMLOptionElementSelected - attrSet _ = setDOMHTMLOptionElementSelected - attrConstruct _ = constructDOMHTMLOptionElementSelected - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLOptionElementText :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m (Maybe T.Text) -getDOMHTMLOptionElementText obj = liftIO $ getObjectPropertyString obj "text" - -data DOMHTMLOptionElementTextPropertyInfo -instance AttrInfo DOMHTMLOptionElementTextPropertyInfo where - type AttrAllowedOps DOMHTMLOptionElementTextPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLOptionElementTextPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionElementTextPropertyInfo = DOMHTMLOptionElementK - type AttrGetType DOMHTMLOptionElementTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLOptionElementTextPropertyInfo = "text" - attrGet _ = getDOMHTMLOptionElementText - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m (Maybe T.Text) -getDOMHTMLOptionElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () -setDOMHTMLOptionElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) - -constructDOMHTMLOptionElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLOptionElementValue val = constructObjectPropertyString "value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLOptionElementValuePropertyInfo = "value" - attrGet _ = getDOMHTMLOptionElementValue - attrSet _ = setDOMHTMLOptionElementValue - attrConstruct _ = constructDOMHTMLOptionElementValue - attrClear _ = undefined - -type instance AttributeList DOMHTMLOptionElement = DOMHTMLOptionElementAttributeList -type DOMHTMLOptionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultSelected", DOMHTMLOptionElementDefaultSelectedPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptionElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLOptionElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("index", DOMHTMLOptionElementIndexPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptionElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("selected", DOMHTMLOptionElementSelectedPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLOptionElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("value", DOMHTMLOptionElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLOptionElementDefaultSelected :: AttrLabelProxy "defaultSelected" -dOMHTMLOptionElementDefaultSelected = AttrLabelProxy - -dOMHTMLOptionElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLOptionElementDisabled = AttrLabelProxy - -dOMHTMLOptionElementForm :: AttrLabelProxy "form" -dOMHTMLOptionElementForm = AttrLabelProxy - -dOMHTMLOptionElementIndex :: AttrLabelProxy "index" -dOMHTMLOptionElementIndex = AttrLabelProxy - -dOMHTMLOptionElementLabel :: AttrLabelProxy "label" -dOMHTMLOptionElementLabel = AttrLabelProxy - -dOMHTMLOptionElementSelected :: AttrLabelProxy "selected" -dOMHTMLOptionElementSelected = AttrLabelProxy - -dOMHTMLOptionElementText :: AttrLabelProxy "text" -dOMHTMLOptionElementText = AttrLabelProxy - -dOMHTMLOptionElementValue :: AttrLabelProxy "value" -dOMHTMLOptionElementValue = AttrLabelProxy - -type instance SignalList DOMHTMLOptionElement = DOMHTMLOptionElementSignalList -type DOMHTMLOptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLOptionElement::get_default_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionElementGetDefaultSelectedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetDefaultSelectedMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetDefaultSelected - --- method DOMHTMLOptionElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetDisabled - --- method DOMHTMLOptionElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetForm - --- method DOMHTMLOptionElement::get_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLOptionElementGetIndex :: - (MonadIO m, DOMHTMLOptionElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLOptionElementGetIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_option_element_get_index _obj' - touchManagedPtr _obj - return result - -data DOMHTMLOptionElementGetIndexMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetIndex - --- method DOMHTMLOptionElement::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionElementGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetLabelMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetLabel - --- method DOMHTMLOptionElement::get_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionElementGetSelectedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetSelectedMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetSelected - --- method DOMHTMLOptionElement::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionElementGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetText - --- method DOMHTMLOptionElement::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionElementGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementGetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementGetValue - --- method DOMHTMLOptionElement::set_default_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOptionElementSetDefaultSelectedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementSetDefaultSelectedMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementSetDefaultSelected - --- method DOMHTMLOptionElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOptionElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementSetDisabled - --- method DOMHTMLOptionElement::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOptionElementSetLabelMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementSetLabelMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementSetLabel - --- method DOMHTMLOptionElement::set_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOptionElementSetSelectedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementSetSelectedMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementSetSelected - --- method DOMHTMLOptionElement::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLOptionElementSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLOptionElementK a) => MethodInfo DOMHTMLOptionElementSetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionElementSetValue - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot +++ /dev/null @@ -1,34 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLOptionElementGetDefaultSelectedMethodInfo -data DOMHTMLOptionElementGetDisabledMethodInfo -data DOMHTMLOptionElementGetFormMethodInfo -data DOMHTMLOptionElementGetIndexMethodInfo -data DOMHTMLOptionElementGetLabelMethodInfo -data DOMHTMLOptionElementGetSelectedMethodInfo -data DOMHTMLOptionElementGetTextMethodInfo -data DOMHTMLOptionElementGetValueMethodInfo -data DOMHTMLOptionElementSetDefaultSelectedMethodInfo -data DOMHTMLOptionElementSetDisabledMethodInfo -data DOMHTMLOptionElementSetLabelMethodInfo -data DOMHTMLOptionElementSetSelectedMethodInfo -data DOMHTMLOptionElementSetValueMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs +++ /dev/null @@ -1,303 +0,0 @@ - - -{- | -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 - DOMHTMLOptionsCollectionGetLengthMethodInfo, - dOMHTMLOptionsCollectionGetLength , - - --- ** dOMHTMLOptionsCollectionGetSelectedIndex - DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo, - dOMHTMLOptionsCollectionGetSelectedIndex, - - --- ** dOMHTMLOptionsCollectionNamedItem - DOMHTMLOptionsCollectionNamedItemMethodInfo, - dOMHTMLOptionsCollectionNamedItem , - - --- ** dOMHTMLOptionsCollectionSetSelectedIndex - DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo, - dOMHTMLOptionsCollectionSetSelectedIndex, - - - - - -- * Properties --- ** Length - DOMHTMLOptionsCollectionLengthPropertyInfo, - dOMHTMLOptionsCollectionLength , - getDOMHTMLOptionsCollectionLength , - - --- ** SelectedIndex - DOMHTMLOptionsCollectionSelectedIndexPropertyInfo, - constructDOMHTMLOptionsCollectionSelectedIndex, - dOMHTMLOptionsCollectionSelectedIndex , - getDOMHTMLOptionsCollectionSelectedIndex, - setDOMHTMLOptionsCollectionSelectedIndex, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLOptionsCollectionMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLOptionsCollectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "item" o = DOMHTMLCollectionItemMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "getSelectedIndex" o = DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLOptionsCollectionMethod "setSelectedIndex" o = DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo - ResolveDOMHTMLOptionsCollectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLOptionsCollectionMethod t DOMHTMLOptionsCollection, MethodInfo info DOMHTMLOptionsCollection p) => IsLabelProxy t (DOMHTMLOptionsCollection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLOptionsCollectionMethod t DOMHTMLOptionsCollection, MethodInfo info DOMHTMLOptionsCollection p) => IsLabel t (DOMHTMLOptionsCollection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLOptionsCollectionLength :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m CULong -getDOMHTMLOptionsCollectionLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMHTMLOptionsCollectionLengthPropertyInfo -instance AttrInfo DOMHTMLOptionsCollectionLengthPropertyInfo where - type AttrAllowedOps DOMHTMLOptionsCollectionLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = DOMHTMLOptionsCollectionK - type AttrGetType DOMHTMLOptionsCollectionLengthPropertyInfo = CULong - type AttrLabel DOMHTMLOptionsCollectionLengthPropertyInfo = "length" - attrGet _ = getDOMHTMLOptionsCollectionLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "selected-index" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m CLong -getDOMHTMLOptionsCollectionSelectedIndex obj = liftIO $ getObjectPropertyLong obj "selected-index" - -setDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> CLong -> m () -setDOMHTMLOptionsCollectionSelectedIndex obj val = liftIO $ setObjectPropertyLong obj "selected-index" val - -constructDOMHTMLOptionsCollectionSelectedIndex :: CLong -> IO ([Char], GValue) -constructDOMHTMLOptionsCollectionSelectedIndex val = constructObjectPropertyLong "selected-index" val - -data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo -instance AttrInfo DOMHTMLOptionsCollectionSelectedIndexPropertyInfo where - type AttrAllowedOps DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = DOMHTMLOptionsCollectionK - type AttrGetType DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = CLong - type AttrLabel DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = "selected-index" - attrGet _ = getDOMHTMLOptionsCollectionSelectedIndex - attrSet _ = setDOMHTMLOptionsCollectionSelectedIndex - attrConstruct _ = constructDOMHTMLOptionsCollectionSelectedIndex - attrClear _ = undefined - -type instance AttributeList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionAttributeList -type DOMHTMLOptionsCollectionAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLOptionsCollectionLengthPropertyInfo), '("selectedIndex", DOMHTMLOptionsCollectionSelectedIndexPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLOptionsCollectionLength :: AttrLabelProxy "length" -dOMHTMLOptionsCollectionLength = AttrLabelProxy - -dOMHTMLOptionsCollectionSelectedIndex :: AttrLabelProxy "selectedIndex" -dOMHTMLOptionsCollectionSelectedIndex = AttrLabelProxy - -type instance SignalList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionSignalList -type DOMHTMLOptionsCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLOptionsCollection::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMHTMLOptionsCollectionGetLength :: - (MonadIO m, DOMHTMLOptionsCollectionK a) => - a -- _obj - -> m CULong -- result -dOMHTMLOptionsCollectionGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_options_collection_get_length _obj' - touchManagedPtr _obj - return result - -data DOMHTMLOptionsCollectionGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionGetLengthMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionsCollectionGetLength - --- method DOMHTMLOptionsCollection::get_selected_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLOptionsCollectionGetSelectedIndex :: - (MonadIO m, DOMHTMLOptionsCollectionK a) => - a -- _obj - -> m CLong -- result -dOMHTMLOptionsCollectionGetSelectedIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_options_collection_get_selected_index _obj' - touchManagedPtr _obj - return result - -data DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionsCollectionGetSelectedIndex - --- method DOMHTMLOptionsCollection::named_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLOptionsCollectionNamedItemMethodInfo -instance (signature ~ (T.Text -> m DOMNode), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionNamedItemMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionsCollectionNamedItem - --- method DOMHTMLOptionsCollection::set_selected_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLOptionsCollectionSetSelectedIndex :: - (MonadIO m, DOMHTMLOptionsCollectionK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLOptionsCollectionSetSelectedIndex _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_options_collection_set_selected_index _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLOptionsCollectionK a) => MethodInfo DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLOptionsCollectionSetSelectedIndex - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLOptionsCollectionGetLengthMethodInfo -data DOMHTMLOptionsCollectionGetSelectedIndexMethodInfo -data DOMHTMLOptionsCollectionNamedItemMethodInfo -data DOMHTMLOptionsCollectionSetSelectedIndexMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLParagraphElementGetAlignMethodInfo, - dOMHTMLParagraphElementGetAlign , - - --- ** dOMHTMLParagraphElementSetAlign - DOMHTMLParagraphElementSetAlignMethodInfo, - dOMHTMLParagraphElementSetAlign , - - - - - -- * Properties --- ** Align - DOMHTMLParagraphElementAlignPropertyInfo, - constructDOMHTMLParagraphElementAlign , - dOMHTMLParagraphElementAlign , - getDOMHTMLParagraphElementAlign , - setDOMHTMLParagraphElementAlign , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLParagraphElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLParagraphElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLParagraphElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLParagraphElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLParagraphElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLParagraphElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLParagraphElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLParagraphElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLParagraphElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLParagraphElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLParagraphElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLParagraphElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLParagraphElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLParagraphElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLParagraphElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLParagraphElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLParagraphElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLParagraphElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLParagraphElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLParagraphElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLParagraphElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLParagraphElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLParagraphElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLParagraphElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLParagraphElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLParagraphElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLParagraphElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLParagraphElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLParagraphElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLParagraphElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLParagraphElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLParagraphElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLParagraphElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLParagraphElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLParagraphElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLParagraphElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLParagraphElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLParagraphElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLParagraphElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLParagraphElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLParagraphElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLParagraphElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLParagraphElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLParagraphElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLParagraphElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLParagraphElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLParagraphElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLParagraphElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLParagraphElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLParagraphElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLParagraphElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLParagraphElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLParagraphElementMethod "getAlign" o = DOMHTMLParagraphElementGetAlignMethodInfo - ResolveDOMHTMLParagraphElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLParagraphElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLParagraphElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLParagraphElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLParagraphElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLParagraphElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLParagraphElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLParagraphElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLParagraphElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLParagraphElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLParagraphElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLParagraphElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLParagraphElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLParagraphElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLParagraphElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLParagraphElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLParagraphElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLParagraphElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLParagraphElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLParagraphElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLParagraphElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLParagraphElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLParagraphElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLParagraphElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLParagraphElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLParagraphElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLParagraphElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLParagraphElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLParagraphElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLParagraphElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLParagraphElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLParagraphElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLParagraphElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLParagraphElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLParagraphElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLParagraphElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLParagraphElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLParagraphElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLParagraphElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLParagraphElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLParagraphElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLParagraphElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLParagraphElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLParagraphElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLParagraphElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLParagraphElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLParagraphElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLParagraphElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLParagraphElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLParagraphElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLParagraphElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLParagraphElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLParagraphElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLParagraphElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLParagraphElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLParagraphElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLParagraphElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLParagraphElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLParagraphElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLParagraphElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLParagraphElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLParagraphElementMethod "setAlign" o = DOMHTMLParagraphElementSetAlignMethodInfo - ResolveDOMHTMLParagraphElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLParagraphElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLParagraphElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLParagraphElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLParagraphElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLParagraphElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLParagraphElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLParagraphElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLParagraphElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLParagraphElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLParagraphElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLParagraphElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLParagraphElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLParagraphElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLParagraphElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLParagraphElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLParagraphElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLParagraphElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLParagraphElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLParagraphElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLParagraphElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLParagraphElementMethod t DOMHTMLParagraphElement, MethodInfo info DOMHTMLParagraphElement p) => IsLabelProxy t (DOMHTMLParagraphElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLParagraphElementMethod t DOMHTMLParagraphElement, MethodInfo info DOMHTMLParagraphElement p) => IsLabel t (DOMHTMLParagraphElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> m (Maybe T.Text) -getDOMHTMLParagraphElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> T.Text -> m () -setDOMHTMLParagraphElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLParagraphElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParagraphElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLParagraphElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLParagraphElementAlign - attrSet _ = setDOMHTMLParagraphElementAlign - attrConstruct _ = constructDOMHTMLParagraphElementAlign - attrClear _ = undefined - -type instance AttributeList DOMHTMLParagraphElement = DOMHTMLParagraphElementAttributeList -type DOMHTMLParagraphElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLParagraphElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLParagraphElementAlign :: AttrLabelProxy "align" -dOMHTMLParagraphElementAlign = AttrLabelProxy - -type instance SignalList DOMHTMLParagraphElement = DOMHTMLParagraphElementSignalList -type DOMHTMLParagraphElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLParagraphElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLParagraphElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLParagraphElementK a) => MethodInfo DOMHTMLParagraphElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLParagraphElementGetAlign - --- method DOMHTMLParagraphElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLParagraphElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLParagraphElementK a) => MethodInfo DOMHTMLParagraphElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLParagraphElementSetAlign - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLParagraphElementGetAlignMethodInfo -data DOMHTMLParagraphElementSetAlignMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs +++ /dev/null @@ -1,652 +0,0 @@ - - -{- | -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 - DOMHTMLParamElementGetNameMethodInfo , - dOMHTMLParamElementGetName , - - --- ** dOMHTMLParamElementGetTypeAttr - DOMHTMLParamElementGetTypeAttrMethodInfo, - dOMHTMLParamElementGetTypeAttr , - - --- ** dOMHTMLParamElementGetValue - DOMHTMLParamElementGetValueMethodInfo , - dOMHTMLParamElementGetValue , - - --- ** dOMHTMLParamElementGetValueType - DOMHTMLParamElementGetValueTypeMethodInfo, - dOMHTMLParamElementGetValueType , - - --- ** dOMHTMLParamElementSetName - DOMHTMLParamElementSetNameMethodInfo , - dOMHTMLParamElementSetName , - - --- ** dOMHTMLParamElementSetTypeAttr - DOMHTMLParamElementSetTypeAttrMethodInfo, - dOMHTMLParamElementSetTypeAttr , - - --- ** dOMHTMLParamElementSetValue - DOMHTMLParamElementSetValueMethodInfo , - dOMHTMLParamElementSetValue , - - --- ** dOMHTMLParamElementSetValueType - DOMHTMLParamElementSetValueTypeMethodInfo, - dOMHTMLParamElementSetValueType , - - - - - -- * Properties --- ** Name - DOMHTMLParamElementNamePropertyInfo , - constructDOMHTMLParamElementName , - dOMHTMLParamElementName , - getDOMHTMLParamElementName , - setDOMHTMLParamElementName , - - --- ** Type - DOMHTMLParamElementTypePropertyInfo , - clearDOMHTMLParamElementType , - constructDOMHTMLParamElementType , - dOMHTMLParamElementType , - getDOMHTMLParamElementType , - setDOMHTMLParamElementType , - - --- ** Value - DOMHTMLParamElementValuePropertyInfo , - constructDOMHTMLParamElementValue , - dOMHTMLParamElementValue , - getDOMHTMLParamElementValue , - setDOMHTMLParamElementValue , - - --- ** ValueType - DOMHTMLParamElementValueTypePropertyInfo, - constructDOMHTMLParamElementValueType , - dOMHTMLParamElementValueType , - getDOMHTMLParamElementValueType , - setDOMHTMLParamElementValueType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLParamElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLParamElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLParamElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLParamElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLParamElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLParamElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLParamElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLParamElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLParamElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLParamElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLParamElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLParamElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLParamElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLParamElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLParamElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLParamElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLParamElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLParamElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLParamElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLParamElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLParamElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLParamElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLParamElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLParamElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLParamElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLParamElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLParamElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLParamElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLParamElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLParamElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLParamElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLParamElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLParamElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLParamElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLParamElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLParamElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLParamElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLParamElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLParamElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLParamElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLParamElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLParamElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLParamElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLParamElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLParamElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLParamElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLParamElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLParamElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLParamElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLParamElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLParamElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLParamElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLParamElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLParamElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLParamElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLParamElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLParamElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLParamElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLParamElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLParamElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLParamElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLParamElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLParamElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLParamElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLParamElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLParamElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLParamElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLParamElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLParamElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLParamElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLParamElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLParamElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLParamElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLParamElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLParamElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLParamElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLParamElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLParamElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLParamElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLParamElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLParamElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLParamElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLParamElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLParamElementMethod "getName" o = DOMHTMLParamElementGetNameMethodInfo - ResolveDOMHTMLParamElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLParamElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLParamElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLParamElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLParamElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLParamElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLParamElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLParamElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLParamElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLParamElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLParamElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLParamElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLParamElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLParamElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLParamElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLParamElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLParamElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLParamElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLParamElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLParamElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLParamElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLParamElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLParamElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLParamElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLParamElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLParamElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLParamElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLParamElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLParamElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLParamElementMethod "getTypeAttr" o = DOMHTMLParamElementGetTypeAttrMethodInfo - ResolveDOMHTMLParamElementMethod "getValue" o = DOMHTMLParamElementGetValueMethodInfo - ResolveDOMHTMLParamElementMethod "getValueType" o = DOMHTMLParamElementGetValueTypeMethodInfo - ResolveDOMHTMLParamElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLParamElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLParamElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLParamElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLParamElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLParamElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLParamElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLParamElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLParamElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLParamElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLParamElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLParamElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLParamElementMethod "setName" o = DOMHTMLParamElementSetNameMethodInfo - ResolveDOMHTMLParamElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLParamElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLParamElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLParamElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLParamElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLParamElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLParamElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLParamElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLParamElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLParamElementMethod "setTypeAttr" o = DOMHTMLParamElementSetTypeAttrMethodInfo - ResolveDOMHTMLParamElementMethod "setValue" o = DOMHTMLParamElementSetValueMethodInfo - ResolveDOMHTMLParamElementMethod "setValueType" o = DOMHTMLParamElementSetValueTypeMethodInfo - ResolveDOMHTMLParamElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLParamElementMethod t DOMHTMLParamElement, MethodInfo info DOMHTMLParamElement p) => IsLabelProxy t (DOMHTMLParamElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLParamElementMethod t DOMHTMLParamElement, MethodInfo info DOMHTMLParamElement p) => IsLabel t (DOMHTMLParamElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe T.Text) -getDOMHTMLParamElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLParamElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLParamElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLParamElementName - attrSet _ = setDOMHTMLParamElementName - attrConstruct _ = constructDOMHTMLParamElementName - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe T.Text) -getDOMHTMLParamElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLParamElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m () -clearDOMHTMLParamElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLParamElementTypePropertyInfo -instance AttrInfo DOMHTMLParamElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLParamElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLParamElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLParamElementTypePropertyInfo = DOMHTMLParamElementK - type AttrGetType DOMHTMLParamElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLParamElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLParamElementType - attrSet _ = setDOMHTMLParamElementType - attrConstruct _ = constructDOMHTMLParamElementType - attrClear _ = clearDOMHTMLParamElementType - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe T.Text) -getDOMHTMLParamElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () -setDOMHTMLParamElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) - -constructDOMHTMLParamElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementValue val = constructObjectPropertyString "value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLParamElementValuePropertyInfo = "value" - attrGet _ = getDOMHTMLParamElementValue - attrSet _ = setDOMHTMLParamElementValue - attrConstruct _ = constructDOMHTMLParamElementValue - attrClear _ = undefined - --- VVV Prop "value-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLParamElementValueType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLParamElementValueType val = constructObjectPropertyString "value-type" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLParamElementValueTypePropertyInfo = "value-type" - attrGet _ = getDOMHTMLParamElementValueType - attrSet _ = setDOMHTMLParamElementValueType - attrConstruct _ = constructDOMHTMLParamElementValueType - attrClear _ = undefined - -type instance AttributeList DOMHTMLParamElement = DOMHTMLParamElementAttributeList -type DOMHTMLParamElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLParamElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLParamElementTypePropertyInfo), '("value", DOMHTMLParamElementValuePropertyInfo), '("valueType", DOMHTMLParamElementValueTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLParamElementName :: AttrLabelProxy "name" -dOMHTMLParamElementName = AttrLabelProxy - -dOMHTMLParamElementType :: AttrLabelProxy "type" -dOMHTMLParamElementType = AttrLabelProxy - -dOMHTMLParamElementValue :: AttrLabelProxy "value" -dOMHTMLParamElementValue = AttrLabelProxy - -dOMHTMLParamElementValueType :: AttrLabelProxy "valueType" -dOMHTMLParamElementValueType = AttrLabelProxy - -type instance SignalList DOMHTMLParamElement = DOMHTMLParamElementSignalList -type DOMHTMLParamElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLParamElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLParamElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementGetName - --- method DOMHTMLParamElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLParamElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementGetTypeAttr - --- method DOMHTMLParamElement::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLParamElementGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementGetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementGetValue - --- method DOMHTMLParamElement::get_value_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLParamElementGetValueTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementGetValueTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementGetValueType - --- method DOMHTMLParamElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLParamElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementSetName - --- method DOMHTMLParamElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLParamElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementSetTypeAttr - --- method DOMHTMLParamElement::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLParamElementSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementSetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementSetValue - --- method DOMHTMLParamElement::set_value_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLParamElementSetValueTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLParamElementK a) => MethodInfo DOMHTMLParamElementSetValueTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLParamElementSetValueType - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLParamElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLParamElementGetNameMethodInfo -data DOMHTMLParamElementGetTypeAttrMethodInfo -data DOMHTMLParamElementGetValueMethodInfo -data DOMHTMLParamElementGetValueTypeMethodInfo -data DOMHTMLParamElementSetNameMethodInfo -data DOMHTMLParamElementSetTypeAttrMethodInfo -data DOMHTMLParamElementSetValueMethodInfo -data DOMHTMLParamElementSetValueTypeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs +++ /dev/null @@ -1,420 +0,0 @@ - - -{- | -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 - DOMHTMLPreElementGetWidthMethodInfo , - dOMHTMLPreElementGetWidth , - - --- ** dOMHTMLPreElementGetWrap - DOMHTMLPreElementGetWrapMethodInfo , - dOMHTMLPreElementGetWrap , - - --- ** dOMHTMLPreElementSetWidth - DOMHTMLPreElementSetWidthMethodInfo , - dOMHTMLPreElementSetWidth , - - --- ** dOMHTMLPreElementSetWrap - DOMHTMLPreElementSetWrapMethodInfo , - dOMHTMLPreElementSetWrap , - - - - - -- * Properties --- ** Width - DOMHTMLPreElementWidthPropertyInfo , - constructDOMHTMLPreElementWidth , - dOMHTMLPreElementWidth , - getDOMHTMLPreElementWidth , - setDOMHTMLPreElementWidth , - - --- ** Wrap - DOMHTMLPreElementWrapPropertyInfo , - constructDOMHTMLPreElementWrap , - dOMHTMLPreElementWrap , - getDOMHTMLPreElementWrap , - setDOMHTMLPreElementWrap , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLPreElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLPreElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLPreElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLPreElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLPreElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLPreElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLPreElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLPreElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLPreElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLPreElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLPreElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLPreElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLPreElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLPreElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLPreElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLPreElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLPreElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLPreElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLPreElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLPreElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLPreElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLPreElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLPreElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLPreElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLPreElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLPreElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLPreElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLPreElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLPreElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLPreElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLPreElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLPreElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLPreElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLPreElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLPreElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLPreElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLPreElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLPreElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLPreElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLPreElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLPreElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLPreElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLPreElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLPreElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLPreElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLPreElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLPreElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLPreElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLPreElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLPreElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLPreElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLPreElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLPreElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLPreElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLPreElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLPreElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLPreElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLPreElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLPreElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLPreElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLPreElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLPreElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLPreElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLPreElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLPreElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLPreElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLPreElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLPreElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLPreElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLPreElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLPreElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLPreElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLPreElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLPreElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLPreElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLPreElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLPreElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLPreElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLPreElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLPreElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLPreElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLPreElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLPreElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLPreElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLPreElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLPreElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLPreElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLPreElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLPreElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLPreElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLPreElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLPreElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLPreElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLPreElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLPreElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLPreElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLPreElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLPreElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLPreElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLPreElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLPreElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLPreElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLPreElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLPreElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLPreElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLPreElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLPreElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLPreElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLPreElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLPreElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLPreElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLPreElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLPreElementMethod "getWidth" o = DOMHTMLPreElementGetWidthMethodInfo - ResolveDOMHTMLPreElementMethod "getWrap" o = DOMHTMLPreElementGetWrapMethodInfo - ResolveDOMHTMLPreElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLPreElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLPreElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLPreElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLPreElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLPreElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLPreElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLPreElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLPreElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLPreElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLPreElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLPreElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLPreElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLPreElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLPreElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLPreElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLPreElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLPreElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLPreElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLPreElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLPreElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLPreElementMethod "setWidth" o = DOMHTMLPreElementSetWidthMethodInfo - ResolveDOMHTMLPreElementMethod "setWrap" o = DOMHTMLPreElementSetWrapMethodInfo - ResolveDOMHTMLPreElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLPreElementMethod t DOMHTMLPreElement, MethodInfo info DOMHTMLPreElement p) => IsLabelProxy t (DOMHTMLPreElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLPreElementMethod t DOMHTMLPreElement, MethodInfo info DOMHTMLPreElement p) => IsLabel t (DOMHTMLPreElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "width" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> m CLong -getDOMHTMLPreElementWidth obj = liftIO $ getObjectPropertyLong obj "width" - -setDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> CLong -> m () -setDOMHTMLPreElementWidth obj val = liftIO $ setObjectPropertyLong obj "width" val - -constructDOMHTMLPreElementWidth :: CLong -> IO ([Char], GValue) -constructDOMHTMLPreElementWidth val = constructObjectPropertyLong "width" val - -data DOMHTMLPreElementWidthPropertyInfo -instance AttrInfo DOMHTMLPreElementWidthPropertyInfo where - type AttrAllowedOps DOMHTMLPreElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLPreElementWidthPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLPreElementWidthPropertyInfo = DOMHTMLPreElementK - type AttrGetType DOMHTMLPreElementWidthPropertyInfo = CLong - type AttrLabel DOMHTMLPreElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLPreElementWidth - attrSet _ = setDOMHTMLPreElementWidth - attrConstruct _ = constructDOMHTMLPreElementWidth - attrClear _ = undefined - --- VVV Prop "wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "wrap" - attrGet _ = getDOMHTMLPreElementWrap - attrSet _ = setDOMHTMLPreElementWrap - attrConstruct _ = constructDOMHTMLPreElementWrap - attrClear _ = undefined - -type instance AttributeList DOMHTMLPreElement = DOMHTMLPreElementAttributeList -type DOMHTMLPreElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLPreElementWidthPropertyInfo), '("wrap", DOMHTMLPreElementWrapPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLPreElementWidth :: AttrLabelProxy "width" -dOMHTMLPreElementWidth = AttrLabelProxy - -dOMHTMLPreElementWrap :: AttrLabelProxy "wrap" -dOMHTMLPreElementWrap = AttrLabelProxy - -type instance SignalList DOMHTMLPreElement = DOMHTMLPreElementSignalList -type DOMHTMLPreElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLPreElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLPreElementGetWidth :: - (MonadIO m, DOMHTMLPreElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLPreElementGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_pre_element_get_width _obj' - touchManagedPtr _obj - return result - -data DOMHTMLPreElementGetWidthMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLPreElementGetWidth - --- method DOMHTMLPreElement::get_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLPreElementGetWrapMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementGetWrapMethodInfo a signature where - overloadedMethod _ = dOMHTMLPreElementGetWrap - --- method DOMHTMLPreElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLPreElementSetWidth :: - (MonadIO m, DOMHTMLPreElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLPreElementSetWidth _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_pre_element_set_width _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLPreElementSetWidthMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLPreElementSetWidth - --- method DOMHTMLPreElement::set_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLPreElementSetWrapMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLPreElementK a) => MethodInfo DOMHTMLPreElementSetWrapMethodInfo a signature where - overloadedMethod _ = dOMHTMLPreElementSetWrap - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLPreElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLPreElementGetWidthMethodInfo -data DOMHTMLPreElementGetWrapMethodInfo -data DOMHTMLPreElementSetWidthMethodInfo -data DOMHTMLPreElementSetWrapMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLQuoteElementGetCiteMethodInfo , - dOMHTMLQuoteElementGetCite , - - --- ** dOMHTMLQuoteElementSetCite - DOMHTMLQuoteElementSetCiteMethodInfo , - dOMHTMLQuoteElementSetCite , - - - - - -- * Properties --- ** Cite - DOMHTMLQuoteElementCitePropertyInfo , - constructDOMHTMLQuoteElementCite , - dOMHTMLQuoteElementCite , - getDOMHTMLQuoteElementCite , - setDOMHTMLQuoteElementCite , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLQuoteElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLQuoteElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLQuoteElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLQuoteElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLQuoteElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLQuoteElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLQuoteElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLQuoteElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLQuoteElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLQuoteElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLQuoteElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLQuoteElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLQuoteElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLQuoteElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLQuoteElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLQuoteElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLQuoteElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLQuoteElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLQuoteElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLQuoteElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLQuoteElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLQuoteElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLQuoteElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLQuoteElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLQuoteElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLQuoteElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLQuoteElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLQuoteElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLQuoteElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLQuoteElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLQuoteElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLQuoteElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLQuoteElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLQuoteElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLQuoteElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLQuoteElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLQuoteElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLQuoteElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLQuoteElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLQuoteElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLQuoteElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLQuoteElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLQuoteElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLQuoteElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLQuoteElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLQuoteElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLQuoteElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLQuoteElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLQuoteElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLQuoteElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLQuoteElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLQuoteElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLQuoteElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLQuoteElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLQuoteElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLQuoteElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLQuoteElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLQuoteElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLQuoteElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLQuoteElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLQuoteElementMethod "getCite" o = DOMHTMLQuoteElementGetCiteMethodInfo - ResolveDOMHTMLQuoteElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLQuoteElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLQuoteElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLQuoteElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLQuoteElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLQuoteElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLQuoteElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLQuoteElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLQuoteElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLQuoteElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLQuoteElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLQuoteElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLQuoteElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLQuoteElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLQuoteElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLQuoteElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLQuoteElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLQuoteElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLQuoteElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLQuoteElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLQuoteElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLQuoteElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLQuoteElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLQuoteElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLQuoteElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLQuoteElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLQuoteElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLQuoteElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLQuoteElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLQuoteElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLQuoteElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLQuoteElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLQuoteElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLQuoteElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLQuoteElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLQuoteElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLQuoteElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLQuoteElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLQuoteElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLQuoteElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLQuoteElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLQuoteElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLQuoteElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLQuoteElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLQuoteElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLQuoteElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLQuoteElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLQuoteElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLQuoteElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLQuoteElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLQuoteElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLQuoteElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLQuoteElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLQuoteElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLQuoteElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLQuoteElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLQuoteElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLQuoteElementMethod "setCite" o = DOMHTMLQuoteElementSetCiteMethodInfo - ResolveDOMHTMLQuoteElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLQuoteElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLQuoteElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLQuoteElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLQuoteElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLQuoteElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLQuoteElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLQuoteElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLQuoteElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLQuoteElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLQuoteElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLQuoteElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLQuoteElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLQuoteElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLQuoteElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLQuoteElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLQuoteElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLQuoteElementMethod t DOMHTMLQuoteElement, MethodInfo info DOMHTMLQuoteElement p) => IsLabelProxy t (DOMHTMLQuoteElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLQuoteElementMethod t DOMHTMLQuoteElement, MethodInfo info DOMHTMLQuoteElement p) => IsLabel t (DOMHTMLQuoteElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "cite" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> m (Maybe T.Text) -getDOMHTMLQuoteElementCite obj = liftIO $ getObjectPropertyString obj "cite" - -setDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> T.Text -> m () -setDOMHTMLQuoteElementCite obj val = liftIO $ setObjectPropertyString obj "cite" (Just val) - -constructDOMHTMLQuoteElementCite :: T.Text -> IO ([Char], GValue) -constructDOMHTMLQuoteElementCite val = constructObjectPropertyString "cite" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLQuoteElementCitePropertyInfo = "cite" - attrGet _ = getDOMHTMLQuoteElementCite - attrSet _ = setDOMHTMLQuoteElementCite - attrConstruct _ = constructDOMHTMLQuoteElementCite - attrClear _ = undefined - -type instance AttributeList DOMHTMLQuoteElement = DOMHTMLQuoteElementAttributeList -type DOMHTMLQuoteElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLQuoteElementCite :: AttrLabelProxy "cite" -dOMHTMLQuoteElementCite = AttrLabelProxy - -type instance SignalList DOMHTMLQuoteElement = DOMHTMLQuoteElementSignalList -type DOMHTMLQuoteElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLQuoteElement::get_cite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLQuoteElementGetCiteMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLQuoteElementK a) => MethodInfo DOMHTMLQuoteElementGetCiteMethodInfo a signature where - overloadedMethod _ = dOMHTMLQuoteElementGetCite - --- method DOMHTMLQuoteElement::set_cite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLQuoteElementSetCiteMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLQuoteElementK a) => MethodInfo DOMHTMLQuoteElementSetCiteMethodInfo a signature where - overloadedMethod _ = dOMHTMLQuoteElementSetCite - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLQuoteElementGetCiteMethodInfo -data DOMHTMLQuoteElementSetCiteMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs +++ /dev/null @@ -1,1065 +0,0 @@ - - -{- | -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 - DOMHTMLScriptElementGetCharsetMethodInfo, - dOMHTMLScriptElementGetCharset , - - --- ** dOMHTMLScriptElementGetDefer - DOMHTMLScriptElementGetDeferMethodInfo , - dOMHTMLScriptElementGetDefer , - - --- ** dOMHTMLScriptElementGetEvent - DOMHTMLScriptElementGetEventMethodInfo , - dOMHTMLScriptElementGetEvent , - - --- ** dOMHTMLScriptElementGetHtmlFor - DOMHTMLScriptElementGetHtmlForMethodInfo, - dOMHTMLScriptElementGetHtmlFor , - - --- ** dOMHTMLScriptElementGetSrc - DOMHTMLScriptElementGetSrcMethodInfo , - dOMHTMLScriptElementGetSrc , - - --- ** dOMHTMLScriptElementGetText - DOMHTMLScriptElementGetTextMethodInfo , - dOMHTMLScriptElementGetText , - - --- ** dOMHTMLScriptElementGetTypeAttr - DOMHTMLScriptElementGetTypeAttrMethodInfo, - dOMHTMLScriptElementGetTypeAttr , - - --- ** dOMHTMLScriptElementSetDefer - DOMHTMLScriptElementSetDeferMethodInfo , - dOMHTMLScriptElementSetDefer , - - --- ** dOMHTMLScriptElementSetEvent - DOMHTMLScriptElementSetEventMethodInfo , - dOMHTMLScriptElementSetEvent , - - --- ** dOMHTMLScriptElementSetHtmlFor - DOMHTMLScriptElementSetHtmlForMethodInfo, - dOMHTMLScriptElementSetHtmlFor , - - --- ** dOMHTMLScriptElementSetSrc - DOMHTMLScriptElementSetSrcMethodInfo , - dOMHTMLScriptElementSetSrc , - - --- ** dOMHTMLScriptElementSetText - DOMHTMLScriptElementSetTextMethodInfo , - dOMHTMLScriptElementSetText , - - --- ** dOMHTMLScriptElementSetTypeAttr - DOMHTMLScriptElementSetTypeAttrMethodInfo, - dOMHTMLScriptElementSetTypeAttr , - - - - - -- * Properties --- ** Async - DOMHTMLScriptElementAsyncPropertyInfo , - constructDOMHTMLScriptElementAsync , - dOMHTMLScriptElementAsync , - getDOMHTMLScriptElementAsync , - setDOMHTMLScriptElementAsync , - - --- ** Charset - DOMHTMLScriptElementCharsetPropertyInfo , - clearDOMHTMLScriptElementCharset , - constructDOMHTMLScriptElementCharset , - dOMHTMLScriptElementCharset , - getDOMHTMLScriptElementCharset , - setDOMHTMLScriptElementCharset , - - --- ** CrossOrigin - DOMHTMLScriptElementCrossOriginPropertyInfo, - clearDOMHTMLScriptElementCrossOrigin , - constructDOMHTMLScriptElementCrossOrigin, - dOMHTMLScriptElementCrossOrigin , - getDOMHTMLScriptElementCrossOrigin , - setDOMHTMLScriptElementCrossOrigin , - - --- ** Defer - DOMHTMLScriptElementDeferPropertyInfo , - constructDOMHTMLScriptElementDefer , - dOMHTMLScriptElementDefer , - getDOMHTMLScriptElementDefer , - setDOMHTMLScriptElementDefer , - - --- ** Event - DOMHTMLScriptElementEventPropertyInfo , - constructDOMHTMLScriptElementEvent , - dOMHTMLScriptElementEvent , - getDOMHTMLScriptElementEvent , - setDOMHTMLScriptElementEvent , - - --- ** HtmlFor - DOMHTMLScriptElementHtmlForPropertyInfo , - constructDOMHTMLScriptElementHtmlFor , - dOMHTMLScriptElementHtmlFor , - getDOMHTMLScriptElementHtmlFor , - setDOMHTMLScriptElementHtmlFor , - - --- ** Nonce - DOMHTMLScriptElementNoncePropertyInfo , - clearDOMHTMLScriptElementNonce , - constructDOMHTMLScriptElementNonce , - dOMHTMLScriptElementNonce , - getDOMHTMLScriptElementNonce , - setDOMHTMLScriptElementNonce , - - --- ** Src - DOMHTMLScriptElementSrcPropertyInfo , - constructDOMHTMLScriptElementSrc , - dOMHTMLScriptElementSrc , - getDOMHTMLScriptElementSrc , - setDOMHTMLScriptElementSrc , - - --- ** Text - DOMHTMLScriptElementTextPropertyInfo , - constructDOMHTMLScriptElementText , - dOMHTMLScriptElementText , - getDOMHTMLScriptElementText , - setDOMHTMLScriptElementText , - - --- ** Type - DOMHTMLScriptElementTypePropertyInfo , - clearDOMHTMLScriptElementType , - constructDOMHTMLScriptElementType , - dOMHTMLScriptElementType , - getDOMHTMLScriptElementType , - setDOMHTMLScriptElementType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLScriptElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLScriptElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLScriptElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLScriptElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLScriptElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLScriptElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLScriptElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLScriptElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLScriptElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLScriptElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLScriptElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLScriptElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLScriptElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLScriptElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLScriptElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLScriptElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLScriptElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLScriptElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLScriptElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLScriptElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLScriptElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLScriptElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLScriptElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLScriptElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLScriptElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLScriptElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLScriptElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLScriptElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLScriptElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLScriptElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLScriptElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLScriptElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLScriptElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLScriptElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLScriptElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLScriptElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLScriptElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLScriptElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLScriptElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLScriptElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLScriptElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLScriptElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLScriptElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLScriptElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLScriptElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLScriptElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLScriptElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLScriptElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLScriptElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLScriptElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLScriptElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLScriptElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLScriptElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLScriptElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLScriptElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLScriptElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLScriptElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLScriptElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLScriptElementMethod "getCharset" o = DOMHTMLScriptElementGetCharsetMethodInfo - ResolveDOMHTMLScriptElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLScriptElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLScriptElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLScriptElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLScriptElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLScriptElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLScriptElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLScriptElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLScriptElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLScriptElementMethod "getDefer" o = DOMHTMLScriptElementGetDeferMethodInfo - ResolveDOMHTMLScriptElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLScriptElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLScriptElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLScriptElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLScriptElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLScriptElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLScriptElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLScriptElementMethod "getEvent" o = DOMHTMLScriptElementGetEventMethodInfo - ResolveDOMHTMLScriptElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLScriptElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLScriptElementMethod "getHtmlFor" o = DOMHTMLScriptElementGetHtmlForMethodInfo - ResolveDOMHTMLScriptElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLScriptElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLScriptElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLScriptElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLScriptElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLScriptElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLScriptElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLScriptElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLScriptElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLScriptElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLScriptElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLScriptElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLScriptElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLScriptElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLScriptElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLScriptElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLScriptElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLScriptElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLScriptElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLScriptElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLScriptElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLScriptElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLScriptElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLScriptElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLScriptElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLScriptElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLScriptElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLScriptElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLScriptElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLScriptElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLScriptElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLScriptElementMethod "getSrc" o = DOMHTMLScriptElementGetSrcMethodInfo - ResolveDOMHTMLScriptElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLScriptElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLScriptElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLScriptElementMethod "getText" o = DOMHTMLScriptElementGetTextMethodInfo - ResolveDOMHTMLScriptElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLScriptElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLScriptElementMethod "getTypeAttr" o = DOMHTMLScriptElementGetTypeAttrMethodInfo - ResolveDOMHTMLScriptElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLScriptElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLScriptElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLScriptElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLScriptElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLScriptElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLScriptElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLScriptElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLScriptElementMethod "setDefer" o = DOMHTMLScriptElementSetDeferMethodInfo - ResolveDOMHTMLScriptElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLScriptElementMethod "setEvent" o = DOMHTMLScriptElementSetEventMethodInfo - ResolveDOMHTMLScriptElementMethod "setHtmlFor" o = DOMHTMLScriptElementSetHtmlForMethodInfo - ResolveDOMHTMLScriptElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLScriptElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLScriptElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLScriptElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLScriptElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLScriptElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLScriptElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLScriptElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLScriptElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLScriptElementMethod "setSrc" o = DOMHTMLScriptElementSetSrcMethodInfo - ResolveDOMHTMLScriptElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLScriptElementMethod "setText" o = DOMHTMLScriptElementSetTextMethodInfo - ResolveDOMHTMLScriptElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLScriptElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLScriptElementMethod "setTypeAttr" o = DOMHTMLScriptElementSetTypeAttrMethodInfo - ResolveDOMHTMLScriptElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLScriptElementMethod t DOMHTMLScriptElement, MethodInfo info DOMHTMLScriptElement p) => IsLabelProxy t (DOMHTMLScriptElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLScriptElementMethod t DOMHTMLScriptElement, MethodInfo info DOMHTMLScriptElement p) => IsLabel t (DOMHTMLScriptElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "async" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "async" - attrGet _ = getDOMHTMLScriptElementAsync - attrSet _ = setDOMHTMLScriptElementAsync - attrConstruct _ = constructDOMHTMLScriptElementAsync - attrClear _ = undefined - --- VVV Prop "charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) -getDOMHTMLScriptElementCharset obj = liftIO $ getObjectPropertyString obj "charset" - -setDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" (Just val) - -constructDOMHTMLScriptElementCharset :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementCharset val = constructObjectPropertyString "charset" (Just val) - -clearDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () -clearDOMHTMLScriptElementCharset obj = liftIO $ setObjectPropertyString obj "charset" (Nothing :: Maybe T.Text) - -data DOMHTMLScriptElementCharsetPropertyInfo -instance AttrInfo DOMHTMLScriptElementCharsetPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementCharsetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementCharsetPropertyInfo = "charset" - attrGet _ = getDOMHTMLScriptElementCharset - attrSet _ = setDOMHTMLScriptElementCharset - attrConstruct _ = constructDOMHTMLScriptElementCharset - attrClear _ = clearDOMHTMLScriptElementCharset - --- VVV Prop "cross-origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLScriptElementCrossOrigin :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementCrossOrigin val = constructObjectPropertyString "cross-origin" (Just val) - -clearDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () -clearDOMHTMLScriptElementCrossOrigin obj = liftIO $ setObjectPropertyString obj "cross-origin" (Nothing :: Maybe T.Text) - -data DOMHTMLScriptElementCrossOriginPropertyInfo -instance AttrInfo DOMHTMLScriptElementCrossOriginPropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementCrossOriginPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementCrossOriginPropertyInfo = "cross-origin" - attrGet _ = getDOMHTMLScriptElementCrossOrigin - attrSet _ = setDOMHTMLScriptElementCrossOrigin - attrConstruct _ = constructDOMHTMLScriptElementCrossOrigin - attrClear _ = clearDOMHTMLScriptElementCrossOrigin - --- VVV Prop "defer" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "defer" - attrGet _ = getDOMHTMLScriptElementDefer - attrSet _ = setDOMHTMLScriptElementDefer - attrConstruct _ = constructDOMHTMLScriptElementDefer - attrClear _ = undefined - --- VVV Prop "event" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) -getDOMHTMLScriptElementEvent obj = liftIO $ getObjectPropertyString obj "event" - -setDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementEvent obj val = liftIO $ setObjectPropertyString obj "event" (Just val) - -constructDOMHTMLScriptElementEvent :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementEvent val = constructObjectPropertyString "event" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementEventPropertyInfo = "event" - attrGet _ = getDOMHTMLScriptElementEvent - attrSet _ = setDOMHTMLScriptElementEvent - attrConstruct _ = constructDOMHTMLScriptElementEvent - attrClear _ = undefined - --- VVV Prop "html-for" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLScriptElementHtmlFor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementHtmlFor val = constructObjectPropertyString "html-for" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementHtmlForPropertyInfo = "html-for" - attrGet _ = getDOMHTMLScriptElementHtmlFor - attrSet _ = setDOMHTMLScriptElementHtmlFor - attrConstruct _ = constructDOMHTMLScriptElementHtmlFor - attrClear _ = undefined - --- VVV Prop "nonce" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) -getDOMHTMLScriptElementNonce obj = liftIO $ getObjectPropertyString obj "nonce" - -setDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementNonce obj val = liftIO $ setObjectPropertyString obj "nonce" (Just val) - -constructDOMHTMLScriptElementNonce :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementNonce val = constructObjectPropertyString "nonce" (Just val) - -clearDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () -clearDOMHTMLScriptElementNonce obj = liftIO $ setObjectPropertyString obj "nonce" (Nothing :: Maybe T.Text) - -data DOMHTMLScriptElementNoncePropertyInfo -instance AttrInfo DOMHTMLScriptElementNoncePropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementNoncePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementNoncePropertyInfo = "nonce" - attrGet _ = getDOMHTMLScriptElementNonce - attrSet _ = setDOMHTMLScriptElementNonce - attrConstruct _ = constructDOMHTMLScriptElementNonce - attrClear _ = clearDOMHTMLScriptElementNonce - --- VVV Prop "src" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) -getDOMHTMLScriptElementSrc obj = liftIO $ getObjectPropertyString obj "src" - -setDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementSrc obj val = liftIO $ setObjectPropertyString obj "src" (Just val) - -constructDOMHTMLScriptElementSrc :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementSrc val = constructObjectPropertyString "src" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementSrcPropertyInfo = "src" - attrGet _ = getDOMHTMLScriptElementSrc - attrSet _ = setDOMHTMLScriptElementSrc - attrConstruct _ = constructDOMHTMLScriptElementSrc - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) -getDOMHTMLScriptElementText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructDOMHTMLScriptElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementText val = constructObjectPropertyString "text" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementTextPropertyInfo = "text" - attrGet _ = getDOMHTMLScriptElementText - attrSet _ = setDOMHTMLScriptElementText - attrConstruct _ = constructDOMHTMLScriptElementText - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m (Maybe T.Text) -getDOMHTMLScriptElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () -setDOMHTMLScriptElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLScriptElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLScriptElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m () -clearDOMHTMLScriptElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLScriptElementTypePropertyInfo -instance AttrInfo DOMHTMLScriptElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLScriptElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLScriptElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLScriptElementTypePropertyInfo = DOMHTMLScriptElementK - type AttrGetType DOMHTMLScriptElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLScriptElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLScriptElementType - attrSet _ = setDOMHTMLScriptElementType - attrConstruct _ = constructDOMHTMLScriptElementType - attrClear _ = clearDOMHTMLScriptElementType - -type instance AttributeList DOMHTMLScriptElement = DOMHTMLScriptElementAttributeList -type DOMHTMLScriptElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("async", DOMHTMLScriptElementAsyncPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLScriptElementCharsetPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("crossOrigin", DOMHTMLScriptElementCrossOriginPropertyInfo), '("defer", DOMHTMLScriptElementDeferPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("event", DOMHTMLScriptElementEventPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("htmlFor", DOMHTMLScriptElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("nonce", DOMHTMLScriptElementNoncePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLScriptElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLScriptElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLScriptElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLScriptElementAsync :: AttrLabelProxy "async" -dOMHTMLScriptElementAsync = AttrLabelProxy - -dOMHTMLScriptElementCharset :: AttrLabelProxy "charset" -dOMHTMLScriptElementCharset = AttrLabelProxy - -dOMHTMLScriptElementCrossOrigin :: AttrLabelProxy "crossOrigin" -dOMHTMLScriptElementCrossOrigin = AttrLabelProxy - -dOMHTMLScriptElementDefer :: AttrLabelProxy "defer" -dOMHTMLScriptElementDefer = AttrLabelProxy - -dOMHTMLScriptElementEvent :: AttrLabelProxy "event" -dOMHTMLScriptElementEvent = AttrLabelProxy - -dOMHTMLScriptElementHtmlFor :: AttrLabelProxy "htmlFor" -dOMHTMLScriptElementHtmlFor = AttrLabelProxy - -dOMHTMLScriptElementNonce :: AttrLabelProxy "nonce" -dOMHTMLScriptElementNonce = AttrLabelProxy - -dOMHTMLScriptElementSrc :: AttrLabelProxy "src" -dOMHTMLScriptElementSrc = AttrLabelProxy - -dOMHTMLScriptElementText :: AttrLabelProxy "text" -dOMHTMLScriptElementText = AttrLabelProxy - -dOMHTMLScriptElementType :: AttrLabelProxy "type" -dOMHTMLScriptElementType = AttrLabelProxy - -type instance SignalList DOMHTMLScriptElement = DOMHTMLScriptElementSignalList -type DOMHTMLScriptElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLScriptElement::get_charset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLScriptElementGetCharsetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementGetCharsetMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementGetCharset - --- method DOMHTMLScriptElement::get_defer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLScriptElementGetDeferMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementGetDeferMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementGetDefer - --- method DOMHTMLScriptElement::get_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLScriptElementGetEventMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementGetEventMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementGetEvent - --- method DOMHTMLScriptElement::get_html_for --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLScriptElementGetHtmlForMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementGetHtmlForMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementGetHtmlFor - --- method DOMHTMLScriptElement::get_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLScriptElementGetSrcMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementGetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementGetSrc - --- method DOMHTMLScriptElement::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLScriptElementGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementGetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementGetText - --- method DOMHTMLScriptElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLScriptElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementGetTypeAttr - --- method DOMHTMLScriptElement::set_defer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLScriptElementSetDeferMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementSetDeferMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementSetDefer - --- method DOMHTMLScriptElement::set_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLScriptElementSetEventMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementSetEventMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementSetEvent - --- method DOMHTMLScriptElement::set_html_for --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLScriptElementSetHtmlForMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementSetHtmlForMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementSetHtmlFor - --- method DOMHTMLScriptElement::set_src --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLScriptElementSetSrcMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementSetSrcMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementSetSrc - --- method DOMHTMLScriptElement::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLScriptElementSetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementSetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementSetText - --- method DOMHTMLScriptElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLScriptElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLScriptElementK a) => MethodInfo DOMHTMLScriptElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLScriptElementSetTypeAttr - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLScriptElementGetCharsetMethodInfo -data DOMHTMLScriptElementGetDeferMethodInfo -data DOMHTMLScriptElementGetEventMethodInfo -data DOMHTMLScriptElementGetHtmlForMethodInfo -data DOMHTMLScriptElementGetSrcMethodInfo -data DOMHTMLScriptElementGetTextMethodInfo -data DOMHTMLScriptElementGetTypeAttrMethodInfo -data DOMHTMLScriptElementSetDeferMethodInfo -data DOMHTMLScriptElementSetEventMethodInfo -data DOMHTMLScriptElementSetHtmlForMethodInfo -data DOMHTMLScriptElementSetSrcMethodInfo -data DOMHTMLScriptElementSetTextMethodInfo -data DOMHTMLScriptElementSetTypeAttrMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs +++ /dev/null @@ -1,1647 +0,0 @@ - - -{- | -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 - DOMHTMLSelectElementAddMethodInfo , - dOMHTMLSelectElementAdd , - - --- ** dOMHTMLSelectElementGetAutofocus - DOMHTMLSelectElementGetAutofocusMethodInfo, - dOMHTMLSelectElementGetAutofocus , - - --- ** dOMHTMLSelectElementGetDisabled - DOMHTMLSelectElementGetDisabledMethodInfo, - dOMHTMLSelectElementGetDisabled , - - --- ** dOMHTMLSelectElementGetForm - DOMHTMLSelectElementGetFormMethodInfo , - dOMHTMLSelectElementGetForm , - - --- ** dOMHTMLSelectElementGetLength - DOMHTMLSelectElementGetLengthMethodInfo , - dOMHTMLSelectElementGetLength , - - --- ** dOMHTMLSelectElementGetMultiple - DOMHTMLSelectElementGetMultipleMethodInfo, - dOMHTMLSelectElementGetMultiple , - - --- ** dOMHTMLSelectElementGetName - DOMHTMLSelectElementGetNameMethodInfo , - dOMHTMLSelectElementGetName , - - --- ** dOMHTMLSelectElementGetOptions - DOMHTMLSelectElementGetOptionsMethodInfo, - dOMHTMLSelectElementGetOptions , - - --- ** dOMHTMLSelectElementGetSelectType - DOMHTMLSelectElementGetSelectTypeMethodInfo, - dOMHTMLSelectElementGetSelectType , - - --- ** dOMHTMLSelectElementGetSelectedIndex - DOMHTMLSelectElementGetSelectedIndexMethodInfo, - dOMHTMLSelectElementGetSelectedIndex , - - --- ** dOMHTMLSelectElementGetSize - DOMHTMLSelectElementGetSizeMethodInfo , - dOMHTMLSelectElementGetSize , - - --- ** dOMHTMLSelectElementGetValue - DOMHTMLSelectElementGetValueMethodInfo , - dOMHTMLSelectElementGetValue , - - --- ** dOMHTMLSelectElementGetWillValidate - DOMHTMLSelectElementGetWillValidateMethodInfo, - dOMHTMLSelectElementGetWillValidate , - - --- ** dOMHTMLSelectElementItem - DOMHTMLSelectElementItemMethodInfo , - dOMHTMLSelectElementItem , - - --- ** dOMHTMLSelectElementNamedItem - DOMHTMLSelectElementNamedItemMethodInfo , - dOMHTMLSelectElementNamedItem , - - --- ** dOMHTMLSelectElementRemove - DOMHTMLSelectElementRemoveMethodInfo , - dOMHTMLSelectElementRemove , - - --- ** dOMHTMLSelectElementSetAutofocus - DOMHTMLSelectElementSetAutofocusMethodInfo, - dOMHTMLSelectElementSetAutofocus , - - --- ** dOMHTMLSelectElementSetDisabled - DOMHTMLSelectElementSetDisabledMethodInfo, - dOMHTMLSelectElementSetDisabled , - - --- ** dOMHTMLSelectElementSetLength - DOMHTMLSelectElementSetLengthMethodInfo , - dOMHTMLSelectElementSetLength , - - --- ** dOMHTMLSelectElementSetMultiple - DOMHTMLSelectElementSetMultipleMethodInfo, - dOMHTMLSelectElementSetMultiple , - - --- ** dOMHTMLSelectElementSetName - DOMHTMLSelectElementSetNameMethodInfo , - dOMHTMLSelectElementSetName , - - --- ** dOMHTMLSelectElementSetSelectedIndex - DOMHTMLSelectElementSetSelectedIndexMethodInfo, - dOMHTMLSelectElementSetSelectedIndex , - - --- ** dOMHTMLSelectElementSetSize - DOMHTMLSelectElementSetSizeMethodInfo , - dOMHTMLSelectElementSetSize , - - --- ** dOMHTMLSelectElementSetValue - DOMHTMLSelectElementSetValueMethodInfo , - dOMHTMLSelectElementSetValue , - - - - - -- * Properties --- ** Autocomplete - DOMHTMLSelectElementAutocompletePropertyInfo, - clearDOMHTMLSelectElementAutocomplete , - constructDOMHTMLSelectElementAutocomplete, - dOMHTMLSelectElementAutocomplete , - getDOMHTMLSelectElementAutocomplete , - setDOMHTMLSelectElementAutocomplete , - - --- ** Autofocus - DOMHTMLSelectElementAutofocusPropertyInfo, - constructDOMHTMLSelectElementAutofocus , - dOMHTMLSelectElementAutofocus , - getDOMHTMLSelectElementAutofocus , - setDOMHTMLSelectElementAutofocus , - - --- ** Disabled - DOMHTMLSelectElementDisabledPropertyInfo, - constructDOMHTMLSelectElementDisabled , - dOMHTMLSelectElementDisabled , - getDOMHTMLSelectElementDisabled , - setDOMHTMLSelectElementDisabled , - - --- ** Form - DOMHTMLSelectElementFormPropertyInfo , - dOMHTMLSelectElementForm , - getDOMHTMLSelectElementForm , - - --- ** Labels - DOMHTMLSelectElementLabelsPropertyInfo , - dOMHTMLSelectElementLabels , - getDOMHTMLSelectElementLabels , - - --- ** Length - DOMHTMLSelectElementLengthPropertyInfo , - constructDOMHTMLSelectElementLength , - dOMHTMLSelectElementLength , - getDOMHTMLSelectElementLength , - setDOMHTMLSelectElementLength , - - --- ** Multiple - DOMHTMLSelectElementMultiplePropertyInfo, - constructDOMHTMLSelectElementMultiple , - dOMHTMLSelectElementMultiple , - getDOMHTMLSelectElementMultiple , - setDOMHTMLSelectElementMultiple , - - --- ** Name - DOMHTMLSelectElementNamePropertyInfo , - constructDOMHTMLSelectElementName , - dOMHTMLSelectElementName , - getDOMHTMLSelectElementName , - setDOMHTMLSelectElementName , - - --- ** Options - DOMHTMLSelectElementOptionsPropertyInfo , - dOMHTMLSelectElementOptions , - getDOMHTMLSelectElementOptions , - - --- ** Required - DOMHTMLSelectElementRequiredPropertyInfo, - constructDOMHTMLSelectElementRequired , - dOMHTMLSelectElementRequired , - getDOMHTMLSelectElementRequired , - setDOMHTMLSelectElementRequired , - - --- ** SelectedIndex - DOMHTMLSelectElementSelectedIndexPropertyInfo, - constructDOMHTMLSelectElementSelectedIndex, - dOMHTMLSelectElementSelectedIndex , - getDOMHTMLSelectElementSelectedIndex , - setDOMHTMLSelectElementSelectedIndex , - - --- ** SelectedOptions - DOMHTMLSelectElementSelectedOptionsPropertyInfo, - dOMHTMLSelectElementSelectedOptions , - getDOMHTMLSelectElementSelectedOptions , - - --- ** Size - DOMHTMLSelectElementSizePropertyInfo , - constructDOMHTMLSelectElementSize , - dOMHTMLSelectElementSize , - getDOMHTMLSelectElementSize , - setDOMHTMLSelectElementSize , - - --- ** Type - DOMHTMLSelectElementTypePropertyInfo , - dOMHTMLSelectElementType , - getDOMHTMLSelectElementType , - - --- ** ValidationMessage - DOMHTMLSelectElementValidationMessagePropertyInfo, - dOMHTMLSelectElementValidationMessage , - getDOMHTMLSelectElementValidationMessage, - - --- ** Value - DOMHTMLSelectElementValuePropertyInfo , - constructDOMHTMLSelectElementValue , - dOMHTMLSelectElementValue , - getDOMHTMLSelectElementValue , - setDOMHTMLSelectElementValue , - - --- ** WillValidate - DOMHTMLSelectElementWillValidatePropertyInfo, - dOMHTMLSelectElementWillValidate , - getDOMHTMLSelectElementWillValidate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLSelectElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLSelectElementMethod "add" o = DOMHTMLSelectElementAddMethodInfo - ResolveDOMHTMLSelectElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLSelectElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLSelectElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLSelectElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLSelectElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLSelectElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLSelectElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLSelectElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLSelectElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLSelectElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLSelectElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLSelectElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLSelectElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLSelectElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLSelectElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLSelectElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLSelectElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLSelectElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLSelectElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLSelectElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLSelectElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLSelectElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLSelectElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLSelectElementMethod "item" o = DOMHTMLSelectElementItemMethodInfo - ResolveDOMHTMLSelectElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLSelectElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLSelectElementMethod "namedItem" o = DOMHTMLSelectElementNamedItemMethodInfo - ResolveDOMHTMLSelectElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLSelectElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLSelectElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLSelectElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLSelectElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLSelectElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLSelectElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLSelectElementMethod "remove" o = DOMHTMLSelectElementRemoveMethodInfo - ResolveDOMHTMLSelectElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLSelectElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLSelectElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLSelectElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLSelectElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLSelectElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLSelectElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLSelectElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLSelectElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLSelectElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLSelectElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLSelectElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLSelectElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLSelectElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLSelectElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLSelectElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLSelectElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLSelectElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLSelectElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLSelectElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLSelectElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLSelectElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLSelectElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLSelectElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLSelectElementMethod "getAutofocus" o = DOMHTMLSelectElementGetAutofocusMethodInfo - ResolveDOMHTMLSelectElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLSelectElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLSelectElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLSelectElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLSelectElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLSelectElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLSelectElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLSelectElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLSelectElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLSelectElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLSelectElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLSelectElementMethod "getDisabled" o = DOMHTMLSelectElementGetDisabledMethodInfo - ResolveDOMHTMLSelectElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLSelectElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLSelectElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLSelectElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLSelectElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLSelectElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLSelectElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLSelectElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLSelectElementMethod "getForm" o = DOMHTMLSelectElementGetFormMethodInfo - ResolveDOMHTMLSelectElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLSelectElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLSelectElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLSelectElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLSelectElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLSelectElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLSelectElementMethod "getLength" o = DOMHTMLSelectElementGetLengthMethodInfo - ResolveDOMHTMLSelectElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLSelectElementMethod "getMultiple" o = DOMHTMLSelectElementGetMultipleMethodInfo - ResolveDOMHTMLSelectElementMethod "getName" o = DOMHTMLSelectElementGetNameMethodInfo - ResolveDOMHTMLSelectElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLSelectElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLSelectElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLSelectElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLSelectElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLSelectElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLSelectElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLSelectElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLSelectElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLSelectElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLSelectElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLSelectElementMethod "getOptions" o = DOMHTMLSelectElementGetOptionsMethodInfo - ResolveDOMHTMLSelectElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLSelectElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLSelectElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLSelectElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLSelectElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLSelectElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLSelectElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLSelectElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLSelectElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLSelectElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLSelectElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLSelectElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLSelectElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLSelectElementMethod "getSelectType" o = DOMHTMLSelectElementGetSelectTypeMethodInfo - ResolveDOMHTMLSelectElementMethod "getSelectedIndex" o = DOMHTMLSelectElementGetSelectedIndexMethodInfo - ResolveDOMHTMLSelectElementMethod "getSize" o = DOMHTMLSelectElementGetSizeMethodInfo - ResolveDOMHTMLSelectElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLSelectElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLSelectElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLSelectElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLSelectElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLSelectElementMethod "getValue" o = DOMHTMLSelectElementGetValueMethodInfo - ResolveDOMHTMLSelectElementMethod "getWillValidate" o = DOMHTMLSelectElementGetWillValidateMethodInfo - ResolveDOMHTMLSelectElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLSelectElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLSelectElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLSelectElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLSelectElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLSelectElementMethod "setAutofocus" o = DOMHTMLSelectElementSetAutofocusMethodInfo - ResolveDOMHTMLSelectElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLSelectElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLSelectElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLSelectElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLSelectElementMethod "setDisabled" o = DOMHTMLSelectElementSetDisabledMethodInfo - ResolveDOMHTMLSelectElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLSelectElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLSelectElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLSelectElementMethod "setLength" o = DOMHTMLSelectElementSetLengthMethodInfo - ResolveDOMHTMLSelectElementMethod "setMultiple" o = DOMHTMLSelectElementSetMultipleMethodInfo - ResolveDOMHTMLSelectElementMethod "setName" o = DOMHTMLSelectElementSetNameMethodInfo - ResolveDOMHTMLSelectElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLSelectElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLSelectElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLSelectElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLSelectElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLSelectElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLSelectElementMethod "setSelectedIndex" o = DOMHTMLSelectElementSetSelectedIndexMethodInfo - ResolveDOMHTMLSelectElementMethod "setSize" o = DOMHTMLSelectElementSetSizeMethodInfo - ResolveDOMHTMLSelectElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLSelectElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLSelectElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLSelectElementMethod "setValue" o = DOMHTMLSelectElementSetValueMethodInfo - ResolveDOMHTMLSelectElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLSelectElementMethod t DOMHTMLSelectElement, MethodInfo info DOMHTMLSelectElement p) => IsLabelProxy t (DOMHTMLSelectElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLSelectElementMethod t DOMHTMLSelectElement, MethodInfo info DOMHTMLSelectElement p) => IsLabel t (DOMHTMLSelectElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "autocomplete" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLSelectElementAutocomplete :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLSelectElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" - -setDOMHTMLSelectElementAutocomplete :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () -setDOMHTMLSelectElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) - -constructDOMHTMLSelectElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLSelectElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) - -clearDOMHTMLSelectElementAutocomplete :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m () -clearDOMHTMLSelectElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) - -data DOMHTMLSelectElementAutocompletePropertyInfo -instance AttrInfo DOMHTMLSelectElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLSelectElementAutocompletePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLSelectElementAutocompletePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementAutocompletePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLSelectElementAutocompletePropertyInfo = "autocomplete" - attrGet _ = getDOMHTMLSelectElementAutocomplete - attrSet _ = setDOMHTMLSelectElementAutocomplete - attrConstruct _ = constructDOMHTMLSelectElementAutocomplete - attrClear _ = clearDOMHTMLSelectElementAutocomplete - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "autofocus" - attrGet _ = getDOMHTMLSelectElementAutofocus - attrSet _ = setDOMHTMLSelectElementAutofocus - attrConstruct _ = constructDOMHTMLSelectElementAutofocus - attrClear _ = undefined - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLSelectElementDisabled - attrSet _ = setDOMHTMLSelectElementDisabled - attrConstruct _ = constructDOMHTMLSelectElementDisabled - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLSelectElementForm :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLSelectElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLSelectElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLSelectElementFormPropertyInfo -instance AttrInfo DOMHTMLSelectElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLSelectElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementFormPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLSelectElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLSelectElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "labels" - -- Type: TInterface "WebKit2WebExtension" "DOMNodeList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLSelectElementLabels :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe DOMNodeList) -getDOMHTMLSelectElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLSelectElementLabelsPropertyInfo -instance AttrInfo DOMHTMLSelectElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementLabelsPropertyInfo = (Maybe DOMNodeList) - type AttrLabel DOMHTMLSelectElementLabelsPropertyInfo = "labels" - attrGet _ = getDOMHTMLSelectElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m CULong -getDOMHTMLSelectElementLength obj = liftIO $ getObjectPropertyULong obj "length" - -setDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> CULong -> m () -setDOMHTMLSelectElementLength obj val = liftIO $ setObjectPropertyULong obj "length" val - -constructDOMHTMLSelectElementLength :: CULong -> IO ([Char], GValue) -constructDOMHTMLSelectElementLength val = constructObjectPropertyULong "length" val - -data DOMHTMLSelectElementLengthPropertyInfo -instance AttrInfo DOMHTMLSelectElementLengthPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = (~) CULong - type AttrBaseTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementLengthPropertyInfo = CULong - type AttrLabel DOMHTMLSelectElementLengthPropertyInfo = "length" - attrGet _ = getDOMHTMLSelectElementLength - attrSet _ = setDOMHTMLSelectElementLength - attrConstruct _ = constructDOMHTMLSelectElementLength - attrClear _ = undefined - --- VVV Prop "multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "multiple" - attrGet _ = getDOMHTMLSelectElementMultiple - attrSet _ = setDOMHTMLSelectElementMultiple - attrConstruct _ = constructDOMHTMLSelectElementMultiple - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLSelectElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () -setDOMHTMLSelectElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLSelectElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLSelectElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLSelectElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLSelectElementName - attrSet _ = setDOMHTMLSelectElementName - attrConstruct _ = constructDOMHTMLSelectElementName - attrClear _ = undefined - --- VVV Prop "options" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLSelectElementOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe DOMHTMLOptionsCollection) -getDOMHTMLSelectElementOptions obj = liftIO $ getObjectPropertyObject obj "options" DOMHTMLOptionsCollection - -data DOMHTMLSelectElementOptionsPropertyInfo -instance AttrInfo DOMHTMLSelectElementOptionsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementOptionsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementOptionsPropertyInfo = (Maybe DOMHTMLOptionsCollection) - type AttrLabel DOMHTMLSelectElementOptionsPropertyInfo = "options" - attrGet _ = getDOMHTMLSelectElementOptions - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "required" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "required" - attrGet _ = getDOMHTMLSelectElementRequired - attrSet _ = setDOMHTMLSelectElementRequired - attrConstruct _ = constructDOMHTMLSelectElementRequired - attrClear _ = undefined - --- VVV Prop "selected-index" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m CLong -getDOMHTMLSelectElementSelectedIndex obj = liftIO $ getObjectPropertyLong obj "selected-index" - -setDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> CLong -> m () -setDOMHTMLSelectElementSelectedIndex obj val = liftIO $ setObjectPropertyLong obj "selected-index" val - -constructDOMHTMLSelectElementSelectedIndex :: CLong -> IO ([Char], GValue) -constructDOMHTMLSelectElementSelectedIndex val = constructObjectPropertyLong "selected-index" val - -data DOMHTMLSelectElementSelectedIndexPropertyInfo -instance AttrInfo DOMHTMLSelectElementSelectedIndexPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSelectedIndexPropertyInfo = CLong - type AttrLabel DOMHTMLSelectElementSelectedIndexPropertyInfo = "selected-index" - attrGet _ = getDOMHTMLSelectElementSelectedIndex - attrSet _ = setDOMHTMLSelectElementSelectedIndex - attrConstruct _ = constructDOMHTMLSelectElementSelectedIndex - attrClear _ = undefined - --- VVV Prop "selected-options" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLSelectElementSelectedOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLSelectElementSelectedOptions obj = liftIO $ getObjectPropertyObject obj "selected-options" DOMHTMLCollection - -data DOMHTMLSelectElementSelectedOptionsPropertyInfo -instance AttrInfo DOMHTMLSelectElementSelectedOptionsPropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementSelectedOptionsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSelectedOptionsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLSelectElementSelectedOptionsPropertyInfo = "selected-options" - attrGet _ = getDOMHTMLSelectElementSelectedOptions - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m CLong -getDOMHTMLSelectElementSize obj = liftIO $ getObjectPropertyLong obj "size" - -setDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> CLong -> m () -setDOMHTMLSelectElementSize obj val = liftIO $ setObjectPropertyLong obj "size" val - -constructDOMHTMLSelectElementSize :: CLong -> IO ([Char], GValue) -constructDOMHTMLSelectElementSize val = constructObjectPropertyLong "size" val - -data DOMHTMLSelectElementSizePropertyInfo -instance AttrInfo DOMHTMLSelectElementSizePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLSelectElementSizePropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLSelectElementSizePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementSizePropertyInfo = CLong - type AttrLabel DOMHTMLSelectElementSizePropertyInfo = "size" - attrGet _ = getDOMHTMLSelectElementSize - attrSet _ = setDOMHTMLSelectElementSize - attrConstruct _ = constructDOMHTMLSelectElementSize - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLSelectElementType :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLSelectElementType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMHTMLSelectElementTypePropertyInfo -instance AttrInfo DOMHTMLSelectElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLSelectElementTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementTypePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLSelectElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLSelectElementType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLSelectElementValidationMessage :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLSelectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLSelectElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLSelectElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLSelectElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = DOMHTMLSelectElementK - type AttrGetType DOMHTMLSelectElementValidationMessagePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLSelectElementValidationMessagePropertyInfo = "validation-message" - attrGet _ = getDOMHTMLSelectElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m (Maybe T.Text) -getDOMHTMLSelectElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () -setDOMHTMLSelectElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) - -constructDOMHTMLSelectElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLSelectElementValue val = constructObjectPropertyString "value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLSelectElementValuePropertyInfo = "value" - attrGet _ = getDOMHTMLSelectElementValue - attrSet _ = setDOMHTMLSelectElementValue - attrConstruct _ = constructDOMHTMLSelectElementValue - attrClear _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "will-validate" - attrGet _ = getDOMHTMLSelectElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMHTMLSelectElement = DOMHTMLSelectElementAttributeList -type DOMHTMLSelectElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocomplete", DOMHTMLSelectElementAutocompletePropertyInfo), '("autofocus", DOMHTMLSelectElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLSelectElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLSelectElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLSelectElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLSelectElementLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("multiple", DOMHTMLSelectElementMultiplePropertyInfo), '("name", DOMHTMLSelectElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("options", DOMHTMLSelectElementOptionsPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("required", DOMHTMLSelectElementRequiredPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("selectedIndex", DOMHTMLSelectElementSelectedIndexPropertyInfo), '("selectedOptions", DOMHTMLSelectElementSelectedOptionsPropertyInfo), '("size", DOMHTMLSelectElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLSelectElementTypePropertyInfo), '("validationMessage", DOMHTMLSelectElementValidationMessagePropertyInfo), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLSelectElementWillValidatePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLSelectElementAutocomplete :: AttrLabelProxy "autocomplete" -dOMHTMLSelectElementAutocomplete = AttrLabelProxy - -dOMHTMLSelectElementAutofocus :: AttrLabelProxy "autofocus" -dOMHTMLSelectElementAutofocus = AttrLabelProxy - -dOMHTMLSelectElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLSelectElementDisabled = AttrLabelProxy - -dOMHTMLSelectElementForm :: AttrLabelProxy "form" -dOMHTMLSelectElementForm = AttrLabelProxy - -dOMHTMLSelectElementLabels :: AttrLabelProxy "labels" -dOMHTMLSelectElementLabels = AttrLabelProxy - -dOMHTMLSelectElementLength :: AttrLabelProxy "length" -dOMHTMLSelectElementLength = AttrLabelProxy - -dOMHTMLSelectElementMultiple :: AttrLabelProxy "multiple" -dOMHTMLSelectElementMultiple = AttrLabelProxy - -dOMHTMLSelectElementName :: AttrLabelProxy "name" -dOMHTMLSelectElementName = AttrLabelProxy - -dOMHTMLSelectElementOptions :: AttrLabelProxy "options" -dOMHTMLSelectElementOptions = AttrLabelProxy - -dOMHTMLSelectElementRequired :: AttrLabelProxy "required" -dOMHTMLSelectElementRequired = AttrLabelProxy - -dOMHTMLSelectElementSelectedIndex :: AttrLabelProxy "selectedIndex" -dOMHTMLSelectElementSelectedIndex = AttrLabelProxy - -dOMHTMLSelectElementSelectedOptions :: AttrLabelProxy "selectedOptions" -dOMHTMLSelectElementSelectedOptions = AttrLabelProxy - -dOMHTMLSelectElementSize :: AttrLabelProxy "size" -dOMHTMLSelectElementSize = AttrLabelProxy - -dOMHTMLSelectElementType :: AttrLabelProxy "type" -dOMHTMLSelectElementType = AttrLabelProxy - -dOMHTMLSelectElementValidationMessage :: AttrLabelProxy "validationMessage" -dOMHTMLSelectElementValidationMessage = AttrLabelProxy - -dOMHTMLSelectElementValue :: AttrLabelProxy "value" -dOMHTMLSelectElementValue = AttrLabelProxy - -dOMHTMLSelectElementWillValidate :: AttrLabelProxy "willValidate" -dOMHTMLSelectElementWillValidate = AttrLabelProxy - -type instance SignalList DOMHTMLSelectElement = DOMHTMLSelectElementSignalList -type DOMHTMLSelectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLSelectElement::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "element", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "before", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMHTMLSelectElementAddMethodInfo -instance (signature ~ (b -> c -> m ()), MonadIO m, DOMHTMLSelectElementK a, DOMHTMLElementK b, DOMHTMLElementK c) => MethodInfo DOMHTMLSelectElementAddMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementAdd - --- method DOMHTMLSelectElement::get_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetAutofocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetAutofocus - --- method DOMHTMLSelectElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetDisabled - --- method DOMHTMLSelectElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetForm - --- method DOMHTMLSelectElement::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMHTMLSelectElementGetLength :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> m CULong -- result -dOMHTMLSelectElementGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_select_element_get_length _obj' - touchManagedPtr _obj - return result - -data DOMHTMLSelectElementGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetLengthMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetLength - --- method DOMHTMLSelectElement::get_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetMultipleMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetMultipleMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetMultiple - --- method DOMHTMLSelectElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetName - --- method DOMHTMLSelectElement::get_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetOptionsMethodInfo -instance (signature ~ (m DOMHTMLOptionsCollection), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetOptionsMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetOptions - --- method DOMHTMLSelectElement::get_select_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetSelectTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetSelectTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetSelectType - --- method DOMHTMLSelectElement::get_selected_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLSelectElementGetSelectedIndex :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLSelectElementGetSelectedIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_select_element_get_selected_index _obj' - touchManagedPtr _obj - return result - -data DOMHTMLSelectElementGetSelectedIndexMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetSelectedIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetSelectedIndex - --- method DOMHTMLSelectElement::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLSelectElementGetSize :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLSelectElementGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_select_element_get_size _obj' - touchManagedPtr _obj - return result - -data DOMHTMLSelectElementGetSizeMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetSize - --- method DOMHTMLSelectElement::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetValue - --- method DOMHTMLSelectElement::get_will_validate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementGetWillValidateMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementGetWillValidateMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementGetWillValidate - --- method DOMHTMLSelectElement::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO (Ptr DOMNode) - - -dOMHTMLSelectElementItem :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> CULong -- index - -> m DOMNode -- result -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' - -data DOMHTMLSelectElementItemMethodInfo -instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementItemMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementItem - --- method DOMHTMLSelectElement::named_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLSelectElementNamedItemMethodInfo -instance (signature ~ (T.Text -> m DOMNode), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementNamedItemMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementNamedItem - --- method DOMHTMLSelectElement::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- index : TBasicType TLong - IO () - - -dOMHTMLSelectElementRemove :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> CLong -- index - -> m () -- result -dOMHTMLSelectElementRemove _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_select_element_remove _obj' index - touchManagedPtr _obj - return () - -data DOMHTMLSelectElementRemoveMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementRemoveMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementRemove - --- method DOMHTMLSelectElement::set_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLSelectElementSetAutofocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetAutofocus - --- method DOMHTMLSelectElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLSelectElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetDisabled - --- method DOMHTMLSelectElement::set_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CULong -> -- value : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO () - - -dOMHTMLSelectElementSetLength :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> CULong -- value - -> m () -- result -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 () - ) - -data DOMHTMLSelectElementSetLengthMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetLengthMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetLength - --- method DOMHTMLSelectElement::set_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLSelectElementSetMultipleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetMultipleMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetMultiple - --- method DOMHTMLSelectElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLSelectElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetName - --- method DOMHTMLSelectElement::set_selected_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLSelectElementSetSelectedIndex :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLSelectElementSetSelectedIndex _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_select_element_set_selected_index _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLSelectElementSetSelectedIndexMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetSelectedIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetSelectedIndex - --- method DOMHTMLSelectElement::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLSelectElementSetSize :: - (MonadIO m, DOMHTMLSelectElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLSelectElementSetSize _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_select_element_set_size _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLSelectElementSetSizeMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetSizeMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetSize - --- method DOMHTMLSelectElement::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLSelectElementSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLSelectElementK a) => MethodInfo DOMHTMLSelectElementSetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLSelectElementSetValue - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot +++ /dev/null @@ -1,54 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMHTMLSelectElementAutocompletePropertyInfo -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 -data DOMHTMLSelectElementAddMethodInfo -data DOMHTMLSelectElementGetAutofocusMethodInfo -data DOMHTMLSelectElementGetDisabledMethodInfo -data DOMHTMLSelectElementGetFormMethodInfo -data DOMHTMLSelectElementGetLengthMethodInfo -data DOMHTMLSelectElementGetMultipleMethodInfo -data DOMHTMLSelectElementGetNameMethodInfo -data DOMHTMLSelectElementGetOptionsMethodInfo -data DOMHTMLSelectElementGetSelectTypeMethodInfo -data DOMHTMLSelectElementGetSelectedIndexMethodInfo -data DOMHTMLSelectElementGetSizeMethodInfo -data DOMHTMLSelectElementGetValueMethodInfo -data DOMHTMLSelectElementGetWillValidateMethodInfo -data DOMHTMLSelectElementItemMethodInfo -data DOMHTMLSelectElementNamedItemMethodInfo -data DOMHTMLSelectElementRemoveMethodInfo -data DOMHTMLSelectElementSetAutofocusMethodInfo -data DOMHTMLSelectElementSetDisabledMethodInfo -data DOMHTMLSelectElementSetLengthMethodInfo -data DOMHTMLSelectElementSetMultipleMethodInfo -data DOMHTMLSelectElementSetNameMethodInfo -data DOMHTMLSelectElementSetSelectedIndexMethodInfo -data DOMHTMLSelectElementSetSizeMethodInfo -data DOMHTMLSelectElementSetValueMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs +++ /dev/null @@ -1,603 +0,0 @@ - - -{- | -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 - DOMHTMLStyleElementGetDisabledMethodInfo, - dOMHTMLStyleElementGetDisabled , - - --- ** dOMHTMLStyleElementGetMedia - DOMHTMLStyleElementGetMediaMethodInfo , - dOMHTMLStyleElementGetMedia , - - --- ** dOMHTMLStyleElementGetSheet - DOMHTMLStyleElementGetSheetMethodInfo , - dOMHTMLStyleElementGetSheet , - - --- ** dOMHTMLStyleElementGetTypeAttr - DOMHTMLStyleElementGetTypeAttrMethodInfo, - dOMHTMLStyleElementGetTypeAttr , - - --- ** dOMHTMLStyleElementSetDisabled - DOMHTMLStyleElementSetDisabledMethodInfo, - dOMHTMLStyleElementSetDisabled , - - --- ** dOMHTMLStyleElementSetMedia - DOMHTMLStyleElementSetMediaMethodInfo , - dOMHTMLStyleElementSetMedia , - - --- ** dOMHTMLStyleElementSetTypeAttr - DOMHTMLStyleElementSetTypeAttrMethodInfo, - dOMHTMLStyleElementSetTypeAttr , - - - - - -- * Properties --- ** Disabled - DOMHTMLStyleElementDisabledPropertyInfo , - constructDOMHTMLStyleElementDisabled , - dOMHTMLStyleElementDisabled , - getDOMHTMLStyleElementDisabled , - setDOMHTMLStyleElementDisabled , - - --- ** Media - DOMHTMLStyleElementMediaPropertyInfo , - constructDOMHTMLStyleElementMedia , - dOMHTMLStyleElementMedia , - getDOMHTMLStyleElementMedia , - setDOMHTMLStyleElementMedia , - - --- ** Sheet - DOMHTMLStyleElementSheetPropertyInfo , - dOMHTMLStyleElementSheet , - getDOMHTMLStyleElementSheet , - - --- ** Type - DOMHTMLStyleElementTypePropertyInfo , - clearDOMHTMLStyleElementType , - constructDOMHTMLStyleElementType , - dOMHTMLStyleElementType , - getDOMHTMLStyleElementType , - setDOMHTMLStyleElementType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLStyleElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLStyleElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLStyleElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLStyleElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLStyleElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLStyleElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLStyleElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLStyleElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLStyleElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLStyleElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLStyleElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLStyleElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLStyleElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLStyleElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLStyleElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLStyleElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLStyleElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLStyleElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLStyleElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLStyleElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLStyleElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLStyleElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLStyleElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLStyleElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLStyleElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLStyleElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLStyleElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLStyleElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLStyleElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLStyleElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLStyleElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLStyleElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLStyleElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLStyleElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLStyleElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLStyleElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLStyleElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLStyleElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLStyleElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLStyleElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLStyleElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLStyleElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLStyleElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLStyleElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLStyleElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLStyleElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLStyleElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLStyleElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLStyleElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLStyleElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLStyleElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLStyleElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLStyleElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLStyleElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLStyleElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLStyleElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLStyleElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLStyleElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLStyleElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLStyleElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLStyleElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLStyleElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLStyleElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLStyleElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLStyleElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLStyleElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLStyleElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLStyleElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLStyleElementMethod "getDisabled" o = DOMHTMLStyleElementGetDisabledMethodInfo - ResolveDOMHTMLStyleElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLStyleElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLStyleElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLStyleElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLStyleElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLStyleElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLStyleElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLStyleElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLStyleElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLStyleElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLStyleElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLStyleElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLStyleElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLStyleElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLStyleElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLStyleElementMethod "getMedia" o = DOMHTMLStyleElementGetMediaMethodInfo - ResolveDOMHTMLStyleElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLStyleElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLStyleElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLStyleElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLStyleElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLStyleElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLStyleElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLStyleElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLStyleElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLStyleElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLStyleElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLStyleElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLStyleElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLStyleElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLStyleElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLStyleElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLStyleElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLStyleElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLStyleElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLStyleElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLStyleElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLStyleElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLStyleElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLStyleElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLStyleElementMethod "getSheet" o = DOMHTMLStyleElementGetSheetMethodInfo - ResolveDOMHTMLStyleElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLStyleElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLStyleElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLStyleElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLStyleElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLStyleElementMethod "getTypeAttr" o = DOMHTMLStyleElementGetTypeAttrMethodInfo - ResolveDOMHTMLStyleElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLStyleElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLStyleElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLStyleElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLStyleElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLStyleElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLStyleElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLStyleElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLStyleElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLStyleElementMethod "setDisabled" o = DOMHTMLStyleElementSetDisabledMethodInfo - ResolveDOMHTMLStyleElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLStyleElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLStyleElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLStyleElementMethod "setMedia" o = DOMHTMLStyleElementSetMediaMethodInfo - ResolveDOMHTMLStyleElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLStyleElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLStyleElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLStyleElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLStyleElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLStyleElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLStyleElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLStyleElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLStyleElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLStyleElementMethod "setTypeAttr" o = DOMHTMLStyleElementSetTypeAttrMethodInfo - ResolveDOMHTMLStyleElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLStyleElementMethod t DOMHTMLStyleElement, MethodInfo info DOMHTMLStyleElement p) => IsLabelProxy t (DOMHTMLStyleElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLStyleElementMethod t DOMHTMLStyleElement, MethodInfo info DOMHTMLStyleElement p) => IsLabel t (DOMHTMLStyleElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLStyleElementDisabled - attrSet _ = setDOMHTMLStyleElementDisabled - attrConstruct _ = constructDOMHTMLStyleElementDisabled - attrClear _ = undefined - --- VVV Prop "media" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m (Maybe T.Text) -getDOMHTMLStyleElementMedia obj = liftIO $ getObjectPropertyString obj "media" - -setDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () -setDOMHTMLStyleElementMedia obj val = liftIO $ setObjectPropertyString obj "media" (Just val) - -constructDOMHTMLStyleElementMedia :: T.Text -> IO ([Char], GValue) -constructDOMHTMLStyleElementMedia val = constructObjectPropertyString "media" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLStyleElementMediaPropertyInfo = "media" - attrGet _ = getDOMHTMLStyleElementMedia - attrSet _ = setDOMHTMLStyleElementMedia - attrConstruct _ = constructDOMHTMLStyleElementMedia - attrClear _ = undefined - --- VVV Prop "sheet" - -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLStyleElementSheet :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m (Maybe DOMStyleSheet) -getDOMHTMLStyleElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet - -data DOMHTMLStyleElementSheetPropertyInfo -instance AttrInfo DOMHTMLStyleElementSheetPropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementSheetPropertyInfo = (Maybe DOMStyleSheet) - type AttrLabel DOMHTMLStyleElementSheetPropertyInfo = "sheet" - attrGet _ = getDOMHTMLStyleElementSheet - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m (Maybe T.Text) -getDOMHTMLStyleElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () -setDOMHTMLStyleElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLStyleElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLStyleElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m () -clearDOMHTMLStyleElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLStyleElementTypePropertyInfo -instance AttrInfo DOMHTMLStyleElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLStyleElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLStyleElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLStyleElementTypePropertyInfo = DOMHTMLStyleElementK - type AttrGetType DOMHTMLStyleElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLStyleElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLStyleElementType - attrSet _ = setDOMHTMLStyleElementType - attrConstruct _ = constructDOMHTMLStyleElementType - attrClear _ = clearDOMHTMLStyleElementType - -type instance AttributeList DOMHTMLStyleElement = DOMHTMLStyleElementAttributeList -type DOMHTMLStyleElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLStyleElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLStyleElementMediaPropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLStyleElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLStyleElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLStyleElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLStyleElementDisabled = AttrLabelProxy - -dOMHTMLStyleElementMedia :: AttrLabelProxy "media" -dOMHTMLStyleElementMedia = AttrLabelProxy - -dOMHTMLStyleElementSheet :: AttrLabelProxy "sheet" -dOMHTMLStyleElementSheet = AttrLabelProxy - -dOMHTMLStyleElementType :: AttrLabelProxy "type" -dOMHTMLStyleElementType = AttrLabelProxy - -type instance SignalList DOMHTMLStyleElement = DOMHTMLStyleElementSignalList -type DOMHTMLStyleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLStyleElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLStyleElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLStyleElementK a) => MethodInfo DOMHTMLStyleElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLStyleElementGetDisabled - --- method DOMHTMLStyleElement::get_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLStyleElementGetMediaMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLStyleElementK a) => MethodInfo DOMHTMLStyleElementGetMediaMethodInfo a signature where - overloadedMethod _ = dOMHTMLStyleElementGetMedia - --- method DOMHTMLStyleElement::get_sheet --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLStyleElementGetSheetMethodInfo -instance (signature ~ (m DOMStyleSheet), MonadIO m, DOMHTMLStyleElementK a) => MethodInfo DOMHTMLStyleElementGetSheetMethodInfo a signature where - overloadedMethod _ = dOMHTMLStyleElementGetSheet - --- method DOMHTMLStyleElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLStyleElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLStyleElementK a) => MethodInfo DOMHTMLStyleElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLStyleElementGetTypeAttr - --- method DOMHTMLStyleElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLStyleElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLStyleElementK a) => MethodInfo DOMHTMLStyleElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLStyleElementSetDisabled - --- method DOMHTMLStyleElement::set_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLStyleElementSetMediaMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLStyleElementK a) => MethodInfo DOMHTMLStyleElementSetMediaMethodInfo a signature where - overloadedMethod _ = dOMHTMLStyleElementSetMedia - --- method DOMHTMLStyleElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLStyleElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLStyleElementK a) => MethodInfo DOMHTMLStyleElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLStyleElementSetTypeAttr - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLStyleElementGetDisabledMethodInfo -data DOMHTMLStyleElementGetMediaMethodInfo -data DOMHTMLStyleElementGetSheetMethodInfo -data DOMHTMLStyleElementGetTypeAttrMethodInfo -data DOMHTMLStyleElementSetDisabledMethodInfo -data DOMHTMLStyleElementSetMediaMethodInfo -data DOMHTMLStyleElementSetTypeAttrMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLTableCaptionElementGetAlignMethodInfo, - dOMHTMLTableCaptionElementGetAlign , - - --- ** dOMHTMLTableCaptionElementSetAlign - DOMHTMLTableCaptionElementSetAlignMethodInfo, - dOMHTMLTableCaptionElementSetAlign , - - - - - -- * Properties --- ** Align - DOMHTMLTableCaptionElementAlignPropertyInfo, - constructDOMHTMLTableCaptionElementAlign, - dOMHTMLTableCaptionElementAlign , - getDOMHTMLTableCaptionElementAlign , - setDOMHTMLTableCaptionElementAlign , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTableCaptionElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTableCaptionElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getAlign" o = DOMHTMLTableCaptionElementGetAlignMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setAlign" o = DOMHTMLTableCaptionElementSetAlignMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTableCaptionElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTableCaptionElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTableCaptionElementMethod t DOMHTMLTableCaptionElement, MethodInfo info DOMHTMLTableCaptionElement p) => IsLabelProxy t (DOMHTMLTableCaptionElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTableCaptionElementMethod t DOMHTMLTableCaptionElement, MethodInfo info DOMHTMLTableCaptionElement p) => IsLabel t (DOMHTMLTableCaptionElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCaptionElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> T.Text -> m () -setDOMHTMLTableCaptionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLTableCaptionElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCaptionElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCaptionElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLTableCaptionElementAlign - attrSet _ = setDOMHTMLTableCaptionElementAlign - attrConstruct _ = constructDOMHTMLTableCaptionElementAlign - attrClear _ = undefined - -type instance AttributeList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementAttributeList -type DOMHTMLTableCaptionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCaptionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTableCaptionElementAlign :: AttrLabelProxy "align" -dOMHTMLTableCaptionElementAlign = AttrLabelProxy - -type instance SignalList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementSignalList -type DOMHTMLTableCaptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTableCaptionElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCaptionElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCaptionElementK a) => MethodInfo DOMHTMLTableCaptionElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCaptionElementGetAlign - --- method DOMHTMLTableCaptionElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCaptionElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCaptionElementK a) => MethodInfo DOMHTMLTableCaptionElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCaptionElementSetAlign - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLTableCaptionElementGetAlignMethodInfo -data DOMHTMLTableCaptionElementSetAlignMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs +++ /dev/null @@ -1,1797 +0,0 @@ - - -{- | -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 - DOMHTMLTableCellElementGetAbbrMethodInfo, - dOMHTMLTableCellElementGetAbbr , - - --- ** dOMHTMLTableCellElementGetAlign - DOMHTMLTableCellElementGetAlignMethodInfo, - dOMHTMLTableCellElementGetAlign , - - --- ** dOMHTMLTableCellElementGetAxis - DOMHTMLTableCellElementGetAxisMethodInfo, - dOMHTMLTableCellElementGetAxis , - - --- ** dOMHTMLTableCellElementGetBgColor - DOMHTMLTableCellElementGetBgColorMethodInfo, - dOMHTMLTableCellElementGetBgColor , - - --- ** dOMHTMLTableCellElementGetCellIndex - DOMHTMLTableCellElementGetCellIndexMethodInfo, - dOMHTMLTableCellElementGetCellIndex , - - --- ** dOMHTMLTableCellElementGetCh - DOMHTMLTableCellElementGetChMethodInfo , - dOMHTMLTableCellElementGetCh , - - --- ** dOMHTMLTableCellElementGetChOff - DOMHTMLTableCellElementGetChOffMethodInfo, - dOMHTMLTableCellElementGetChOff , - - --- ** dOMHTMLTableCellElementGetColSpan - DOMHTMLTableCellElementGetColSpanMethodInfo, - dOMHTMLTableCellElementGetColSpan , - - --- ** dOMHTMLTableCellElementGetHeaders - DOMHTMLTableCellElementGetHeadersMethodInfo, - dOMHTMLTableCellElementGetHeaders , - - --- ** dOMHTMLTableCellElementGetHeight - DOMHTMLTableCellElementGetHeightMethodInfo, - dOMHTMLTableCellElementGetHeight , - - --- ** dOMHTMLTableCellElementGetNoWrap - DOMHTMLTableCellElementGetNoWrapMethodInfo, - dOMHTMLTableCellElementGetNoWrap , - - --- ** dOMHTMLTableCellElementGetRowSpan - DOMHTMLTableCellElementGetRowSpanMethodInfo, - dOMHTMLTableCellElementGetRowSpan , - - --- ** dOMHTMLTableCellElementGetScope - DOMHTMLTableCellElementGetScopeMethodInfo, - dOMHTMLTableCellElementGetScope , - - --- ** dOMHTMLTableCellElementGetVAlign - DOMHTMLTableCellElementGetVAlignMethodInfo, - dOMHTMLTableCellElementGetVAlign , - - --- ** dOMHTMLTableCellElementGetWidth - DOMHTMLTableCellElementGetWidthMethodInfo, - dOMHTMLTableCellElementGetWidth , - - --- ** dOMHTMLTableCellElementSetAbbr - DOMHTMLTableCellElementSetAbbrMethodInfo, - dOMHTMLTableCellElementSetAbbr , - - --- ** dOMHTMLTableCellElementSetAlign - DOMHTMLTableCellElementSetAlignMethodInfo, - dOMHTMLTableCellElementSetAlign , - - --- ** dOMHTMLTableCellElementSetAxis - DOMHTMLTableCellElementSetAxisMethodInfo, - dOMHTMLTableCellElementSetAxis , - - --- ** dOMHTMLTableCellElementSetBgColor - DOMHTMLTableCellElementSetBgColorMethodInfo, - dOMHTMLTableCellElementSetBgColor , - - --- ** dOMHTMLTableCellElementSetCh - DOMHTMLTableCellElementSetChMethodInfo , - dOMHTMLTableCellElementSetCh , - - --- ** dOMHTMLTableCellElementSetChOff - DOMHTMLTableCellElementSetChOffMethodInfo, - dOMHTMLTableCellElementSetChOff , - - --- ** dOMHTMLTableCellElementSetColSpan - DOMHTMLTableCellElementSetColSpanMethodInfo, - dOMHTMLTableCellElementSetColSpan , - - --- ** dOMHTMLTableCellElementSetHeaders - DOMHTMLTableCellElementSetHeadersMethodInfo, - dOMHTMLTableCellElementSetHeaders , - - --- ** dOMHTMLTableCellElementSetHeight - DOMHTMLTableCellElementSetHeightMethodInfo, - dOMHTMLTableCellElementSetHeight , - - --- ** dOMHTMLTableCellElementSetNoWrap - DOMHTMLTableCellElementSetNoWrapMethodInfo, - dOMHTMLTableCellElementSetNoWrap , - - --- ** dOMHTMLTableCellElementSetRowSpan - DOMHTMLTableCellElementSetRowSpanMethodInfo, - dOMHTMLTableCellElementSetRowSpan , - - --- ** dOMHTMLTableCellElementSetScope - DOMHTMLTableCellElementSetScopeMethodInfo, - dOMHTMLTableCellElementSetScope , - - --- ** dOMHTMLTableCellElementSetVAlign - DOMHTMLTableCellElementSetVAlignMethodInfo, - dOMHTMLTableCellElementSetVAlign , - - --- ** dOMHTMLTableCellElementSetWidth - DOMHTMLTableCellElementSetWidthMethodInfo, - dOMHTMLTableCellElementSetWidth , - - - - - -- * Properties --- ** Abbr - DOMHTMLTableCellElementAbbrPropertyInfo , - constructDOMHTMLTableCellElementAbbr , - dOMHTMLTableCellElementAbbr , - getDOMHTMLTableCellElementAbbr , - setDOMHTMLTableCellElementAbbr , - - --- ** Align - DOMHTMLTableCellElementAlignPropertyInfo, - constructDOMHTMLTableCellElementAlign , - dOMHTMLTableCellElementAlign , - getDOMHTMLTableCellElementAlign , - setDOMHTMLTableCellElementAlign , - - --- ** Axis - DOMHTMLTableCellElementAxisPropertyInfo , - constructDOMHTMLTableCellElementAxis , - dOMHTMLTableCellElementAxis , - getDOMHTMLTableCellElementAxis , - setDOMHTMLTableCellElementAxis , - - --- ** BgColor - DOMHTMLTableCellElementBgColorPropertyInfo, - constructDOMHTMLTableCellElementBgColor , - dOMHTMLTableCellElementBgColor , - getDOMHTMLTableCellElementBgColor , - setDOMHTMLTableCellElementBgColor , - - --- ** CellIndex - DOMHTMLTableCellElementCellIndexPropertyInfo, - dOMHTMLTableCellElementCellIndex , - getDOMHTMLTableCellElementCellIndex , - - --- ** Ch - DOMHTMLTableCellElementChPropertyInfo , - constructDOMHTMLTableCellElementCh , - dOMHTMLTableCellElementCh , - getDOMHTMLTableCellElementCh , - setDOMHTMLTableCellElementCh , - - --- ** ChOff - DOMHTMLTableCellElementChOffPropertyInfo, - constructDOMHTMLTableCellElementChOff , - dOMHTMLTableCellElementChOff , - getDOMHTMLTableCellElementChOff , - setDOMHTMLTableCellElementChOff , - - --- ** ColSpan - DOMHTMLTableCellElementColSpanPropertyInfo, - constructDOMHTMLTableCellElementColSpan , - dOMHTMLTableCellElementColSpan , - getDOMHTMLTableCellElementColSpan , - setDOMHTMLTableCellElementColSpan , - - --- ** Headers - DOMHTMLTableCellElementHeadersPropertyInfo, - constructDOMHTMLTableCellElementHeaders , - dOMHTMLTableCellElementHeaders , - getDOMHTMLTableCellElementHeaders , - setDOMHTMLTableCellElementHeaders , - - --- ** Height - DOMHTMLTableCellElementHeightPropertyInfo, - constructDOMHTMLTableCellElementHeight , - dOMHTMLTableCellElementHeight , - getDOMHTMLTableCellElementHeight , - setDOMHTMLTableCellElementHeight , - - --- ** NoWrap - DOMHTMLTableCellElementNoWrapPropertyInfo, - constructDOMHTMLTableCellElementNoWrap , - dOMHTMLTableCellElementNoWrap , - getDOMHTMLTableCellElementNoWrap , - setDOMHTMLTableCellElementNoWrap , - - --- ** RowSpan - DOMHTMLTableCellElementRowSpanPropertyInfo, - constructDOMHTMLTableCellElementRowSpan , - dOMHTMLTableCellElementRowSpan , - getDOMHTMLTableCellElementRowSpan , - setDOMHTMLTableCellElementRowSpan , - - --- ** Scope - DOMHTMLTableCellElementScopePropertyInfo, - constructDOMHTMLTableCellElementScope , - dOMHTMLTableCellElementScope , - getDOMHTMLTableCellElementScope , - setDOMHTMLTableCellElementScope , - - --- ** VAlign - DOMHTMLTableCellElementVAlignPropertyInfo, - constructDOMHTMLTableCellElementVAlign , - dOMHTMLTableCellElementVAlign , - getDOMHTMLTableCellElementVAlign , - setDOMHTMLTableCellElementVAlign , - - --- ** Width - DOMHTMLTableCellElementWidthPropertyInfo, - constructDOMHTMLTableCellElementWidth , - dOMHTMLTableCellElementWidth , - getDOMHTMLTableCellElementWidth , - setDOMHTMLTableCellElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTableCellElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTableCellElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTableCellElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTableCellElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTableCellElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTableCellElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTableCellElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTableCellElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTableCellElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTableCellElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTableCellElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTableCellElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTableCellElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTableCellElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTableCellElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTableCellElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTableCellElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTableCellElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTableCellElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTableCellElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTableCellElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTableCellElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTableCellElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTableCellElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTableCellElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTableCellElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTableCellElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTableCellElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTableCellElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTableCellElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTableCellElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTableCellElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTableCellElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTableCellElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTableCellElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTableCellElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTableCellElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTableCellElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTableCellElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTableCellElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTableCellElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTableCellElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTableCellElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTableCellElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTableCellElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTableCellElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTableCellElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTableCellElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTableCellElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTableCellElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTableCellElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAbbr" o = DOMHTMLTableCellElementGetAbbrMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAlign" o = DOMHTMLTableCellElementGetAlignMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTableCellElementMethod "getAxis" o = DOMHTMLTableCellElementGetAxisMethodInfo - ResolveDOMHTMLTableCellElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTableCellElementMethod "getBgColor" o = DOMHTMLTableCellElementGetBgColorMethodInfo - ResolveDOMHTMLTableCellElementMethod "getCellIndex" o = DOMHTMLTableCellElementGetCellIndexMethodInfo - ResolveDOMHTMLTableCellElementMethod "getCh" o = DOMHTMLTableCellElementGetChMethodInfo - ResolveDOMHTMLTableCellElementMethod "getChOff" o = DOMHTMLTableCellElementGetChOffMethodInfo - ResolveDOMHTMLTableCellElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTableCellElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTableCellElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTableCellElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTableCellElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTableCellElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTableCellElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTableCellElementMethod "getColSpan" o = DOMHTMLTableCellElementGetColSpanMethodInfo - ResolveDOMHTMLTableCellElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTableCellElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTableCellElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTableCellElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTableCellElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableCellElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTableCellElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableCellElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTableCellElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableCellElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTableCellElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTableCellElementMethod "getHeaders" o = DOMHTMLTableCellElementGetHeadersMethodInfo - ResolveDOMHTMLTableCellElementMethod "getHeight" o = DOMHTMLTableCellElementGetHeightMethodInfo - ResolveDOMHTMLTableCellElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTableCellElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTableCellElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTableCellElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTableCellElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTableCellElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTableCellElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTableCellElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTableCellElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTableCellElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTableCellElementMethod "getNoWrap" o = DOMHTMLTableCellElementGetNoWrapMethodInfo - ResolveDOMHTMLTableCellElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTableCellElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTableCellElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTableCellElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTableCellElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTableCellElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTableCellElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTableCellElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTableCellElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTableCellElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTableCellElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTableCellElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTableCellElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTableCellElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTableCellElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTableCellElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTableCellElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTableCellElementMethod "getRowSpan" o = DOMHTMLTableCellElementGetRowSpanMethodInfo - ResolveDOMHTMLTableCellElementMethod "getScope" o = DOMHTMLTableCellElementGetScopeMethodInfo - ResolveDOMHTMLTableCellElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTableCellElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTableCellElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTableCellElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTableCellElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTableCellElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTableCellElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTableCellElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTableCellElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTableCellElementMethod "getVAlign" o = DOMHTMLTableCellElementGetVAlignMethodInfo - ResolveDOMHTMLTableCellElementMethod "getWidth" o = DOMHTMLTableCellElementGetWidthMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAbbr" o = DOMHTMLTableCellElementSetAbbrMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAlign" o = DOMHTMLTableCellElementSetAlignMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTableCellElementMethod "setAxis" o = DOMHTMLTableCellElementSetAxisMethodInfo - ResolveDOMHTMLTableCellElementMethod "setBgColor" o = DOMHTMLTableCellElementSetBgColorMethodInfo - ResolveDOMHTMLTableCellElementMethod "setCh" o = DOMHTMLTableCellElementSetChMethodInfo - ResolveDOMHTMLTableCellElementMethod "setChOff" o = DOMHTMLTableCellElementSetChOffMethodInfo - ResolveDOMHTMLTableCellElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTableCellElementMethod "setColSpan" o = DOMHTMLTableCellElementSetColSpanMethodInfo - ResolveDOMHTMLTableCellElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTableCellElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTableCellElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTableCellElementMethod "setHeaders" o = DOMHTMLTableCellElementSetHeadersMethodInfo - ResolveDOMHTMLTableCellElementMethod "setHeight" o = DOMHTMLTableCellElementSetHeightMethodInfo - ResolveDOMHTMLTableCellElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTableCellElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTableCellElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTableCellElementMethod "setNoWrap" o = DOMHTMLTableCellElementSetNoWrapMethodInfo - ResolveDOMHTMLTableCellElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTableCellElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTableCellElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTableCellElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTableCellElementMethod "setRowSpan" o = DOMHTMLTableCellElementSetRowSpanMethodInfo - ResolveDOMHTMLTableCellElementMethod "setScope" o = DOMHTMLTableCellElementSetScopeMethodInfo - ResolveDOMHTMLTableCellElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTableCellElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTableCellElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTableCellElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTableCellElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTableCellElementMethod "setVAlign" o = DOMHTMLTableCellElementSetVAlignMethodInfo - ResolveDOMHTMLTableCellElementMethod "setWidth" o = DOMHTMLTableCellElementSetWidthMethodInfo - ResolveDOMHTMLTableCellElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTableCellElementMethod t DOMHTMLTableCellElement, MethodInfo info DOMHTMLTableCellElement p) => IsLabelProxy t (DOMHTMLTableCellElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTableCellElementMethod t DOMHTMLTableCellElement, MethodInfo info DOMHTMLTableCellElement p) => IsLabel t (DOMHTMLTableCellElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "abbr" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementAbbr obj = liftIO $ getObjectPropertyString obj "abbr" - -setDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAbbr obj val = liftIO $ setObjectPropertyString obj "abbr" (Just val) - -constructDOMHTMLTableCellElementAbbr :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAbbr val = constructObjectPropertyString "abbr" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementAbbrPropertyInfo = "abbr" - attrGet _ = getDOMHTMLTableCellElementAbbr - attrSet _ = setDOMHTMLTableCellElementAbbr - attrConstruct _ = constructDOMHTMLTableCellElementAbbr - attrClear _ = undefined - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLTableCellElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLTableCellElementAlign - attrSet _ = setDOMHTMLTableCellElementAlign - attrConstruct _ = constructDOMHTMLTableCellElementAlign - attrClear _ = undefined - --- VVV Prop "axis" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementAxis obj = liftIO $ getObjectPropertyString obj "axis" - -setDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementAxis obj val = liftIO $ setObjectPropertyString obj "axis" (Just val) - -constructDOMHTMLTableCellElementAxis :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementAxis val = constructObjectPropertyString "axis" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementAxisPropertyInfo = "axis" - attrGet _ = getDOMHTMLTableCellElementAxis - attrSet _ = setDOMHTMLTableCellElementAxis - attrConstruct _ = constructDOMHTMLTableCellElementAxis - attrClear _ = undefined - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableCellElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementBgColor val = constructObjectPropertyString "bg-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementBgColorPropertyInfo = "bg-color" - attrGet _ = getDOMHTMLTableCellElementBgColor - attrSet _ = setDOMHTMLTableCellElementBgColor - attrConstruct _ = constructDOMHTMLTableCellElementBgColor - attrClear _ = undefined - --- VVV Prop "cell-index" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLTableCellElementCellIndex :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m CLong -getDOMHTMLTableCellElementCellIndex obj = liftIO $ getObjectPropertyLong obj "cell-index" - -data DOMHTMLTableCellElementCellIndexPropertyInfo -instance AttrInfo DOMHTMLTableCellElementCellIndexPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementCellIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementCellIndexPropertyInfo = CLong - type AttrLabel DOMHTMLTableCellElementCellIndexPropertyInfo = "cell-index" - attrGet _ = getDOMHTMLTableCellElementCellIndex - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) - -constructDOMHTMLTableCellElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementCh val = constructObjectPropertyString "ch" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementChPropertyInfo = "ch" - attrGet _ = getDOMHTMLTableCellElementCh - attrSet _ = setDOMHTMLTableCellElementCh - attrConstruct _ = constructDOMHTMLTableCellElementCh - attrClear _ = undefined - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableCellElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementChOff val = constructObjectPropertyString "ch-off" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementChOffPropertyInfo = "ch-off" - attrGet _ = getDOMHTMLTableCellElementChOff - attrSet _ = setDOMHTMLTableCellElementChOff - attrConstruct _ = constructDOMHTMLTableCellElementChOff - attrClear _ = undefined - --- VVV Prop "col-span" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m CLong -getDOMHTMLTableCellElementColSpan obj = liftIO $ getObjectPropertyLong obj "col-span" - -setDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> CLong -> m () -setDOMHTMLTableCellElementColSpan obj val = liftIO $ setObjectPropertyLong obj "col-span" val - -constructDOMHTMLTableCellElementColSpan :: CLong -> IO ([Char], GValue) -constructDOMHTMLTableCellElementColSpan val = constructObjectPropertyLong "col-span" val - -data DOMHTMLTableCellElementColSpanPropertyInfo -instance AttrInfo DOMHTMLTableCellElementColSpanPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementColSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementColSpanPropertyInfo = CLong - type AttrLabel DOMHTMLTableCellElementColSpanPropertyInfo = "col-span" - attrGet _ = getDOMHTMLTableCellElementColSpan - attrSet _ = setDOMHTMLTableCellElementColSpan - attrConstruct _ = constructDOMHTMLTableCellElementColSpan - attrClear _ = undefined - --- VVV Prop "headers" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementHeaders obj = liftIO $ getObjectPropertyString obj "headers" - -setDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementHeaders obj val = liftIO $ setObjectPropertyString obj "headers" (Just val) - -constructDOMHTMLTableCellElementHeaders :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementHeaders val = constructObjectPropertyString "headers" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementHeadersPropertyInfo = "headers" - attrGet _ = getDOMHTMLTableCellElementHeaders - attrSet _ = setDOMHTMLTableCellElementHeaders - attrConstruct _ = constructDOMHTMLTableCellElementHeaders - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementHeight obj = liftIO $ getObjectPropertyString obj "height" - -setDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementHeight obj val = liftIO $ setObjectPropertyString obj "height" (Just val) - -constructDOMHTMLTableCellElementHeight :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementHeight val = constructObjectPropertyString "height" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementHeightPropertyInfo = "height" - attrGet _ = getDOMHTMLTableCellElementHeight - attrSet _ = setDOMHTMLTableCellElementHeight - attrConstruct _ = constructDOMHTMLTableCellElementHeight - attrClear _ = undefined - --- VVV Prop "no-wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "no-wrap" - attrGet _ = getDOMHTMLTableCellElementNoWrap - attrSet _ = setDOMHTMLTableCellElementNoWrap - attrConstruct _ = constructDOMHTMLTableCellElementNoWrap - attrClear _ = undefined - --- VVV Prop "row-span" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m CLong -getDOMHTMLTableCellElementRowSpan obj = liftIO $ getObjectPropertyLong obj "row-span" - -setDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> CLong -> m () -setDOMHTMLTableCellElementRowSpan obj val = liftIO $ setObjectPropertyLong obj "row-span" val - -constructDOMHTMLTableCellElementRowSpan :: CLong -> IO ([Char], GValue) -constructDOMHTMLTableCellElementRowSpan val = constructObjectPropertyLong "row-span" val - -data DOMHTMLTableCellElementRowSpanPropertyInfo -instance AttrInfo DOMHTMLTableCellElementRowSpanPropertyInfo where - type AttrAllowedOps DOMHTMLTableCellElementRowSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = DOMHTMLTableCellElementK - type AttrGetType DOMHTMLTableCellElementRowSpanPropertyInfo = CLong - type AttrLabel DOMHTMLTableCellElementRowSpanPropertyInfo = "row-span" - attrGet _ = getDOMHTMLTableCellElementRowSpan - attrSet _ = setDOMHTMLTableCellElementRowSpan - attrConstruct _ = constructDOMHTMLTableCellElementRowSpan - attrClear _ = undefined - --- VVV Prop "scope" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementScope obj = liftIO $ getObjectPropertyString obj "scope" - -setDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementScope obj val = liftIO $ setObjectPropertyString obj "scope" (Just val) - -constructDOMHTMLTableCellElementScope :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementScope val = constructObjectPropertyString "scope" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementScopePropertyInfo = "scope" - attrGet _ = getDOMHTMLTableCellElementScope - attrSet _ = setDOMHTMLTableCellElementScope - attrConstruct _ = constructDOMHTMLTableCellElementScope - attrClear _ = undefined - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableCellElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementVAlign val = constructObjectPropertyString "v-align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementVAlignPropertyInfo = "v-align" - attrGet _ = getDOMHTMLTableCellElementVAlign - attrSet _ = setDOMHTMLTableCellElementVAlign - attrConstruct _ = constructDOMHTMLTableCellElementVAlign - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableCellElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () -setDOMHTMLTableCellElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLTableCellElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableCellElementWidth val = constructObjectPropertyString "width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableCellElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLTableCellElementWidth - attrSet _ = setDOMHTMLTableCellElementWidth - attrConstruct _ = constructDOMHTMLTableCellElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLTableCellElement = DOMHTMLTableCellElementAttributeList -type DOMHTMLTableCellElementAttributeList = ('[ '("abbr", DOMHTMLTableCellElementAbbrPropertyInfo), '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCellElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("axis", DOMHTMLTableCellElementAxisPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLTableCellElementBgColorPropertyInfo), '("cellIndex", DOMHTMLTableCellElementCellIndexPropertyInfo), '("ch", DOMHTMLTableCellElementChPropertyInfo), '("chOff", DOMHTMLTableCellElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("colSpan", DOMHTMLTableCellElementColSpanPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("headers", DOMHTMLTableCellElementHeadersPropertyInfo), '("height", DOMHTMLTableCellElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("noWrap", DOMHTMLTableCellElementNoWrapPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rowSpan", DOMHTMLTableCellElementRowSpanPropertyInfo), '("scope", DOMHTMLTableCellElementScopePropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("vAlign", DOMHTMLTableCellElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableCellElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTableCellElementAbbr :: AttrLabelProxy "abbr" -dOMHTMLTableCellElementAbbr = AttrLabelProxy - -dOMHTMLTableCellElementAlign :: AttrLabelProxy "align" -dOMHTMLTableCellElementAlign = AttrLabelProxy - -dOMHTMLTableCellElementAxis :: AttrLabelProxy "axis" -dOMHTMLTableCellElementAxis = AttrLabelProxy - -dOMHTMLTableCellElementBgColor :: AttrLabelProxy "bgColor" -dOMHTMLTableCellElementBgColor = AttrLabelProxy - -dOMHTMLTableCellElementCellIndex :: AttrLabelProxy "cellIndex" -dOMHTMLTableCellElementCellIndex = AttrLabelProxy - -dOMHTMLTableCellElementCh :: AttrLabelProxy "ch" -dOMHTMLTableCellElementCh = AttrLabelProxy - -dOMHTMLTableCellElementChOff :: AttrLabelProxy "chOff" -dOMHTMLTableCellElementChOff = AttrLabelProxy - -dOMHTMLTableCellElementColSpan :: AttrLabelProxy "colSpan" -dOMHTMLTableCellElementColSpan = AttrLabelProxy - -dOMHTMLTableCellElementHeaders :: AttrLabelProxy "headers" -dOMHTMLTableCellElementHeaders = AttrLabelProxy - -dOMHTMLTableCellElementHeight :: AttrLabelProxy "height" -dOMHTMLTableCellElementHeight = AttrLabelProxy - -dOMHTMLTableCellElementNoWrap :: AttrLabelProxy "noWrap" -dOMHTMLTableCellElementNoWrap = AttrLabelProxy - -dOMHTMLTableCellElementRowSpan :: AttrLabelProxy "rowSpan" -dOMHTMLTableCellElementRowSpan = AttrLabelProxy - -dOMHTMLTableCellElementScope :: AttrLabelProxy "scope" -dOMHTMLTableCellElementScope = AttrLabelProxy - -dOMHTMLTableCellElementVAlign :: AttrLabelProxy "vAlign" -dOMHTMLTableCellElementVAlign = AttrLabelProxy - -dOMHTMLTableCellElementWidth :: AttrLabelProxy "width" -dOMHTMLTableCellElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLTableCellElement = DOMHTMLTableCellElementSignalList -type DOMHTMLTableCellElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTableCellElement::get_abbr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetAbbrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetAbbrMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetAbbr - --- method DOMHTMLTableCellElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetAlign - --- method DOMHTMLTableCellElement::get_axis --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetAxisMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetAxisMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetAxis - --- method DOMHTMLTableCellElement::get_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetBgColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetBgColor - --- method DOMHTMLTableCellElement::get_cell_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTableCellElementGetCellIndex :: - (MonadIO m, DOMHTMLTableCellElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTableCellElementGetCellIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_table_cell_element_get_cell_index _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTableCellElementGetCellIndexMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetCellIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetCellIndex - --- method DOMHTMLTableCellElement::get_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetChMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetCh - --- method DOMHTMLTableCellElement::get_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetChOffMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetChOff - --- method DOMHTMLTableCellElement::get_col_span --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTableCellElementGetColSpan :: - (MonadIO m, DOMHTMLTableCellElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTableCellElementGetColSpan _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_table_cell_element_get_col_span _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTableCellElementGetColSpanMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetColSpanMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetColSpan - --- method DOMHTMLTableCellElement::get_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetHeadersMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetHeadersMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetHeaders - --- method DOMHTMLTableCellElement::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetHeightMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetHeight - --- method DOMHTMLTableCellElement::get_no_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetNoWrapMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetNoWrapMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetNoWrap - --- method DOMHTMLTableCellElement::get_row_span --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTableCellElementGetRowSpan :: - (MonadIO m, DOMHTMLTableCellElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTableCellElementGetRowSpan _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_table_cell_element_get_row_span _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTableCellElementGetRowSpanMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetRowSpanMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetRowSpan - --- method DOMHTMLTableCellElement::get_scope --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetScopeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetScopeMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetScope - --- method DOMHTMLTableCellElement::get_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetVAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetVAlign - --- method DOMHTMLTableCellElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableCellElementGetWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementGetWidth - --- method DOMHTMLTableCellElement::set_abbr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetAbbrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetAbbrMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetAbbr - --- method DOMHTMLTableCellElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetAlign - --- method DOMHTMLTableCellElement::set_axis --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetAxisMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetAxisMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetAxis - --- method DOMHTMLTableCellElement::set_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetBgColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetBgColor - --- method DOMHTMLTableCellElement::set_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetChMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetCh - --- method DOMHTMLTableCellElement::set_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetChOffMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetChOff - --- method DOMHTMLTableCellElement::set_col_span --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLTableCellElementSetColSpan :: - (MonadIO m, DOMHTMLTableCellElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLTableCellElementSetColSpan _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_table_cell_element_set_col_span _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLTableCellElementSetColSpanMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetColSpanMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetColSpan - --- method DOMHTMLTableCellElement::set_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetHeadersMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetHeadersMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetHeaders - --- method DOMHTMLTableCellElement::set_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetHeightMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetHeightMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetHeight - --- method DOMHTMLTableCellElement::set_no_wrap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetNoWrapMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetNoWrapMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetNoWrap - --- method DOMHTMLTableCellElement::set_row_span --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLTableCellElementSetRowSpan :: - (MonadIO m, DOMHTMLTableCellElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLTableCellElementSetRowSpan _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_table_cell_element_set_row_span _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLTableCellElementSetRowSpanMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetRowSpanMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetRowSpan - --- method DOMHTMLTableCellElement::set_scope --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetScopeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetScopeMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetScope - --- method DOMHTMLTableCellElement::set_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetVAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetVAlign - --- method DOMHTMLTableCellElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableCellElementSetWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableCellElementK a) => MethodInfo DOMHTMLTableCellElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableCellElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot +++ /dev/null @@ -1,57 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLTableCellElementGetAbbrMethodInfo -data DOMHTMLTableCellElementGetAlignMethodInfo -data DOMHTMLTableCellElementGetAxisMethodInfo -data DOMHTMLTableCellElementGetBgColorMethodInfo -data DOMHTMLTableCellElementGetCellIndexMethodInfo -data DOMHTMLTableCellElementGetChMethodInfo -data DOMHTMLTableCellElementGetChOffMethodInfo -data DOMHTMLTableCellElementGetColSpanMethodInfo -data DOMHTMLTableCellElementGetHeadersMethodInfo -data DOMHTMLTableCellElementGetHeightMethodInfo -data DOMHTMLTableCellElementGetNoWrapMethodInfo -data DOMHTMLTableCellElementGetRowSpanMethodInfo -data DOMHTMLTableCellElementGetScopeMethodInfo -data DOMHTMLTableCellElementGetVAlignMethodInfo -data DOMHTMLTableCellElementGetWidthMethodInfo -data DOMHTMLTableCellElementSetAbbrMethodInfo -data DOMHTMLTableCellElementSetAlignMethodInfo -data DOMHTMLTableCellElementSetAxisMethodInfo -data DOMHTMLTableCellElementSetBgColorMethodInfo -data DOMHTMLTableCellElementSetChMethodInfo -data DOMHTMLTableCellElementSetChOffMethodInfo -data DOMHTMLTableCellElementSetColSpanMethodInfo -data DOMHTMLTableCellElementSetHeadersMethodInfo -data DOMHTMLTableCellElementSetHeightMethodInfo -data DOMHTMLTableCellElementSetNoWrapMethodInfo -data DOMHTMLTableCellElementSetRowSpanMethodInfo -data DOMHTMLTableCellElementSetScopeMethodInfo -data DOMHTMLTableCellElementSetVAlignMethodInfo -data DOMHTMLTableCellElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs +++ /dev/null @@ -1,863 +0,0 @@ - - -{- | -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 - DOMHTMLTableColElementGetAlignMethodInfo, - dOMHTMLTableColElementGetAlign , - - --- ** dOMHTMLTableColElementGetCh - DOMHTMLTableColElementGetChMethodInfo , - dOMHTMLTableColElementGetCh , - - --- ** dOMHTMLTableColElementGetChOff - DOMHTMLTableColElementGetChOffMethodInfo, - dOMHTMLTableColElementGetChOff , - - --- ** dOMHTMLTableColElementGetSpan - DOMHTMLTableColElementGetSpanMethodInfo , - dOMHTMLTableColElementGetSpan , - - --- ** dOMHTMLTableColElementGetVAlign - DOMHTMLTableColElementGetVAlignMethodInfo, - dOMHTMLTableColElementGetVAlign , - - --- ** dOMHTMLTableColElementGetWidth - DOMHTMLTableColElementGetWidthMethodInfo, - dOMHTMLTableColElementGetWidth , - - --- ** dOMHTMLTableColElementSetAlign - DOMHTMLTableColElementSetAlignMethodInfo, - dOMHTMLTableColElementSetAlign , - - --- ** dOMHTMLTableColElementSetCh - DOMHTMLTableColElementSetChMethodInfo , - dOMHTMLTableColElementSetCh , - - --- ** dOMHTMLTableColElementSetChOff - DOMHTMLTableColElementSetChOffMethodInfo, - dOMHTMLTableColElementSetChOff , - - --- ** dOMHTMLTableColElementSetSpan - DOMHTMLTableColElementSetSpanMethodInfo , - dOMHTMLTableColElementSetSpan , - - --- ** dOMHTMLTableColElementSetVAlign - DOMHTMLTableColElementSetVAlignMethodInfo, - dOMHTMLTableColElementSetVAlign , - - --- ** dOMHTMLTableColElementSetWidth - DOMHTMLTableColElementSetWidthMethodInfo, - dOMHTMLTableColElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLTableColElementAlignPropertyInfo , - constructDOMHTMLTableColElementAlign , - dOMHTMLTableColElementAlign , - getDOMHTMLTableColElementAlign , - setDOMHTMLTableColElementAlign , - - --- ** Ch - DOMHTMLTableColElementChPropertyInfo , - constructDOMHTMLTableColElementCh , - dOMHTMLTableColElementCh , - getDOMHTMLTableColElementCh , - setDOMHTMLTableColElementCh , - - --- ** ChOff - DOMHTMLTableColElementChOffPropertyInfo , - constructDOMHTMLTableColElementChOff , - dOMHTMLTableColElementChOff , - getDOMHTMLTableColElementChOff , - setDOMHTMLTableColElementChOff , - - --- ** Span - DOMHTMLTableColElementSpanPropertyInfo , - constructDOMHTMLTableColElementSpan , - dOMHTMLTableColElementSpan , - getDOMHTMLTableColElementSpan , - setDOMHTMLTableColElementSpan , - - --- ** VAlign - DOMHTMLTableColElementVAlignPropertyInfo, - constructDOMHTMLTableColElementVAlign , - dOMHTMLTableColElementVAlign , - getDOMHTMLTableColElementVAlign , - setDOMHTMLTableColElementVAlign , - - --- ** Width - DOMHTMLTableColElementWidthPropertyInfo , - constructDOMHTMLTableColElementWidth , - dOMHTMLTableColElementWidth , - getDOMHTMLTableColElementWidth , - setDOMHTMLTableColElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTableColElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTableColElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTableColElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTableColElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTableColElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTableColElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTableColElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTableColElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTableColElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTableColElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTableColElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTableColElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTableColElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTableColElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTableColElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTableColElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTableColElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTableColElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTableColElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTableColElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTableColElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTableColElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTableColElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTableColElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTableColElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTableColElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTableColElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTableColElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTableColElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTableColElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTableColElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTableColElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTableColElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTableColElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTableColElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTableColElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTableColElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTableColElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTableColElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTableColElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTableColElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTableColElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTableColElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTableColElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTableColElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTableColElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTableColElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTableColElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTableColElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTableColElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTableColElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTableColElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTableColElementMethod "getAlign" o = DOMHTMLTableColElementGetAlignMethodInfo - ResolveDOMHTMLTableColElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTableColElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTableColElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableColElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTableColElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTableColElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTableColElementMethod "getCh" o = DOMHTMLTableColElementGetChMethodInfo - ResolveDOMHTMLTableColElementMethod "getChOff" o = DOMHTMLTableColElementGetChOffMethodInfo - ResolveDOMHTMLTableColElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTableColElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTableColElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTableColElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTableColElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTableColElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTableColElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTableColElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTableColElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTableColElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTableColElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTableColElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableColElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTableColElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableColElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTableColElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableColElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTableColElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTableColElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTableColElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTableColElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTableColElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTableColElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTableColElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTableColElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTableColElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTableColElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTableColElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTableColElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTableColElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTableColElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTableColElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTableColElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTableColElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTableColElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTableColElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTableColElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTableColElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTableColElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTableColElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTableColElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTableColElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTableColElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTableColElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTableColElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTableColElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTableColElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTableColElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTableColElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTableColElementMethod "getSpan" o = DOMHTMLTableColElementGetSpanMethodInfo - ResolveDOMHTMLTableColElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTableColElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTableColElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTableColElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTableColElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTableColElementMethod "getVAlign" o = DOMHTMLTableColElementGetVAlignMethodInfo - ResolveDOMHTMLTableColElementMethod "getWidth" o = DOMHTMLTableColElementGetWidthMethodInfo - ResolveDOMHTMLTableColElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTableColElementMethod "setAlign" o = DOMHTMLTableColElementSetAlignMethodInfo - ResolveDOMHTMLTableColElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTableColElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTableColElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableColElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTableColElementMethod "setCh" o = DOMHTMLTableColElementSetChMethodInfo - ResolveDOMHTMLTableColElementMethod "setChOff" o = DOMHTMLTableColElementSetChOffMethodInfo - ResolveDOMHTMLTableColElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTableColElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTableColElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTableColElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTableColElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTableColElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTableColElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTableColElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTableColElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTableColElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTableColElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTableColElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTableColElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTableColElementMethod "setSpan" o = DOMHTMLTableColElementSetSpanMethodInfo - ResolveDOMHTMLTableColElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTableColElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTableColElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTableColElementMethod "setVAlign" o = DOMHTMLTableColElementSetVAlignMethodInfo - ResolveDOMHTMLTableColElementMethod "setWidth" o = DOMHTMLTableColElementSetWidthMethodInfo - ResolveDOMHTMLTableColElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTableColElementMethod t DOMHTMLTableColElement, MethodInfo info DOMHTMLTableColElement p) => IsLabelProxy t (DOMHTMLTableColElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTableColElementMethod t DOMHTMLTableColElement, MethodInfo info DOMHTMLTableColElement p) => IsLabel t (DOMHTMLTableColElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableColElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLTableColElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableColElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLTableColElementAlign - attrSet _ = setDOMHTMLTableColElementAlign - attrConstruct _ = constructDOMHTMLTableColElementAlign - attrClear _ = undefined - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableColElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) - -constructDOMHTMLTableColElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementCh val = constructObjectPropertyString "ch" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableColElementChPropertyInfo = "ch" - attrGet _ = getDOMHTMLTableColElementCh - attrSet _ = setDOMHTMLTableColElementCh - attrConstruct _ = constructDOMHTMLTableColElementCh - attrClear _ = undefined - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableColElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementChOff val = constructObjectPropertyString "ch-off" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableColElementChOffPropertyInfo = "ch-off" - attrGet _ = getDOMHTMLTableColElementChOff - attrSet _ = setDOMHTMLTableColElementChOff - attrConstruct _ = constructDOMHTMLTableColElementChOff - attrClear _ = undefined - --- VVV Prop "span" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m CLong -getDOMHTMLTableColElementSpan obj = liftIO $ getObjectPropertyLong obj "span" - -setDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> CLong -> m () -setDOMHTMLTableColElementSpan obj val = liftIO $ setObjectPropertyLong obj "span" val - -constructDOMHTMLTableColElementSpan :: CLong -> IO ([Char], GValue) -constructDOMHTMLTableColElementSpan val = constructObjectPropertyLong "span" val - -data DOMHTMLTableColElementSpanPropertyInfo -instance AttrInfo DOMHTMLTableColElementSpanPropertyInfo where - type AttrAllowedOps DOMHTMLTableColElementSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = DOMHTMLTableColElementK - type AttrGetType DOMHTMLTableColElementSpanPropertyInfo = CLong - type AttrLabel DOMHTMLTableColElementSpanPropertyInfo = "span" - attrGet _ = getDOMHTMLTableColElementSpan - attrSet _ = setDOMHTMLTableColElementSpan - attrConstruct _ = constructDOMHTMLTableColElementSpan - attrClear _ = undefined - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableColElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementVAlign val = constructObjectPropertyString "v-align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableColElementVAlignPropertyInfo = "v-align" - attrGet _ = getDOMHTMLTableColElementVAlign - attrSet _ = setDOMHTMLTableColElementVAlign - attrConstruct _ = constructDOMHTMLTableColElementVAlign - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableColElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () -setDOMHTMLTableColElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLTableColElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableColElementWidth val = constructObjectPropertyString "width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableColElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLTableColElementWidth - attrSet _ = setDOMHTMLTableColElementWidth - attrConstruct _ = constructDOMHTMLTableColElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLTableColElement = DOMHTMLTableColElementAttributeList -type DOMHTMLTableColElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableColElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableColElementChPropertyInfo), '("chOff", DOMHTMLTableColElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("span", DOMHTMLTableColElementSpanPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("vAlign", DOMHTMLTableColElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableColElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTableColElementAlign :: AttrLabelProxy "align" -dOMHTMLTableColElementAlign = AttrLabelProxy - -dOMHTMLTableColElementCh :: AttrLabelProxy "ch" -dOMHTMLTableColElementCh = AttrLabelProxy - -dOMHTMLTableColElementChOff :: AttrLabelProxy "chOff" -dOMHTMLTableColElementChOff = AttrLabelProxy - -dOMHTMLTableColElementSpan :: AttrLabelProxy "span" -dOMHTMLTableColElementSpan = AttrLabelProxy - -dOMHTMLTableColElementVAlign :: AttrLabelProxy "vAlign" -dOMHTMLTableColElementVAlign = AttrLabelProxy - -dOMHTMLTableColElementWidth :: AttrLabelProxy "width" -dOMHTMLTableColElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLTableColElement = DOMHTMLTableColElementSignalList -type DOMHTMLTableColElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTableColElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableColElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementGetAlign - --- method DOMHTMLTableColElement::get_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableColElementGetChMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementGetCh - --- method DOMHTMLTableColElement::get_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableColElementGetChOffMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementGetChOff - --- method DOMHTMLTableColElement::get_span --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTableColElementGetSpan :: - (MonadIO m, DOMHTMLTableColElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTableColElementGetSpan _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_table_col_element_get_span _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTableColElementGetSpanMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetSpanMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementGetSpan - --- method DOMHTMLTableColElement::get_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableColElementGetVAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementGetVAlign - --- method DOMHTMLTableColElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableColElementGetWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementGetWidth - --- method DOMHTMLTableColElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableColElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementSetAlign - --- method DOMHTMLTableColElement::set_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableColElementSetChMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementSetCh - --- method DOMHTMLTableColElement::set_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableColElementSetChOffMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementSetChOff - --- method DOMHTMLTableColElement::set_span --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLTableColElementSetSpan :: - (MonadIO m, DOMHTMLTableColElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLTableColElementSetSpan _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_table_col_element_set_span _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLTableColElementSetSpanMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetSpanMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementSetSpan - --- method DOMHTMLTableColElement::set_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableColElementSetVAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementSetVAlign - --- method DOMHTMLTableColElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableColElementSetWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableColElementK a) => MethodInfo DOMHTMLTableColElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableColElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLTableColElementGetAlignMethodInfo -data DOMHTMLTableColElementGetChMethodInfo -data DOMHTMLTableColElementGetChOffMethodInfo -data DOMHTMLTableColElementGetSpanMethodInfo -data DOMHTMLTableColElementGetVAlignMethodInfo -data DOMHTMLTableColElementGetWidthMethodInfo -data DOMHTMLTableColElementSetAlignMethodInfo -data DOMHTMLTableColElementSetChMethodInfo -data DOMHTMLTableColElementSetChOffMethodInfo -data DOMHTMLTableColElementSetSpanMethodInfo -data DOMHTMLTableColElementSetVAlignMethodInfo -data DOMHTMLTableColElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs +++ /dev/null @@ -1,1861 +0,0 @@ - - -{- | -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 - DOMHTMLTableElementCreateCaptionMethodInfo, - dOMHTMLTableElementCreateCaption , - - --- ** dOMHTMLTableElementCreateTFoot - DOMHTMLTableElementCreateTFootMethodInfo, - dOMHTMLTableElementCreateTFoot , - - --- ** dOMHTMLTableElementCreateTHead - DOMHTMLTableElementCreateTHeadMethodInfo, - dOMHTMLTableElementCreateTHead , - - --- ** dOMHTMLTableElementDeleteCaption - DOMHTMLTableElementDeleteCaptionMethodInfo, - dOMHTMLTableElementDeleteCaption , - - --- ** dOMHTMLTableElementDeleteRow - DOMHTMLTableElementDeleteRowMethodInfo , - dOMHTMLTableElementDeleteRow , - - --- ** dOMHTMLTableElementDeleteTFoot - DOMHTMLTableElementDeleteTFootMethodInfo, - dOMHTMLTableElementDeleteTFoot , - - --- ** dOMHTMLTableElementDeleteTHead - DOMHTMLTableElementDeleteTHeadMethodInfo, - dOMHTMLTableElementDeleteTHead , - - --- ** dOMHTMLTableElementGetAlign - DOMHTMLTableElementGetAlignMethodInfo , - dOMHTMLTableElementGetAlign , - - --- ** dOMHTMLTableElementGetBgColor - DOMHTMLTableElementGetBgColorMethodInfo , - dOMHTMLTableElementGetBgColor , - - --- ** dOMHTMLTableElementGetBorder - DOMHTMLTableElementGetBorderMethodInfo , - dOMHTMLTableElementGetBorder , - - --- ** dOMHTMLTableElementGetCaption - DOMHTMLTableElementGetCaptionMethodInfo , - dOMHTMLTableElementGetCaption , - - --- ** dOMHTMLTableElementGetCellPadding - DOMHTMLTableElementGetCellPaddingMethodInfo, - dOMHTMLTableElementGetCellPadding , - - --- ** dOMHTMLTableElementGetCellSpacing - DOMHTMLTableElementGetCellSpacingMethodInfo, - dOMHTMLTableElementGetCellSpacing , - - --- ** dOMHTMLTableElementGetRows - DOMHTMLTableElementGetRowsMethodInfo , - dOMHTMLTableElementGetRows , - - --- ** dOMHTMLTableElementGetRules - DOMHTMLTableElementGetRulesMethodInfo , - dOMHTMLTableElementGetRules , - - --- ** dOMHTMLTableElementGetSummary - DOMHTMLTableElementGetSummaryMethodInfo , - dOMHTMLTableElementGetSummary , - - --- ** dOMHTMLTableElementGetTBodies - DOMHTMLTableElementGetTBodiesMethodInfo , - dOMHTMLTableElementGetTBodies , - - --- ** dOMHTMLTableElementGetTFoot - DOMHTMLTableElementGetTFootMethodInfo , - dOMHTMLTableElementGetTFoot , - - --- ** dOMHTMLTableElementGetTHead - DOMHTMLTableElementGetTHeadMethodInfo , - dOMHTMLTableElementGetTHead , - - --- ** dOMHTMLTableElementGetWidth - DOMHTMLTableElementGetWidthMethodInfo , - dOMHTMLTableElementGetWidth , - - --- ** dOMHTMLTableElementInsertRow - DOMHTMLTableElementInsertRowMethodInfo , - dOMHTMLTableElementInsertRow , - - --- ** dOMHTMLTableElementSetAlign - DOMHTMLTableElementSetAlignMethodInfo , - dOMHTMLTableElementSetAlign , - - --- ** dOMHTMLTableElementSetBgColor - DOMHTMLTableElementSetBgColorMethodInfo , - dOMHTMLTableElementSetBgColor , - - --- ** dOMHTMLTableElementSetBorder - DOMHTMLTableElementSetBorderMethodInfo , - dOMHTMLTableElementSetBorder , - - --- ** dOMHTMLTableElementSetCaption - DOMHTMLTableElementSetCaptionMethodInfo , - dOMHTMLTableElementSetCaption , - - --- ** dOMHTMLTableElementSetCellPadding - DOMHTMLTableElementSetCellPaddingMethodInfo, - dOMHTMLTableElementSetCellPadding , - - --- ** dOMHTMLTableElementSetCellSpacing - DOMHTMLTableElementSetCellSpacingMethodInfo, - dOMHTMLTableElementSetCellSpacing , - - --- ** dOMHTMLTableElementSetRules - DOMHTMLTableElementSetRulesMethodInfo , - dOMHTMLTableElementSetRules , - - --- ** dOMHTMLTableElementSetSummary - DOMHTMLTableElementSetSummaryMethodInfo , - dOMHTMLTableElementSetSummary , - - --- ** dOMHTMLTableElementSetTFoot - DOMHTMLTableElementSetTFootMethodInfo , - dOMHTMLTableElementSetTFoot , - - --- ** dOMHTMLTableElementSetTHead - DOMHTMLTableElementSetTHeadMethodInfo , - dOMHTMLTableElementSetTHead , - - --- ** dOMHTMLTableElementSetWidth - DOMHTMLTableElementSetWidthMethodInfo , - dOMHTMLTableElementSetWidth , - - - - - -- * Properties --- ** Align - DOMHTMLTableElementAlignPropertyInfo , - constructDOMHTMLTableElementAlign , - dOMHTMLTableElementAlign , - getDOMHTMLTableElementAlign , - setDOMHTMLTableElementAlign , - - --- ** BgColor - DOMHTMLTableElementBgColorPropertyInfo , - constructDOMHTMLTableElementBgColor , - dOMHTMLTableElementBgColor , - getDOMHTMLTableElementBgColor , - setDOMHTMLTableElementBgColor , - - --- ** Border - DOMHTMLTableElementBorderPropertyInfo , - constructDOMHTMLTableElementBorder , - dOMHTMLTableElementBorder , - getDOMHTMLTableElementBorder , - setDOMHTMLTableElementBorder , - - --- ** Caption - DOMHTMLTableElementCaptionPropertyInfo , - dOMHTMLTableElementCaption , - getDOMHTMLTableElementCaption , - - --- ** CellPadding - DOMHTMLTableElementCellPaddingPropertyInfo, - constructDOMHTMLTableElementCellPadding , - dOMHTMLTableElementCellPadding , - getDOMHTMLTableElementCellPadding , - setDOMHTMLTableElementCellPadding , - - --- ** CellSpacing - DOMHTMLTableElementCellSpacingPropertyInfo, - constructDOMHTMLTableElementCellSpacing , - dOMHTMLTableElementCellSpacing , - getDOMHTMLTableElementCellSpacing , - setDOMHTMLTableElementCellSpacing , - - --- ** Frame - DOMHTMLTableElementFramePropertyInfo , - clearDOMHTMLTableElementFrame , - constructDOMHTMLTableElementFrame , - dOMHTMLTableElementFrame , - getDOMHTMLTableElementFrame , - setDOMHTMLTableElementFrame , - - --- ** Rows - DOMHTMLTableElementRowsPropertyInfo , - dOMHTMLTableElementRows , - getDOMHTMLTableElementRows , - - --- ** Rules - DOMHTMLTableElementRulesPropertyInfo , - constructDOMHTMLTableElementRules , - dOMHTMLTableElementRules , - getDOMHTMLTableElementRules , - setDOMHTMLTableElementRules , - - --- ** Summary - DOMHTMLTableElementSummaryPropertyInfo , - constructDOMHTMLTableElementSummary , - dOMHTMLTableElementSummary , - getDOMHTMLTableElementSummary , - setDOMHTMLTableElementSummary , - - --- ** TBodies - DOMHTMLTableElementTBodiesPropertyInfo , - dOMHTMLTableElementTBodies , - getDOMHTMLTableElementTBodies , - - --- ** TFoot - DOMHTMLTableElementTFootPropertyInfo , - dOMHTMLTableElementTFoot , - getDOMHTMLTableElementTFoot , - - --- ** THead - DOMHTMLTableElementTHeadPropertyInfo , - dOMHTMLTableElementTHead , - getDOMHTMLTableElementTHead , - - --- ** Width - DOMHTMLTableElementWidthPropertyInfo , - constructDOMHTMLTableElementWidth , - dOMHTMLTableElementWidth , - getDOMHTMLTableElementWidth , - setDOMHTMLTableElementWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTableElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTableElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTableElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTableElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTableElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTableElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTableElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTableElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTableElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTableElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTableElementMethod "createCaption" o = DOMHTMLTableElementCreateCaptionMethodInfo - ResolveDOMHTMLTableElementMethod "createTFoot" o = DOMHTMLTableElementCreateTFootMethodInfo - ResolveDOMHTMLTableElementMethod "createTHead" o = DOMHTMLTableElementCreateTHeadMethodInfo - ResolveDOMHTMLTableElementMethod "deleteCaption" o = DOMHTMLTableElementDeleteCaptionMethodInfo - ResolveDOMHTMLTableElementMethod "deleteRow" o = DOMHTMLTableElementDeleteRowMethodInfo - ResolveDOMHTMLTableElementMethod "deleteTFoot" o = DOMHTMLTableElementDeleteTFootMethodInfo - ResolveDOMHTMLTableElementMethod "deleteTHead" o = DOMHTMLTableElementDeleteTHeadMethodInfo - ResolveDOMHTMLTableElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTableElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTableElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTableElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTableElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTableElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTableElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTableElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTableElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTableElementMethod "insertRow" o = DOMHTMLTableElementInsertRowMethodInfo - ResolveDOMHTMLTableElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTableElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTableElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTableElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTableElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTableElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTableElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTableElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTableElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTableElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTableElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTableElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTableElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTableElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTableElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTableElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTableElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTableElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTableElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTableElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTableElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTableElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTableElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTableElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTableElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTableElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTableElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTableElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTableElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTableElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTableElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTableElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTableElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTableElementMethod "getAlign" o = DOMHTMLTableElementGetAlignMethodInfo - ResolveDOMHTMLTableElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTableElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTableElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTableElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTableElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTableElementMethod "getBgColor" o = DOMHTMLTableElementGetBgColorMethodInfo - ResolveDOMHTMLTableElementMethod "getBorder" o = DOMHTMLTableElementGetBorderMethodInfo - ResolveDOMHTMLTableElementMethod "getCaption" o = DOMHTMLTableElementGetCaptionMethodInfo - ResolveDOMHTMLTableElementMethod "getCellPadding" o = DOMHTMLTableElementGetCellPaddingMethodInfo - ResolveDOMHTMLTableElementMethod "getCellSpacing" o = DOMHTMLTableElementGetCellSpacingMethodInfo - ResolveDOMHTMLTableElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTableElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTableElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTableElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTableElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTableElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTableElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTableElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTableElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTableElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTableElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTableElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTableElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTableElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTableElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTableElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTableElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTableElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTableElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTableElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTableElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTableElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTableElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTableElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTableElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTableElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTableElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTableElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTableElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTableElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTableElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTableElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTableElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTableElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTableElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTableElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTableElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTableElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTableElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTableElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTableElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTableElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTableElementMethod "getRows" o = DOMHTMLTableElementGetRowsMethodInfo - ResolveDOMHTMLTableElementMethod "getRules" o = DOMHTMLTableElementGetRulesMethodInfo - ResolveDOMHTMLTableElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTableElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTableElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTableElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTableElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTableElementMethod "getSummary" o = DOMHTMLTableElementGetSummaryMethodInfo - ResolveDOMHTMLTableElementMethod "getTBodies" o = DOMHTMLTableElementGetTBodiesMethodInfo - ResolveDOMHTMLTableElementMethod "getTFoot" o = DOMHTMLTableElementGetTFootMethodInfo - ResolveDOMHTMLTableElementMethod "getTHead" o = DOMHTMLTableElementGetTHeadMethodInfo - ResolveDOMHTMLTableElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTableElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTableElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTableElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTableElementMethod "getWidth" o = DOMHTMLTableElementGetWidthMethodInfo - ResolveDOMHTMLTableElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTableElementMethod "setAlign" o = DOMHTMLTableElementSetAlignMethodInfo - ResolveDOMHTMLTableElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTableElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTableElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTableElementMethod "setBgColor" o = DOMHTMLTableElementSetBgColorMethodInfo - ResolveDOMHTMLTableElementMethod "setBorder" o = DOMHTMLTableElementSetBorderMethodInfo - ResolveDOMHTMLTableElementMethod "setCaption" o = DOMHTMLTableElementSetCaptionMethodInfo - ResolveDOMHTMLTableElementMethod "setCellPadding" o = DOMHTMLTableElementSetCellPaddingMethodInfo - ResolveDOMHTMLTableElementMethod "setCellSpacing" o = DOMHTMLTableElementSetCellSpacingMethodInfo - ResolveDOMHTMLTableElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTableElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTableElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTableElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTableElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTableElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTableElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTableElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTableElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTableElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTableElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTableElementMethod "setRules" o = DOMHTMLTableElementSetRulesMethodInfo - ResolveDOMHTMLTableElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTableElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTableElementMethod "setSummary" o = DOMHTMLTableElementSetSummaryMethodInfo - ResolveDOMHTMLTableElementMethod "setTFoot" o = DOMHTMLTableElementSetTFootMethodInfo - ResolveDOMHTMLTableElementMethod "setTHead" o = DOMHTMLTableElementSetTHeadMethodInfo - ResolveDOMHTMLTableElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTableElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTableElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTableElementMethod "setWidth" o = DOMHTMLTableElementSetWidthMethodInfo - ResolveDOMHTMLTableElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTableElementMethod t DOMHTMLTableElement, MethodInfo info DOMHTMLTableElement p) => IsLabelProxy t (DOMHTMLTableElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTableElementMethod t DOMHTMLTableElement, MethodInfo info DOMHTMLTableElement p) => IsLabel t (DOMHTMLTableElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLTableElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLTableElementAlign - attrSet _ = setDOMHTMLTableElementAlign - attrConstruct _ = constructDOMHTMLTableElementAlign - attrClear _ = undefined - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementBgColor val = constructObjectPropertyString "bg-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementBgColorPropertyInfo = "bg-color" - attrGet _ = getDOMHTMLTableElementBgColor - attrSet _ = setDOMHTMLTableElementBgColor - attrConstruct _ = constructDOMHTMLTableElementBgColor - attrClear _ = undefined - --- VVV Prop "border" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableElementBorder obj = liftIO $ getObjectPropertyString obj "border" - -setDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementBorder obj val = liftIO $ setObjectPropertyString obj "border" (Just val) - -constructDOMHTMLTableElementBorder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementBorder val = constructObjectPropertyString "border" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementBorderPropertyInfo = "border" - attrGet _ = getDOMHTMLTableElementBorder - attrSet _ = setDOMHTMLTableElementBorder - attrConstruct _ = constructDOMHTMLTableElementBorder - attrClear _ = undefined - --- VVV Prop "caption" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLTableElementCaption :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableCaptionElement -getDOMHTMLTableElementCaption obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTableElementCaption" $ getObjectPropertyObject obj "caption" DOMHTMLTableCaptionElement - -data DOMHTMLTableElementCaptionPropertyInfo -instance AttrInfo DOMHTMLTableElementCaptionPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementCaptionPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableCaptionElement - type AttrLabel DOMHTMLTableElementCaptionPropertyInfo = "caption" - attrGet _ = getDOMHTMLTableElementCaption - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "cell-padding" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableElementCellPadding :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementCellPadding val = constructObjectPropertyString "cell-padding" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementCellPaddingPropertyInfo = "cell-padding" - attrGet _ = getDOMHTMLTableElementCellPadding - attrSet _ = setDOMHTMLTableElementCellPadding - attrConstruct _ = constructDOMHTMLTableElementCellPadding - attrClear _ = undefined - --- VVV Prop "cell-spacing" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableElementCellSpacing :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementCellSpacing val = constructObjectPropertyString "cell-spacing" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementCellSpacingPropertyInfo = "cell-spacing" - attrGet _ = getDOMHTMLTableElementCellSpacing - attrSet _ = setDOMHTMLTableElementCellSpacing - attrConstruct _ = constructDOMHTMLTableElementCellSpacing - attrClear _ = undefined - --- VVV Prop "frame" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableElementFrame obj = liftIO $ getObjectPropertyString obj "frame" - -setDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementFrame obj val = liftIO $ setObjectPropertyString obj "frame" (Just val) - -constructDOMHTMLTableElementFrame :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementFrame val = constructObjectPropertyString "frame" (Just val) - -clearDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m () -clearDOMHTMLTableElementFrame obj = liftIO $ setObjectPropertyString obj "frame" (Nothing :: Maybe T.Text) - -data DOMHTMLTableElementFramePropertyInfo -instance AttrInfo DOMHTMLTableElementFramePropertyInfo where - type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableElementFramePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTableElementFramePropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementFramePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementFramePropertyInfo = "frame" - attrGet _ = getDOMHTMLTableElementFrame - attrSet _ = setDOMHTMLTableElementFrame - attrConstruct _ = constructDOMHTMLTableElementFrame - attrClear _ = clearDOMHTMLTableElementFrame - --- VVV Prop "rows" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTableElementRows :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLTableElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection - -data DOMHTMLTableElementRowsPropertyInfo -instance AttrInfo DOMHTMLTableElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementRowsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableElementRowsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementRowsPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementRowsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLTableElementRowsPropertyInfo = "rows" - attrGet _ = getDOMHTMLTableElementRows - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "rules" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableElementRules obj = liftIO $ getObjectPropertyString obj "rules" - -setDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementRules obj val = liftIO $ setObjectPropertyString obj "rules" (Just val) - -constructDOMHTMLTableElementRules :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementRules val = constructObjectPropertyString "rules" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementRulesPropertyInfo = "rules" - attrGet _ = getDOMHTMLTableElementRules - attrSet _ = setDOMHTMLTableElementRules - attrConstruct _ = constructDOMHTMLTableElementRules - attrClear _ = undefined - --- VVV Prop "summary" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableElementSummary obj = liftIO $ getObjectPropertyString obj "summary" - -setDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementSummary obj val = liftIO $ setObjectPropertyString obj "summary" (Just val) - -constructDOMHTMLTableElementSummary :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementSummary val = constructObjectPropertyString "summary" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementSummaryPropertyInfo = "summary" - attrGet _ = getDOMHTMLTableElementSummary - attrSet _ = setDOMHTMLTableElementSummary - attrConstruct _ = constructDOMHTMLTableElementSummary - attrClear _ = undefined - --- VVV Prop "t-bodies" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTableElementTBodies :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLTableElementTBodies obj = liftIO $ getObjectPropertyObject obj "t-bodies" DOMHTMLCollection - -data DOMHTMLTableElementTBodiesPropertyInfo -instance AttrInfo DOMHTMLTableElementTBodiesPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTBodiesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementTBodiesPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLTableElementTBodiesPropertyInfo = "t-bodies" - attrGet _ = getDOMHTMLTableElementTBodies - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "t-foot" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLTableElementTFoot :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement -getDOMHTMLTableElementTFoot obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTableElementTFoot" $ getObjectPropertyObject obj "t-foot" DOMHTMLTableSectionElement - -data DOMHTMLTableElementTFootPropertyInfo -instance AttrInfo DOMHTMLTableElementTFootPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTFootPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableElementTFootPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableSectionElement - type AttrLabel DOMHTMLTableElementTFootPropertyInfo = "t-foot" - attrGet _ = getDOMHTMLTableElementTFoot - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "t-head" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLTableElementTHead :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement -getDOMHTMLTableElementTHead obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTableElementTHead" $ getObjectPropertyObject obj "t-head" DOMHTMLTableSectionElement - -data DOMHTMLTableElementTHeadPropertyInfo -instance AttrInfo DOMHTMLTableElementTHeadPropertyInfo where - type AttrAllowedOps DOMHTMLTableElementTHeadPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableElementK - type AttrGetType DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableSectionElement - type AttrLabel DOMHTMLTableElementTHeadPropertyInfo = "t-head" - attrGet _ = getDOMHTMLTableElementTHead - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableElementWidth obj = liftIO $ getObjectPropertyString obj "width" - -setDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () -setDOMHTMLTableElementWidth obj val = liftIO $ setObjectPropertyString obj "width" (Just val) - -constructDOMHTMLTableElementWidth :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableElementWidth val = constructObjectPropertyString "width" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableElementWidthPropertyInfo = "width" - attrGet _ = getDOMHTMLTableElementWidth - attrSet _ = setDOMHTMLTableElementWidth - attrConstruct _ = constructDOMHTMLTableElementWidth - attrClear _ = undefined - -type instance AttributeList DOMHTMLTableElement = DOMHTMLTableElementAttributeList -type DOMHTMLTableElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLTableElementBgColorPropertyInfo), '("border", DOMHTMLTableElementBorderPropertyInfo), '("caption", DOMHTMLTableElementCaptionPropertyInfo), '("cellPadding", DOMHTMLTableElementCellPaddingPropertyInfo), '("cellSpacing", DOMHTMLTableElementCellSpacingPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("frame", DOMHTMLTableElementFramePropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableElementRowsPropertyInfo), '("rules", DOMHTMLTableElementRulesPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("summary", DOMHTMLTableElementSummaryPropertyInfo), '("tBodies", DOMHTMLTableElementTBodiesPropertyInfo), '("tFoot", DOMHTMLTableElementTFootPropertyInfo), '("tHead", DOMHTMLTableElementTHeadPropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableElementWidthPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTableElementAlign :: AttrLabelProxy "align" -dOMHTMLTableElementAlign = AttrLabelProxy - -dOMHTMLTableElementBgColor :: AttrLabelProxy "bgColor" -dOMHTMLTableElementBgColor = AttrLabelProxy - -dOMHTMLTableElementBorder :: AttrLabelProxy "border" -dOMHTMLTableElementBorder = AttrLabelProxy - -dOMHTMLTableElementCaption :: AttrLabelProxy "caption" -dOMHTMLTableElementCaption = AttrLabelProxy - -dOMHTMLTableElementCellPadding :: AttrLabelProxy "cellPadding" -dOMHTMLTableElementCellPadding = AttrLabelProxy - -dOMHTMLTableElementCellSpacing :: AttrLabelProxy "cellSpacing" -dOMHTMLTableElementCellSpacing = AttrLabelProxy - -dOMHTMLTableElementFrame :: AttrLabelProxy "frame" -dOMHTMLTableElementFrame = AttrLabelProxy - -dOMHTMLTableElementRows :: AttrLabelProxy "rows" -dOMHTMLTableElementRows = AttrLabelProxy - -dOMHTMLTableElementRules :: AttrLabelProxy "rules" -dOMHTMLTableElementRules = AttrLabelProxy - -dOMHTMLTableElementSummary :: AttrLabelProxy "summary" -dOMHTMLTableElementSummary = AttrLabelProxy - -dOMHTMLTableElementTBodies :: AttrLabelProxy "tBodies" -dOMHTMLTableElementTBodies = AttrLabelProxy - -dOMHTMLTableElementTFoot :: AttrLabelProxy "tFoot" -dOMHTMLTableElementTFoot = AttrLabelProxy - -dOMHTMLTableElementTHead :: AttrLabelProxy "tHead" -dOMHTMLTableElementTHead = AttrLabelProxy - -dOMHTMLTableElementWidth :: AttrLabelProxy "width" -dOMHTMLTableElementWidth = AttrLabelProxy - -type instance SignalList DOMHTMLTableElement = DOMHTMLTableElementSignalList -type DOMHTMLTableElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTableElement::create_caption --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementCreateCaptionMethodInfo -instance (signature ~ (m DOMHTMLElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementCreateCaptionMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementCreateCaption - --- method DOMHTMLTableElement::create_t_foot --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementCreateTFootMethodInfo -instance (signature ~ (m DOMHTMLElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementCreateTFootMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementCreateTFoot - --- method DOMHTMLTableElement::create_t_head --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementCreateTHeadMethodInfo -instance (signature ~ (m DOMHTMLElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementCreateTHeadMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementCreateTHead - --- method DOMHTMLTableElement::delete_caption --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLTableElementDeleteCaption _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_table_element_delete_caption _obj' - touchManagedPtr _obj - return () - -data DOMHTMLTableElementDeleteCaptionMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementDeleteCaptionMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementDeleteCaption - --- method DOMHTMLTableElement::delete_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- index : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO () - - -dOMHTMLTableElementDeleteRow :: - (MonadIO m, DOMHTMLTableElementK a) => - a -- _obj - -> CLong -- index - -> m () -- result -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 () - ) - -data DOMHTMLTableElementDeleteRowMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementDeleteRowMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementDeleteRow - --- method DOMHTMLTableElement::delete_t_foot --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLTableElementDeleteTFoot _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_table_element_delete_t_foot _obj' - touchManagedPtr _obj - return () - -data DOMHTMLTableElementDeleteTFootMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementDeleteTFootMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementDeleteTFoot - --- method DOMHTMLTableElement::delete_t_head --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLTableElementDeleteTHead _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_table_element_delete_t_head _obj' - touchManagedPtr _obj - return () - -data DOMHTMLTableElementDeleteTHeadMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementDeleteTHeadMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementDeleteTHead - --- method DOMHTMLTableElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetAlign - --- method DOMHTMLTableElement::get_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetBgColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetBgColor - --- method DOMHTMLTableElement::get_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetBorderMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetBorder - --- method DOMHTMLTableElement::get_caption --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetCaptionMethodInfo -instance (signature ~ (m DOMHTMLTableCaptionElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetCaptionMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetCaption - --- method DOMHTMLTableElement::get_cell_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetCellPaddingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetCellPaddingMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetCellPadding - --- method DOMHTMLTableElement::get_cell_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetCellSpacingMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetCellSpacingMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetCellSpacing - --- method DOMHTMLTableElement::get_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetRowsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetRowsMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetRows - --- method DOMHTMLTableElement::get_rules --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetRulesMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetRulesMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetRules - --- method DOMHTMLTableElement::get_summary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetSummaryMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetSummaryMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetSummary - --- method DOMHTMLTableElement::get_t_bodies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetTBodiesMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetTBodiesMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetTBodies - --- method DOMHTMLTableElement::get_t_foot --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetTFootMethodInfo -instance (signature ~ (m DOMHTMLTableSectionElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetTFootMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetTFoot - --- method DOMHTMLTableElement::get_t_head --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetTHeadMethodInfo -instance (signature ~ (m DOMHTMLTableSectionElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetTHeadMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetTHead - --- method DOMHTMLTableElement::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableElementGetWidthMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementGetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementGetWidth - --- method DOMHTMLTableElement::insert_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CLong -> -- index : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO (Ptr DOMHTMLElement) - - -dOMHTMLTableElementInsertRow :: - (MonadIO m, DOMHTMLTableElementK a) => - a -- _obj - -> CLong -- index - -> m DOMHTMLElement -- result -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 () - ) - -data DOMHTMLTableElementInsertRowMethodInfo -instance (signature ~ (CLong -> m DOMHTMLElement), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementInsertRowMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementInsertRow - --- method DOMHTMLTableElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetAlign - --- method DOMHTMLTableElement::set_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetBgColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetBgColor - --- method DOMHTMLTableElement::set_border --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetBorderMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetBorderMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetBorder - --- method DOMHTMLTableElement::set_caption --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMHTMLTableElementSetCaptionMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableCaptionElementK b) => MethodInfo DOMHTMLTableElementSetCaptionMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetCaption - --- method DOMHTMLTableElement::set_cell_padding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetCellPaddingMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetCellPaddingMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetCellPadding - --- method DOMHTMLTableElement::set_cell_spacing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetCellSpacingMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetCellSpacingMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetCellSpacing - --- method DOMHTMLTableElement::set_rules --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetRulesMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetRulesMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetRules - --- method DOMHTMLTableElement::set_summary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetSummaryMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetSummaryMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetSummary - --- method DOMHTMLTableElement::set_t_foot --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMHTMLTableElementSetTFootMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableSectionElementK b) => MethodInfo DOMHTMLTableElementSetTFootMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetTFoot - --- method DOMHTMLTableElement::set_t_head --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMHTMLTableElementSetTHeadMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableSectionElementK b) => MethodInfo DOMHTMLTableElementSetTHeadMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetTHead - --- method DOMHTMLTableElement::set_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableElementSetWidthMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableElementK a) => MethodInfo DOMHTMLTableElementSetWidthMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableElementSetWidth - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot +++ /dev/null @@ -1,59 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTableElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLTableElementCreateCaptionMethodInfo -data DOMHTMLTableElementCreateTFootMethodInfo -data DOMHTMLTableElementCreateTHeadMethodInfo -data DOMHTMLTableElementDeleteCaptionMethodInfo -data DOMHTMLTableElementDeleteRowMethodInfo -data DOMHTMLTableElementDeleteTFootMethodInfo -data DOMHTMLTableElementDeleteTHeadMethodInfo -data DOMHTMLTableElementGetAlignMethodInfo -data DOMHTMLTableElementGetBgColorMethodInfo -data DOMHTMLTableElementGetBorderMethodInfo -data DOMHTMLTableElementGetCaptionMethodInfo -data DOMHTMLTableElementGetCellPaddingMethodInfo -data DOMHTMLTableElementGetCellSpacingMethodInfo -data DOMHTMLTableElementGetRowsMethodInfo -data DOMHTMLTableElementGetRulesMethodInfo -data DOMHTMLTableElementGetSummaryMethodInfo -data DOMHTMLTableElementGetTBodiesMethodInfo -data DOMHTMLTableElementGetTFootMethodInfo -data DOMHTMLTableElementGetTHeadMethodInfo -data DOMHTMLTableElementGetWidthMethodInfo -data DOMHTMLTableElementInsertRowMethodInfo -data DOMHTMLTableElementSetAlignMethodInfo -data DOMHTMLTableElementSetBgColorMethodInfo -data DOMHTMLTableElementSetBorderMethodInfo -data DOMHTMLTableElementSetCaptionMethodInfo -data DOMHTMLTableElementSetCellPaddingMethodInfo -data DOMHTMLTableElementSetCellSpacingMethodInfo -data DOMHTMLTableElementSetRulesMethodInfo -data DOMHTMLTableElementSetSummaryMethodInfo -data DOMHTMLTableElementSetTFootMethodInfo -data DOMHTMLTableElementSetTHeadMethodInfo -data DOMHTMLTableElementSetWidthMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs +++ /dev/null @@ -1,1028 +0,0 @@ - - -{- | -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 - DOMHTMLTableRowElementDeleteCellMethodInfo, - dOMHTMLTableRowElementDeleteCell , - - --- ** dOMHTMLTableRowElementGetAlign - DOMHTMLTableRowElementGetAlignMethodInfo, - dOMHTMLTableRowElementGetAlign , - - --- ** dOMHTMLTableRowElementGetBgColor - DOMHTMLTableRowElementGetBgColorMethodInfo, - dOMHTMLTableRowElementGetBgColor , - - --- ** dOMHTMLTableRowElementGetCells - DOMHTMLTableRowElementGetCellsMethodInfo, - dOMHTMLTableRowElementGetCells , - - --- ** dOMHTMLTableRowElementGetCh - DOMHTMLTableRowElementGetChMethodInfo , - dOMHTMLTableRowElementGetCh , - - --- ** dOMHTMLTableRowElementGetChOff - DOMHTMLTableRowElementGetChOffMethodInfo, - dOMHTMLTableRowElementGetChOff , - - --- ** dOMHTMLTableRowElementGetRowIndex - DOMHTMLTableRowElementGetRowIndexMethodInfo, - dOMHTMLTableRowElementGetRowIndex , - - --- ** dOMHTMLTableRowElementGetSectionRowIndex - DOMHTMLTableRowElementGetSectionRowIndexMethodInfo, - dOMHTMLTableRowElementGetSectionRowIndex, - - --- ** dOMHTMLTableRowElementGetVAlign - DOMHTMLTableRowElementGetVAlignMethodInfo, - dOMHTMLTableRowElementGetVAlign , - - --- ** dOMHTMLTableRowElementInsertCell - DOMHTMLTableRowElementInsertCellMethodInfo, - dOMHTMLTableRowElementInsertCell , - - --- ** dOMHTMLTableRowElementSetAlign - DOMHTMLTableRowElementSetAlignMethodInfo, - dOMHTMLTableRowElementSetAlign , - - --- ** dOMHTMLTableRowElementSetBgColor - DOMHTMLTableRowElementSetBgColorMethodInfo, - dOMHTMLTableRowElementSetBgColor , - - --- ** dOMHTMLTableRowElementSetCh - DOMHTMLTableRowElementSetChMethodInfo , - dOMHTMLTableRowElementSetCh , - - --- ** dOMHTMLTableRowElementSetChOff - DOMHTMLTableRowElementSetChOffMethodInfo, - dOMHTMLTableRowElementSetChOff , - - --- ** dOMHTMLTableRowElementSetVAlign - DOMHTMLTableRowElementSetVAlignMethodInfo, - dOMHTMLTableRowElementSetVAlign , - - - - - -- * Properties --- ** Align - DOMHTMLTableRowElementAlignPropertyInfo , - constructDOMHTMLTableRowElementAlign , - dOMHTMLTableRowElementAlign , - getDOMHTMLTableRowElementAlign , - setDOMHTMLTableRowElementAlign , - - --- ** BgColor - DOMHTMLTableRowElementBgColorPropertyInfo, - constructDOMHTMLTableRowElementBgColor , - dOMHTMLTableRowElementBgColor , - getDOMHTMLTableRowElementBgColor , - setDOMHTMLTableRowElementBgColor , - - --- ** Cells - DOMHTMLTableRowElementCellsPropertyInfo , - dOMHTMLTableRowElementCells , - getDOMHTMLTableRowElementCells , - - --- ** Ch - DOMHTMLTableRowElementChPropertyInfo , - constructDOMHTMLTableRowElementCh , - dOMHTMLTableRowElementCh , - getDOMHTMLTableRowElementCh , - setDOMHTMLTableRowElementCh , - - --- ** ChOff - DOMHTMLTableRowElementChOffPropertyInfo , - constructDOMHTMLTableRowElementChOff , - dOMHTMLTableRowElementChOff , - getDOMHTMLTableRowElementChOff , - setDOMHTMLTableRowElementChOff , - - --- ** RowIndex - DOMHTMLTableRowElementRowIndexPropertyInfo, - dOMHTMLTableRowElementRowIndex , - getDOMHTMLTableRowElementRowIndex , - - --- ** SectionRowIndex - DOMHTMLTableRowElementSectionRowIndexPropertyInfo, - dOMHTMLTableRowElementSectionRowIndex , - getDOMHTMLTableRowElementSectionRowIndex, - - --- ** VAlign - DOMHTMLTableRowElementVAlignPropertyInfo, - constructDOMHTMLTableRowElementVAlign , - dOMHTMLTableRowElementVAlign , - getDOMHTMLTableRowElementVAlign , - setDOMHTMLTableRowElementVAlign , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTableRowElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTableRowElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTableRowElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTableRowElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTableRowElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTableRowElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTableRowElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTableRowElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTableRowElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTableRowElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTableRowElementMethod "deleteCell" o = DOMHTMLTableRowElementDeleteCellMethodInfo - ResolveDOMHTMLTableRowElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTableRowElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTableRowElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTableRowElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTableRowElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTableRowElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTableRowElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTableRowElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTableRowElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTableRowElementMethod "insertCell" o = DOMHTMLTableRowElementInsertCellMethodInfo - ResolveDOMHTMLTableRowElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTableRowElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTableRowElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTableRowElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTableRowElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTableRowElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTableRowElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTableRowElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTableRowElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTableRowElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTableRowElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTableRowElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTableRowElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTableRowElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTableRowElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTableRowElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTableRowElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTableRowElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTableRowElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTableRowElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTableRowElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTableRowElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTableRowElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTableRowElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTableRowElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTableRowElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTableRowElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTableRowElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTableRowElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTableRowElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTableRowElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTableRowElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTableRowElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTableRowElementMethod "getAlign" o = DOMHTMLTableRowElementGetAlignMethodInfo - ResolveDOMHTMLTableRowElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTableRowElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTableRowElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableRowElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTableRowElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTableRowElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTableRowElementMethod "getBgColor" o = DOMHTMLTableRowElementGetBgColorMethodInfo - ResolveDOMHTMLTableRowElementMethod "getCells" o = DOMHTMLTableRowElementGetCellsMethodInfo - ResolveDOMHTMLTableRowElementMethod "getCh" o = DOMHTMLTableRowElementGetChMethodInfo - ResolveDOMHTMLTableRowElementMethod "getChOff" o = DOMHTMLTableRowElementGetChOffMethodInfo - ResolveDOMHTMLTableRowElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTableRowElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTableRowElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTableRowElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTableRowElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTableRowElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTableRowElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTableRowElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTableRowElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTableRowElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTableRowElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTableRowElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableRowElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTableRowElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableRowElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTableRowElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableRowElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTableRowElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTableRowElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTableRowElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTableRowElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTableRowElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTableRowElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTableRowElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTableRowElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTableRowElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTableRowElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTableRowElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTableRowElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTableRowElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTableRowElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTableRowElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTableRowElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTableRowElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTableRowElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTableRowElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTableRowElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTableRowElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTableRowElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTableRowElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTableRowElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTableRowElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTableRowElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTableRowElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTableRowElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTableRowElementMethod "getRowIndex" o = DOMHTMLTableRowElementGetRowIndexMethodInfo - ResolveDOMHTMLTableRowElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTableRowElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTableRowElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTableRowElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTableRowElementMethod "getSectionRowIndex" o = DOMHTMLTableRowElementGetSectionRowIndexMethodInfo - ResolveDOMHTMLTableRowElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTableRowElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTableRowElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTableRowElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTableRowElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTableRowElementMethod "getVAlign" o = DOMHTMLTableRowElementGetVAlignMethodInfo - ResolveDOMHTMLTableRowElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTableRowElementMethod "setAlign" o = DOMHTMLTableRowElementSetAlignMethodInfo - ResolveDOMHTMLTableRowElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTableRowElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTableRowElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableRowElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTableRowElementMethod "setBgColor" o = DOMHTMLTableRowElementSetBgColorMethodInfo - ResolveDOMHTMLTableRowElementMethod "setCh" o = DOMHTMLTableRowElementSetChMethodInfo - ResolveDOMHTMLTableRowElementMethod "setChOff" o = DOMHTMLTableRowElementSetChOffMethodInfo - ResolveDOMHTMLTableRowElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTableRowElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTableRowElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTableRowElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTableRowElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTableRowElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTableRowElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTableRowElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTableRowElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTableRowElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTableRowElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTableRowElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTableRowElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTableRowElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTableRowElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTableRowElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTableRowElementMethod "setVAlign" o = DOMHTMLTableRowElementSetVAlignMethodInfo - ResolveDOMHTMLTableRowElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTableRowElementMethod t DOMHTMLTableRowElement, MethodInfo info DOMHTMLTableRowElement p) => IsLabelProxy t (DOMHTMLTableRowElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTableRowElementMethod t DOMHTMLTableRowElement, MethodInfo info DOMHTMLTableRowElement p) => IsLabel t (DOMHTMLTableRowElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableRowElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLTableRowElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableRowElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLTableRowElementAlign - attrSet _ = setDOMHTMLTableRowElementAlign - attrConstruct _ = constructDOMHTMLTableRowElementAlign - attrClear _ = undefined - --- VVV Prop "bg-color" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableRowElementBgColor :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementBgColor val = constructObjectPropertyString "bg-color" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableRowElementBgColorPropertyInfo = "bg-color" - attrGet _ = getDOMHTMLTableRowElementBgColor - attrSet _ = setDOMHTMLTableRowElementBgColor - attrConstruct _ = constructDOMHTMLTableRowElementBgColor - attrClear _ = undefined - --- VVV Prop "cells" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTableRowElementCells :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLTableRowElementCells obj = liftIO $ getObjectPropertyObject obj "cells" DOMHTMLCollection - -data DOMHTMLTableRowElementCellsPropertyInfo -instance AttrInfo DOMHTMLTableRowElementCellsPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementCellsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementCellsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLTableRowElementCellsPropertyInfo = "cells" - attrGet _ = getDOMHTMLTableRowElementCells - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableRowElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () -setDOMHTMLTableRowElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) - -constructDOMHTMLTableRowElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementCh val = constructObjectPropertyString "ch" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableRowElementChPropertyInfo = "ch" - attrGet _ = getDOMHTMLTableRowElementCh - attrSet _ = setDOMHTMLTableRowElementCh - attrConstruct _ = constructDOMHTMLTableRowElementCh - attrClear _ = undefined - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableRowElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementChOff val = constructObjectPropertyString "ch-off" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableRowElementChOffPropertyInfo = "ch-off" - attrGet _ = getDOMHTMLTableRowElementChOff - attrSet _ = setDOMHTMLTableRowElementChOff - attrConstruct _ = constructDOMHTMLTableRowElementChOff - attrClear _ = undefined - --- VVV Prop "row-index" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLTableRowElementRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m CLong -getDOMHTMLTableRowElementRowIndex obj = liftIO $ getObjectPropertyLong obj "row-index" - -data DOMHTMLTableRowElementRowIndexPropertyInfo -instance AttrInfo DOMHTMLTableRowElementRowIndexPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementRowIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementRowIndexPropertyInfo = CLong - type AttrLabel DOMHTMLTableRowElementRowIndexPropertyInfo = "row-index" - attrGet _ = getDOMHTMLTableRowElementRowIndex - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "section-row-index" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLTableRowElementSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m CLong -getDOMHTMLTableRowElementSectionRowIndex obj = liftIO $ getObjectPropertyLong obj "section-row-index" - -data DOMHTMLTableRowElementSectionRowIndexPropertyInfo -instance AttrInfo DOMHTMLTableRowElementSectionRowIndexPropertyInfo where - type AttrAllowedOps DOMHTMLTableRowElementSectionRowIndexPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = DOMHTMLTableRowElementK - type AttrGetType DOMHTMLTableRowElementSectionRowIndexPropertyInfo = CLong - type AttrLabel DOMHTMLTableRowElementSectionRowIndexPropertyInfo = "section-row-index" - attrGet _ = getDOMHTMLTableRowElementSectionRowIndex - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableRowElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableRowElementVAlign val = constructObjectPropertyString "v-align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableRowElementVAlignPropertyInfo = "v-align" - attrGet _ = getDOMHTMLTableRowElementVAlign - attrSet _ = setDOMHTMLTableRowElementVAlign - attrConstruct _ = constructDOMHTMLTableRowElementVAlign - attrClear _ = undefined - -type instance AttributeList DOMHTMLTableRowElement = DOMHTMLTableRowElementAttributeList -type DOMHTMLTableRowElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableRowElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLTableRowElementBgColorPropertyInfo), '("cells", DOMHTMLTableRowElementCellsPropertyInfo), '("ch", DOMHTMLTableRowElementChPropertyInfo), '("chOff", DOMHTMLTableRowElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rowIndex", DOMHTMLTableRowElementRowIndexPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("sectionRowIndex", DOMHTMLTableRowElementSectionRowIndexPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("vAlign", DOMHTMLTableRowElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTableRowElementAlign :: AttrLabelProxy "align" -dOMHTMLTableRowElementAlign = AttrLabelProxy - -dOMHTMLTableRowElementBgColor :: AttrLabelProxy "bgColor" -dOMHTMLTableRowElementBgColor = AttrLabelProxy - -dOMHTMLTableRowElementCells :: AttrLabelProxy "cells" -dOMHTMLTableRowElementCells = AttrLabelProxy - -dOMHTMLTableRowElementCh :: AttrLabelProxy "ch" -dOMHTMLTableRowElementCh = AttrLabelProxy - -dOMHTMLTableRowElementChOff :: AttrLabelProxy "chOff" -dOMHTMLTableRowElementChOff = AttrLabelProxy - -dOMHTMLTableRowElementRowIndex :: AttrLabelProxy "rowIndex" -dOMHTMLTableRowElementRowIndex = AttrLabelProxy - -dOMHTMLTableRowElementSectionRowIndex :: AttrLabelProxy "sectionRowIndex" -dOMHTMLTableRowElementSectionRowIndex = AttrLabelProxy - -dOMHTMLTableRowElementVAlign :: AttrLabelProxy "vAlign" -dOMHTMLTableRowElementVAlign = AttrLabelProxy - -type instance SignalList DOMHTMLTableRowElement = DOMHTMLTableRowElementSignalList -type DOMHTMLTableRowElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTableRowElement::delete_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- index : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO () - - -dOMHTMLTableRowElementDeleteCell :: - (MonadIO m, DOMHTMLTableRowElementK a) => - a -- _obj - -> CLong -- index - -> m () -- result -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 () - ) - -data DOMHTMLTableRowElementDeleteCellMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementDeleteCellMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementDeleteCell - --- method DOMHTMLTableRowElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableRowElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetAlign - --- method DOMHTMLTableRowElement::get_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableRowElementGetBgColorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetBgColor - --- method DOMHTMLTableRowElement::get_cells --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableRowElementGetCellsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetCellsMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetCells - --- method DOMHTMLTableRowElement::get_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableRowElementGetChMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetCh - --- method DOMHTMLTableRowElement::get_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableRowElementGetChOffMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetChOff - --- method DOMHTMLTableRowElement::get_row_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTableRowElementGetRowIndex :: - (MonadIO m, DOMHTMLTableRowElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTableRowElementGetRowIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_table_row_element_get_row_index _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTableRowElementGetRowIndexMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetRowIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetRowIndex - --- method DOMHTMLTableRowElement::get_section_row_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTableRowElementGetSectionRowIndex :: - (MonadIO m, DOMHTMLTableRowElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTableRowElementGetSectionRowIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_table_row_element_get_section_row_index _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTableRowElementGetSectionRowIndexMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetSectionRowIndexMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetSectionRowIndex - --- method DOMHTMLTableRowElement::get_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableRowElementGetVAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementGetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementGetVAlign - --- method DOMHTMLTableRowElement::insert_cell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CLong -> -- index : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO (Ptr DOMHTMLElement) - - -dOMHTMLTableRowElementInsertCell :: - (MonadIO m, DOMHTMLTableRowElementK a) => - a -- _obj - -> CLong -- index - -> m DOMHTMLElement -- result -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 () - ) - -data DOMHTMLTableRowElementInsertCellMethodInfo -instance (signature ~ (CLong -> m DOMHTMLElement), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementInsertCellMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementInsertCell - --- method DOMHTMLTableRowElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableRowElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementSetAlign - --- method DOMHTMLTableRowElement::set_bg_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableRowElementSetBgColorMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementSetBgColorMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementSetBgColor - --- method DOMHTMLTableRowElement::set_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableRowElementSetChMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementSetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementSetCh - --- method DOMHTMLTableRowElement::set_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableRowElementSetChOffMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementSetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementSetChOff - --- method DOMHTMLTableRowElement::set_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableRowElementSetVAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableRowElementK a) => MethodInfo DOMHTMLTableRowElementSetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableRowElementSetVAlign - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLTableRowElementDeleteCellMethodInfo -data DOMHTMLTableRowElementGetAlignMethodInfo -data DOMHTMLTableRowElementGetBgColorMethodInfo -data DOMHTMLTableRowElementGetCellsMethodInfo -data DOMHTMLTableRowElementGetChMethodInfo -data DOMHTMLTableRowElementGetChOffMethodInfo -data DOMHTMLTableRowElementGetRowIndexMethodInfo -data DOMHTMLTableRowElementGetSectionRowIndexMethodInfo -data DOMHTMLTableRowElementGetVAlignMethodInfo -data DOMHTMLTableRowElementInsertCellMethodInfo -data DOMHTMLTableRowElementSetAlignMethodInfo -data DOMHTMLTableRowElementSetBgColorMethodInfo -data DOMHTMLTableRowElementSetChMethodInfo -data DOMHTMLTableRowElementSetChOffMethodInfo -data DOMHTMLTableRowElementSetVAlignMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs +++ /dev/null @@ -1,794 +0,0 @@ - - -{- | -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 - DOMHTMLTableSectionElementDeleteRowMethodInfo, - dOMHTMLTableSectionElementDeleteRow , - - --- ** dOMHTMLTableSectionElementGetAlign - DOMHTMLTableSectionElementGetAlignMethodInfo, - dOMHTMLTableSectionElementGetAlign , - - --- ** dOMHTMLTableSectionElementGetCh - DOMHTMLTableSectionElementGetChMethodInfo, - dOMHTMLTableSectionElementGetCh , - - --- ** dOMHTMLTableSectionElementGetChOff - DOMHTMLTableSectionElementGetChOffMethodInfo, - dOMHTMLTableSectionElementGetChOff , - - --- ** dOMHTMLTableSectionElementGetRows - DOMHTMLTableSectionElementGetRowsMethodInfo, - dOMHTMLTableSectionElementGetRows , - - --- ** dOMHTMLTableSectionElementGetVAlign - DOMHTMLTableSectionElementGetVAlignMethodInfo, - dOMHTMLTableSectionElementGetVAlign , - - --- ** dOMHTMLTableSectionElementInsertRow - DOMHTMLTableSectionElementInsertRowMethodInfo, - dOMHTMLTableSectionElementInsertRow , - - --- ** dOMHTMLTableSectionElementSetAlign - DOMHTMLTableSectionElementSetAlignMethodInfo, - dOMHTMLTableSectionElementSetAlign , - - --- ** dOMHTMLTableSectionElementSetCh - DOMHTMLTableSectionElementSetChMethodInfo, - dOMHTMLTableSectionElementSetCh , - - --- ** dOMHTMLTableSectionElementSetChOff - DOMHTMLTableSectionElementSetChOffMethodInfo, - dOMHTMLTableSectionElementSetChOff , - - --- ** dOMHTMLTableSectionElementSetVAlign - DOMHTMLTableSectionElementSetVAlignMethodInfo, - dOMHTMLTableSectionElementSetVAlign , - - - - - -- * Properties --- ** Align - DOMHTMLTableSectionElementAlignPropertyInfo, - constructDOMHTMLTableSectionElementAlign, - dOMHTMLTableSectionElementAlign , - getDOMHTMLTableSectionElementAlign , - setDOMHTMLTableSectionElementAlign , - - --- ** Ch - DOMHTMLTableSectionElementChPropertyInfo, - constructDOMHTMLTableSectionElementCh , - dOMHTMLTableSectionElementCh , - getDOMHTMLTableSectionElementCh , - setDOMHTMLTableSectionElementCh , - - --- ** ChOff - DOMHTMLTableSectionElementChOffPropertyInfo, - constructDOMHTMLTableSectionElementChOff, - dOMHTMLTableSectionElementChOff , - getDOMHTMLTableSectionElementChOff , - setDOMHTMLTableSectionElementChOff , - - --- ** Rows - DOMHTMLTableSectionElementRowsPropertyInfo, - dOMHTMLTableSectionElementRows , - getDOMHTMLTableSectionElementRows , - - --- ** VAlign - DOMHTMLTableSectionElementVAlignPropertyInfo, - constructDOMHTMLTableSectionElementVAlign, - dOMHTMLTableSectionElementVAlign , - getDOMHTMLTableSectionElementVAlign , - setDOMHTMLTableSectionElementVAlign , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTableSectionElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTableSectionElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTableSectionElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTableSectionElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTableSectionElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTableSectionElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTableSectionElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTableSectionElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "deleteRow" o = DOMHTMLTableSectionElementDeleteRowMethodInfo - ResolveDOMHTMLTableSectionElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTableSectionElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTableSectionElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTableSectionElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTableSectionElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTableSectionElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "insertRow" o = DOMHTMLTableSectionElementInsertRowMethodInfo - ResolveDOMHTMLTableSectionElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTableSectionElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTableSectionElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTableSectionElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTableSectionElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTableSectionElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTableSectionElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTableSectionElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTableSectionElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTableSectionElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTableSectionElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTableSectionElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTableSectionElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTableSectionElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTableSectionElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTableSectionElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTableSectionElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTableSectionElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTableSectionElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTableSectionElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTableSectionElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTableSectionElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTableSectionElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getAlign" o = DOMHTMLTableSectionElementGetAlignMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getCh" o = DOMHTMLTableSectionElementGetChMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getChOff" o = DOMHTMLTableSectionElementGetChOffMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getRows" o = DOMHTMLTableSectionElementGetRowsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTableSectionElementMethod "getVAlign" o = DOMHTMLTableSectionElementGetVAlignMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setAlign" o = DOMHTMLTableSectionElementSetAlignMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setCh" o = DOMHTMLTableSectionElementSetChMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setChOff" o = DOMHTMLTableSectionElementSetChOffMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTableSectionElementMethod "setVAlign" o = DOMHTMLTableSectionElementSetVAlignMethodInfo - ResolveDOMHTMLTableSectionElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTableSectionElementMethod t DOMHTMLTableSectionElement, MethodInfo info DOMHTMLTableSectionElement p) => IsLabelProxy t (DOMHTMLTableSectionElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTableSectionElementMethod t DOMHTMLTableSectionElement, MethodInfo info DOMHTMLTableSectionElement p) => IsLabel t (DOMHTMLTableSectionElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableSectionElementAlign obj = liftIO $ getObjectPropertyString obj "align" - -setDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" (Just val) - -constructDOMHTMLTableSectionElementAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableSectionElementAlignPropertyInfo = "align" - attrGet _ = getDOMHTMLTableSectionElementAlign - attrSet _ = setDOMHTMLTableSectionElementAlign - attrConstruct _ = constructDOMHTMLTableSectionElementAlign - attrClear _ = undefined - --- VVV Prop "ch" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTableSectionElementCh obj = liftIO $ getObjectPropertyString obj "ch" - -setDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () -setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" (Just val) - -constructDOMHTMLTableSectionElementCh :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableSectionElementChPropertyInfo = "ch" - attrGet _ = getDOMHTMLTableSectionElementCh - attrSet _ = setDOMHTMLTableSectionElementCh - attrConstruct _ = constructDOMHTMLTableSectionElementCh - attrClear _ = undefined - --- VVV Prop "ch-off" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableSectionElementChOff :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableSectionElementChOffPropertyInfo = "ch-off" - attrGet _ = getDOMHTMLTableSectionElementChOff - attrSet _ = setDOMHTMLTableSectionElementChOff - attrConstruct _ = constructDOMHTMLTableSectionElementChOff - attrClear _ = undefined - --- VVV Prop "rows" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe DOMHTMLCollection) -getDOMHTMLTableSectionElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection - -data DOMHTMLTableSectionElementRowsPropertyInfo -instance AttrInfo DOMHTMLTableSectionElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLTableSectionElementK - type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = (Maybe DOMHTMLCollection) - type AttrLabel DOMHTMLTableSectionElementRowsPropertyInfo = "rows" - attrGet _ = getDOMHTMLTableSectionElementRows - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "v-align" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTableSectionElementVAlign :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTableSectionElementVAlignPropertyInfo = "v-align" - attrGet _ = getDOMHTMLTableSectionElementVAlign - attrSet _ = setDOMHTMLTableSectionElementVAlign - attrConstruct _ = constructDOMHTMLTableSectionElementVAlign - attrClear _ = undefined - -type instance AttributeList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementAttributeList -type DOMHTMLTableSectionElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("chOff", DOMHTMLTableSectionElementChOffPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableSectionElementRowsPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("vAlign", DOMHTMLTableSectionElementVAlignPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTableSectionElementAlign :: AttrLabelProxy "align" -dOMHTMLTableSectionElementAlign = AttrLabelProxy - -dOMHTMLTableSectionElementCh :: AttrLabelProxy "ch" -dOMHTMLTableSectionElementCh = AttrLabelProxy - -dOMHTMLTableSectionElementChOff :: AttrLabelProxy "chOff" -dOMHTMLTableSectionElementChOff = AttrLabelProxy - -dOMHTMLTableSectionElementRows :: AttrLabelProxy "rows" -dOMHTMLTableSectionElementRows = AttrLabelProxy - -dOMHTMLTableSectionElementVAlign :: AttrLabelProxy "vAlign" -dOMHTMLTableSectionElementVAlign = AttrLabelProxy - -type instance SignalList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementSignalList -type DOMHTMLTableSectionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTableSectionElement::delete_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- index : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO () - - -dOMHTMLTableSectionElementDeleteRow :: - (MonadIO m, DOMHTMLTableSectionElementK a) => - a -- _obj - -> CLong -- index - -> m () -- result -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 () - ) - -data DOMHTMLTableSectionElementDeleteRowMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementDeleteRowMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementDeleteRow - --- method DOMHTMLTableSectionElement::get_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableSectionElementGetAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementGetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementGetAlign - --- method DOMHTMLTableSectionElement::get_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableSectionElementGetChMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementGetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementGetCh - --- method DOMHTMLTableSectionElement::get_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableSectionElementGetChOffMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementGetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementGetChOff - --- method DOMHTMLTableSectionElement::get_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableSectionElementGetRowsMethodInfo -instance (signature ~ (m DOMHTMLCollection), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementGetRowsMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementGetRows - --- method DOMHTMLTableSectionElement::get_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTableSectionElementGetVAlignMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementGetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementGetVAlign - --- method DOMHTMLTableSectionElement::insert_row --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CLong -> -- index : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO (Ptr DOMHTMLElement) - - -dOMHTMLTableSectionElementInsertRow :: - (MonadIO m, DOMHTMLTableSectionElementK a) => - a -- _obj - -> CLong -- index - -> m DOMHTMLElement -- result -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 () - ) - -data DOMHTMLTableSectionElementInsertRowMethodInfo -instance (signature ~ (CLong -> m DOMHTMLElement), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementInsertRowMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementInsertRow - --- method DOMHTMLTableSectionElement::set_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableSectionElementSetAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementSetAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementSetAlign - --- method DOMHTMLTableSectionElement::set_ch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableSectionElementSetChMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementSetChMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementSetCh - --- method DOMHTMLTableSectionElement::set_ch_off --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableSectionElementSetChOffMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementSetChOffMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementSetChOff - --- method DOMHTMLTableSectionElement::set_v_align --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTableSectionElementSetVAlignMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTableSectionElementK a) => MethodInfo DOMHTMLTableSectionElementSetVAlignMethodInfo a signature where - overloadedMethod _ = dOMHTMLTableSectionElementSetVAlign - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLTableSectionElementDeleteRowMethodInfo -data DOMHTMLTableSectionElementGetAlignMethodInfo -data DOMHTMLTableSectionElementGetChMethodInfo -data DOMHTMLTableSectionElementGetChOffMethodInfo -data DOMHTMLTableSectionElementGetRowsMethodInfo -data DOMHTMLTableSectionElementGetVAlignMethodInfo -data DOMHTMLTableSectionElementInsertRowMethodInfo -data DOMHTMLTableSectionElementSetAlignMethodInfo -data DOMHTMLTableSectionElementSetChMethodInfo -data DOMHTMLTableSectionElementSetChOffMethodInfo -data DOMHTMLTableSectionElementSetVAlignMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs +++ /dev/null @@ -1,2023 +0,0 @@ - - -{- | -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 - DOMHTMLTextAreaElementGetAreaTypeMethodInfo, - dOMHTMLTextAreaElementGetAreaType , - - --- ** dOMHTMLTextAreaElementGetAutofocus - DOMHTMLTextAreaElementGetAutofocusMethodInfo, - dOMHTMLTextAreaElementGetAutofocus , - - --- ** dOMHTMLTextAreaElementGetCols - DOMHTMLTextAreaElementGetColsMethodInfo , - dOMHTMLTextAreaElementGetCols , - - --- ** dOMHTMLTextAreaElementGetDefaultValue - DOMHTMLTextAreaElementGetDefaultValueMethodInfo, - dOMHTMLTextAreaElementGetDefaultValue , - - --- ** dOMHTMLTextAreaElementGetDisabled - DOMHTMLTextAreaElementGetDisabledMethodInfo, - dOMHTMLTextAreaElementGetDisabled , - - --- ** dOMHTMLTextAreaElementGetForm - DOMHTMLTextAreaElementGetFormMethodInfo , - dOMHTMLTextAreaElementGetForm , - - --- ** dOMHTMLTextAreaElementGetName - DOMHTMLTextAreaElementGetNameMethodInfo , - dOMHTMLTextAreaElementGetName , - - --- ** dOMHTMLTextAreaElementGetReadOnly - DOMHTMLTextAreaElementGetReadOnlyMethodInfo, - dOMHTMLTextAreaElementGetReadOnly , - - --- ** dOMHTMLTextAreaElementGetRows - DOMHTMLTextAreaElementGetRowsMethodInfo , - dOMHTMLTextAreaElementGetRows , - - --- ** dOMHTMLTextAreaElementGetSelectionEnd - DOMHTMLTextAreaElementGetSelectionEndMethodInfo, - dOMHTMLTextAreaElementGetSelectionEnd , - - --- ** dOMHTMLTextAreaElementGetSelectionStart - DOMHTMLTextAreaElementGetSelectionStartMethodInfo, - dOMHTMLTextAreaElementGetSelectionStart , - - --- ** dOMHTMLTextAreaElementGetValue - DOMHTMLTextAreaElementGetValueMethodInfo, - dOMHTMLTextAreaElementGetValue , - - --- ** dOMHTMLTextAreaElementGetWillValidate - DOMHTMLTextAreaElementGetWillValidateMethodInfo, - dOMHTMLTextAreaElementGetWillValidate , - - --- ** dOMHTMLTextAreaElementIsEdited - DOMHTMLTextAreaElementIsEditedMethodInfo, - dOMHTMLTextAreaElementIsEdited , - - --- ** dOMHTMLTextAreaElementSelect - DOMHTMLTextAreaElementSelectMethodInfo , - dOMHTMLTextAreaElementSelect , - - --- ** dOMHTMLTextAreaElementSetAutofocus - DOMHTMLTextAreaElementSetAutofocusMethodInfo, - dOMHTMLTextAreaElementSetAutofocus , - - --- ** dOMHTMLTextAreaElementSetCols - DOMHTMLTextAreaElementSetColsMethodInfo , - dOMHTMLTextAreaElementSetCols , - - --- ** dOMHTMLTextAreaElementSetDefaultValue - DOMHTMLTextAreaElementSetDefaultValueMethodInfo, - dOMHTMLTextAreaElementSetDefaultValue , - - --- ** dOMHTMLTextAreaElementSetDisabled - DOMHTMLTextAreaElementSetDisabledMethodInfo, - dOMHTMLTextAreaElementSetDisabled , - - --- ** dOMHTMLTextAreaElementSetName - DOMHTMLTextAreaElementSetNameMethodInfo , - dOMHTMLTextAreaElementSetName , - - --- ** dOMHTMLTextAreaElementSetReadOnly - DOMHTMLTextAreaElementSetReadOnlyMethodInfo, - dOMHTMLTextAreaElementSetReadOnly , - - --- ** dOMHTMLTextAreaElementSetRows - DOMHTMLTextAreaElementSetRowsMethodInfo , - dOMHTMLTextAreaElementSetRows , - - --- ** dOMHTMLTextAreaElementSetSelectionEnd - DOMHTMLTextAreaElementSetSelectionEndMethodInfo, - dOMHTMLTextAreaElementSetSelectionEnd , - - --- ** dOMHTMLTextAreaElementSetSelectionRange - DOMHTMLTextAreaElementSetSelectionRangeMethodInfo, - dOMHTMLTextAreaElementSetSelectionRange , - - --- ** dOMHTMLTextAreaElementSetSelectionStart - DOMHTMLTextAreaElementSetSelectionStartMethodInfo, - dOMHTMLTextAreaElementSetSelectionStart , - - --- ** dOMHTMLTextAreaElementSetValue - DOMHTMLTextAreaElementSetValueMethodInfo, - dOMHTMLTextAreaElementSetValue , - - - - - -- * Properties --- ** Autocapitalize - DOMHTMLTextAreaElementAutocapitalizePropertyInfo, - clearDOMHTMLTextAreaElementAutocapitalize, - constructDOMHTMLTextAreaElementAutocapitalize, - dOMHTMLTextAreaElementAutocapitalize , - getDOMHTMLTextAreaElementAutocapitalize , - setDOMHTMLTextAreaElementAutocapitalize , - - --- ** Autocomplete - DOMHTMLTextAreaElementAutocompletePropertyInfo, - clearDOMHTMLTextAreaElementAutocomplete , - constructDOMHTMLTextAreaElementAutocomplete, - dOMHTMLTextAreaElementAutocomplete , - getDOMHTMLTextAreaElementAutocomplete , - setDOMHTMLTextAreaElementAutocomplete , - - --- ** Autocorrect - DOMHTMLTextAreaElementAutocorrectPropertyInfo, - constructDOMHTMLTextAreaElementAutocorrect, - dOMHTMLTextAreaElementAutocorrect , - getDOMHTMLTextAreaElementAutocorrect , - setDOMHTMLTextAreaElementAutocorrect , - - --- ** Autofocus - DOMHTMLTextAreaElementAutofocusPropertyInfo, - constructDOMHTMLTextAreaElementAutofocus, - dOMHTMLTextAreaElementAutofocus , - getDOMHTMLTextAreaElementAutofocus , - setDOMHTMLTextAreaElementAutofocus , - - --- ** Cols - DOMHTMLTextAreaElementColsPropertyInfo , - constructDOMHTMLTextAreaElementCols , - dOMHTMLTextAreaElementCols , - getDOMHTMLTextAreaElementCols , - setDOMHTMLTextAreaElementCols , - - --- ** DefaultValue - DOMHTMLTextAreaElementDefaultValuePropertyInfo, - constructDOMHTMLTextAreaElementDefaultValue, - dOMHTMLTextAreaElementDefaultValue , - getDOMHTMLTextAreaElementDefaultValue , - setDOMHTMLTextAreaElementDefaultValue , - - --- ** DirName - DOMHTMLTextAreaElementDirNamePropertyInfo, - clearDOMHTMLTextAreaElementDirName , - constructDOMHTMLTextAreaElementDirName , - dOMHTMLTextAreaElementDirName , - getDOMHTMLTextAreaElementDirName , - setDOMHTMLTextAreaElementDirName , - - --- ** Disabled - DOMHTMLTextAreaElementDisabledPropertyInfo, - constructDOMHTMLTextAreaElementDisabled , - dOMHTMLTextAreaElementDisabled , - getDOMHTMLTextAreaElementDisabled , - setDOMHTMLTextAreaElementDisabled , - - --- ** Form - DOMHTMLTextAreaElementFormPropertyInfo , - dOMHTMLTextAreaElementForm , - getDOMHTMLTextAreaElementForm , - - --- ** Labels - DOMHTMLTextAreaElementLabelsPropertyInfo, - dOMHTMLTextAreaElementLabels , - getDOMHTMLTextAreaElementLabels , - - --- ** MaxLength - DOMHTMLTextAreaElementMaxLengthPropertyInfo, - constructDOMHTMLTextAreaElementMaxLength, - dOMHTMLTextAreaElementMaxLength , - getDOMHTMLTextAreaElementMaxLength , - setDOMHTMLTextAreaElementMaxLength , - - --- ** Name - DOMHTMLTextAreaElementNamePropertyInfo , - constructDOMHTMLTextAreaElementName , - dOMHTMLTextAreaElementName , - getDOMHTMLTextAreaElementName , - setDOMHTMLTextAreaElementName , - - --- ** Placeholder - DOMHTMLTextAreaElementPlaceholderPropertyInfo, - clearDOMHTMLTextAreaElementPlaceholder , - constructDOMHTMLTextAreaElementPlaceholder, - dOMHTMLTextAreaElementPlaceholder , - getDOMHTMLTextAreaElementPlaceholder , - setDOMHTMLTextAreaElementPlaceholder , - - --- ** ReadOnly - DOMHTMLTextAreaElementReadOnlyPropertyInfo, - constructDOMHTMLTextAreaElementReadOnly , - dOMHTMLTextAreaElementReadOnly , - getDOMHTMLTextAreaElementReadOnly , - setDOMHTMLTextAreaElementReadOnly , - - --- ** Required - DOMHTMLTextAreaElementRequiredPropertyInfo, - constructDOMHTMLTextAreaElementRequired , - dOMHTMLTextAreaElementRequired , - getDOMHTMLTextAreaElementRequired , - setDOMHTMLTextAreaElementRequired , - - --- ** Rows - DOMHTMLTextAreaElementRowsPropertyInfo , - constructDOMHTMLTextAreaElementRows , - dOMHTMLTextAreaElementRows , - getDOMHTMLTextAreaElementRows , - setDOMHTMLTextAreaElementRows , - - --- ** SelectionDirection - DOMHTMLTextAreaElementSelectionDirectionPropertyInfo, - clearDOMHTMLTextAreaElementSelectionDirection, - constructDOMHTMLTextAreaElementSelectionDirection, - dOMHTMLTextAreaElementSelectionDirection, - getDOMHTMLTextAreaElementSelectionDirection, - setDOMHTMLTextAreaElementSelectionDirection, - - --- ** SelectionEnd - DOMHTMLTextAreaElementSelectionEndPropertyInfo, - constructDOMHTMLTextAreaElementSelectionEnd, - dOMHTMLTextAreaElementSelectionEnd , - getDOMHTMLTextAreaElementSelectionEnd , - setDOMHTMLTextAreaElementSelectionEnd , - - --- ** SelectionStart - DOMHTMLTextAreaElementSelectionStartPropertyInfo, - constructDOMHTMLTextAreaElementSelectionStart, - dOMHTMLTextAreaElementSelectionStart , - getDOMHTMLTextAreaElementSelectionStart , - setDOMHTMLTextAreaElementSelectionStart , - - --- ** TextLength - DOMHTMLTextAreaElementTextLengthPropertyInfo, - dOMHTMLTextAreaElementTextLength , - getDOMHTMLTextAreaElementTextLength , - - --- ** Type - DOMHTMLTextAreaElementTypePropertyInfo , - dOMHTMLTextAreaElementType , - getDOMHTMLTextAreaElementType , - - --- ** ValidationMessage - DOMHTMLTextAreaElementValidationMessagePropertyInfo, - dOMHTMLTextAreaElementValidationMessage , - getDOMHTMLTextAreaElementValidationMessage, - - --- ** Value - DOMHTMLTextAreaElementValuePropertyInfo , - constructDOMHTMLTextAreaElementValue , - dOMHTMLTextAreaElementValue , - getDOMHTMLTextAreaElementValue , - setDOMHTMLTextAreaElementValue , - - --- ** WillValidate - DOMHTMLTextAreaElementWillValidatePropertyInfo, - dOMHTMLTextAreaElementWillValidate , - getDOMHTMLTextAreaElementWillValidate , - - --- ** Wrap - DOMHTMLTextAreaElementWrapPropertyInfo , - clearDOMHTMLTextAreaElementWrap , - constructDOMHTMLTextAreaElementWrap , - dOMHTMLTextAreaElementWrap , - getDOMHTMLTextAreaElementWrap , - setDOMHTMLTextAreaElementWrap , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTextAreaElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTextAreaElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTextAreaElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTextAreaElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTextAreaElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTextAreaElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTextAreaElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTextAreaElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTextAreaElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTextAreaElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTextAreaElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTextAreaElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTextAreaElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTextAreaElementMethod "isEdited" o = DOMHTMLTextAreaElementIsEditedMethodInfo - ResolveDOMHTMLTextAreaElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTextAreaElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTextAreaElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTextAreaElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTextAreaElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTextAreaElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTextAreaElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTextAreaElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTextAreaElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTextAreaElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTextAreaElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTextAreaElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTextAreaElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTextAreaElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTextAreaElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTextAreaElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTextAreaElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTextAreaElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTextAreaElementMethod "select" o = DOMHTMLTextAreaElementSelectMethodInfo - ResolveDOMHTMLTextAreaElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTextAreaElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTextAreaElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTextAreaElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAreaType" o = DOMHTMLTextAreaElementGetAreaTypeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getAutofocus" o = DOMHTMLTextAreaElementGetAutofocusMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getCols" o = DOMHTMLTextAreaElementGetColsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getDefaultValue" o = DOMHTMLTextAreaElementGetDefaultValueMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getDisabled" o = DOMHTMLTextAreaElementGetDisabledMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getForm" o = DOMHTMLTextAreaElementGetFormMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getName" o = DOMHTMLTextAreaElementGetNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getReadOnly" o = DOMHTMLTextAreaElementGetReadOnlyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getRows" o = DOMHTMLTextAreaElementGetRowsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getSelectionEnd" o = DOMHTMLTextAreaElementGetSelectionEndMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getSelectionStart" o = DOMHTMLTextAreaElementGetSelectionStartMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getValue" o = DOMHTMLTextAreaElementGetValueMethodInfo - ResolveDOMHTMLTextAreaElementMethod "getWillValidate" o = DOMHTMLTextAreaElementGetWillValidateMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setAutofocus" o = DOMHTMLTextAreaElementSetAutofocusMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setCols" o = DOMHTMLTextAreaElementSetColsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setDefaultValue" o = DOMHTMLTextAreaElementSetDefaultValueMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setDisabled" o = DOMHTMLTextAreaElementSetDisabledMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setName" o = DOMHTMLTextAreaElementSetNameMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setReadOnly" o = DOMHTMLTextAreaElementSetReadOnlyMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setRows" o = DOMHTMLTextAreaElementSetRowsMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setSelectionEnd" o = DOMHTMLTextAreaElementSetSelectionEndMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setSelectionRange" o = DOMHTMLTextAreaElementSetSelectionRangeMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setSelectionStart" o = DOMHTMLTextAreaElementSetSelectionStartMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTextAreaElementMethod "setValue" o = DOMHTMLTextAreaElementSetValueMethodInfo - ResolveDOMHTMLTextAreaElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTextAreaElementMethod t DOMHTMLTextAreaElement, MethodInfo info DOMHTMLTextAreaElement p) => IsLabelProxy t (DOMHTMLTextAreaElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTextAreaElementMethod t DOMHTMLTextAreaElement, MethodInfo info DOMHTMLTextAreaElement p) => IsLabel t (DOMHTMLTextAreaElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "autocapitalize" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" - -setDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" (Just val) - -constructDOMHTMLTextAreaElementAutocapitalize :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementAutocapitalize val = constructObjectPropertyString "autocapitalize" (Just val) - -clearDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () -clearDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ setObjectPropertyString obj "autocapitalize" (Nothing :: Maybe T.Text) - -data DOMHTMLTextAreaElementAutocapitalizePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementAutocapitalizePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementAutocapitalizePropertyInfo = "autocapitalize" - attrGet _ = getDOMHTMLTextAreaElementAutocapitalize - attrSet _ = setDOMHTMLTextAreaElementAutocapitalize - attrConstruct _ = constructDOMHTMLTextAreaElementAutocapitalize - attrClear _ = clearDOMHTMLTextAreaElementAutocapitalize - --- VVV Prop "autocomplete" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementAutocomplete :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" - -setDOMHTMLTextAreaElementAutocomplete :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" (Just val) - -constructDOMHTMLTextAreaElementAutocomplete :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementAutocomplete val = constructObjectPropertyString "autocomplete" (Just val) - -clearDOMHTMLTextAreaElementAutocomplete :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () -clearDOMHTMLTextAreaElementAutocomplete obj = liftIO $ setObjectPropertyString obj "autocomplete" (Nothing :: Maybe T.Text) - -data DOMHTMLTextAreaElementAutocompletePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementAutocompletePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocompletePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocompletePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementAutocompletePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementAutocompletePropertyInfo = "autocomplete" - attrGet _ = getDOMHTMLTextAreaElementAutocomplete - attrSet _ = setDOMHTMLTextAreaElementAutocomplete - attrConstruct _ = constructDOMHTMLTextAreaElementAutocomplete - attrClear _ = clearDOMHTMLTextAreaElementAutocomplete - --- VVV Prop "autocorrect" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "autocorrect" - attrGet _ = getDOMHTMLTextAreaElementAutocorrect - attrSet _ = setDOMHTMLTextAreaElementAutocorrect - attrConstruct _ = constructDOMHTMLTextAreaElementAutocorrect - attrClear _ = undefined - --- VVV Prop "autofocus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "autofocus" - attrGet _ = getDOMHTMLTextAreaElementAutofocus - attrSet _ = setDOMHTMLTextAreaElementAutofocus - attrConstruct _ = constructDOMHTMLTextAreaElementAutofocus - attrClear _ = undefined - --- VVV Prop "cols" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong -getDOMHTMLTextAreaElementCols obj = liftIO $ getObjectPropertyLong obj "cols" - -setDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () -setDOMHTMLTextAreaElementCols obj val = liftIO $ setObjectPropertyLong obj "cols" val - -constructDOMHTMLTextAreaElementCols :: CLong -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementCols val = constructObjectPropertyLong "cols" val - -data DOMHTMLTextAreaElementColsPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementColsPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementColsPropertyInfo = CLong - type AttrLabel DOMHTMLTextAreaElementColsPropertyInfo = "cols" - attrGet _ = getDOMHTMLTextAreaElementCols - attrSet _ = setDOMHTMLTextAreaElementCols - attrConstruct _ = constructDOMHTMLTextAreaElementCols - attrClear _ = undefined - --- VVV Prop "default-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTextAreaElementDefaultValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementDefaultValue val = constructObjectPropertyString "default-value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementDefaultValuePropertyInfo = "default-value" - attrGet _ = getDOMHTMLTextAreaElementDefaultValue - attrSet _ = setDOMHTMLTextAreaElementDefaultValue - attrConstruct _ = constructDOMHTMLTextAreaElementDefaultValue - attrClear _ = undefined - --- VVV Prop "dir-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTextAreaElementDirName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementDirName val = constructObjectPropertyString "dir-name" (Just val) - -clearDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () -clearDOMHTMLTextAreaElementDirName obj = liftIO $ setObjectPropertyString obj "dir-name" (Nothing :: Maybe T.Text) - -data DOMHTMLTextAreaElementDirNamePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementDirNamePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementDirNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementDirNamePropertyInfo = "dir-name" - attrGet _ = getDOMHTMLTextAreaElementDirName - attrSet _ = setDOMHTMLTextAreaElementDirName - attrConstruct _ = constructDOMHTMLTextAreaElementDirName - attrClear _ = clearDOMHTMLTextAreaElementDirName - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMHTMLTextAreaElementDisabled - attrSet _ = setDOMHTMLTextAreaElementDisabled - attrConstruct _ = constructDOMHTMLTextAreaElementDisabled - attrClear _ = undefined - --- VVV Prop "form" - -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMHTMLTextAreaElementForm :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMHTMLFormElement -getDOMHTMLTextAreaElementForm obj = liftIO $ checkUnexpectedNothing "getDOMHTMLTextAreaElementForm" $ getObjectPropertyObject obj "form" DOMHTMLFormElement - -data DOMHTMLTextAreaElementFormPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementFormPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementFormPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLFormElement - type AttrLabel DOMHTMLTextAreaElementFormPropertyInfo = "form" - attrGet _ = getDOMHTMLTextAreaElementForm - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "labels" - -- Type: TInterface "WebKit2WebExtension" "DOMNodeList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementLabels :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe DOMNodeList) -getDOMHTMLTextAreaElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList - -data DOMHTMLTextAreaElementLabelsPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementLabelsPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementLabelsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementLabelsPropertyInfo = (Maybe DOMNodeList) - type AttrLabel DOMHTMLTextAreaElementLabelsPropertyInfo = "labels" - attrGet _ = getDOMHTMLTextAreaElementLabels - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "max-length" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong -getDOMHTMLTextAreaElementMaxLength obj = liftIO $ getObjectPropertyLong obj "max-length" - -setDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () -setDOMHTMLTextAreaElementMaxLength obj val = liftIO $ setObjectPropertyLong obj "max-length" val - -constructDOMHTMLTextAreaElementMaxLength :: CLong -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementMaxLength val = constructObjectPropertyLong "max-length" val - -data DOMHTMLTextAreaElementMaxLengthPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementMaxLengthPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementMaxLengthPropertyInfo = CLong - type AttrLabel DOMHTMLTextAreaElementMaxLengthPropertyInfo = "max-length" - attrGet _ = getDOMHTMLTextAreaElementMaxLength - attrSet _ = setDOMHTMLTextAreaElementMaxLength - attrConstruct _ = constructDOMHTMLTextAreaElementMaxLength - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementName obj = liftIO $ getObjectPropertyString obj "name" - -setDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) - -constructDOMHTMLTextAreaElementName :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementName val = constructObjectPropertyString "name" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementNamePropertyInfo = "name" - attrGet _ = getDOMHTMLTextAreaElementName - attrSet _ = setDOMHTMLTextAreaElementName - attrConstruct _ = constructDOMHTMLTextAreaElementName - attrClear _ = undefined - --- VVV Prop "placeholder" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" - -setDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" (Just val) - -constructDOMHTMLTextAreaElementPlaceholder :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementPlaceholder val = constructObjectPropertyString "placeholder" (Just val) - -clearDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () -clearDOMHTMLTextAreaElementPlaceholder obj = liftIO $ setObjectPropertyString obj "placeholder" (Nothing :: Maybe T.Text) - -data DOMHTMLTextAreaElementPlaceholderPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementPlaceholderPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementPlaceholderPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementPlaceholderPropertyInfo = "placeholder" - attrGet _ = getDOMHTMLTextAreaElementPlaceholder - attrSet _ = setDOMHTMLTextAreaElementPlaceholder - attrConstruct _ = constructDOMHTMLTextAreaElementPlaceholder - attrClear _ = clearDOMHTMLTextAreaElementPlaceholder - --- VVV Prop "read-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "read-only" - attrGet _ = getDOMHTMLTextAreaElementReadOnly - attrSet _ = setDOMHTMLTextAreaElementReadOnly - attrConstruct _ = constructDOMHTMLTextAreaElementReadOnly - attrClear _ = undefined - --- VVV Prop "required" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "required" - attrGet _ = getDOMHTMLTextAreaElementRequired - attrSet _ = setDOMHTMLTextAreaElementRequired - attrConstruct _ = constructDOMHTMLTextAreaElementRequired - attrClear _ = undefined - --- VVV Prop "rows" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong -getDOMHTMLTextAreaElementRows obj = liftIO $ getObjectPropertyLong obj "rows" - -setDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () -setDOMHTMLTextAreaElementRows obj val = liftIO $ setObjectPropertyLong obj "rows" val - -constructDOMHTMLTextAreaElementRows :: CLong -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementRows val = constructObjectPropertyLong "rows" val - -data DOMHTMLTextAreaElementRowsPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementRowsPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementRowsPropertyInfo = CLong - type AttrLabel DOMHTMLTextAreaElementRowsPropertyInfo = "rows" - attrGet _ = getDOMHTMLTextAreaElementRows - attrSet _ = setDOMHTMLTextAreaElementRows - attrConstruct _ = constructDOMHTMLTextAreaElementRows - attrClear _ = undefined - --- VVV Prop "selection-direction" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe 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" (Just val) - -constructDOMHTMLTextAreaElementSelectionDirection :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionDirection val = constructObjectPropertyString "selection-direction" (Just val) - -clearDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () -clearDOMHTMLTextAreaElementSelectionDirection obj = liftIO $ setObjectPropertyString obj "selection-direction" (Nothing :: Maybe T.Text) - -data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementSelectionDirectionPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = "selection-direction" - attrGet _ = getDOMHTMLTextAreaElementSelectionDirection - attrSet _ = setDOMHTMLTextAreaElementSelectionDirection - attrConstruct _ = constructDOMHTMLTextAreaElementSelectionDirection - attrClear _ = clearDOMHTMLTextAreaElementSelectionDirection - --- VVV Prop "selection-end" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong -getDOMHTMLTextAreaElementSelectionEnd obj = liftIO $ getObjectPropertyLong obj "selection-end" - -setDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () -setDOMHTMLTextAreaElementSelectionEnd obj val = liftIO $ setObjectPropertyLong obj "selection-end" val - -constructDOMHTMLTextAreaElementSelectionEnd :: CLong -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionEnd val = constructObjectPropertyLong "selection-end" val - -data DOMHTMLTextAreaElementSelectionEndPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementSelectionEndPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementSelectionEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionEndPropertyInfo = CLong - type AttrLabel DOMHTMLTextAreaElementSelectionEndPropertyInfo = "selection-end" - attrGet _ = getDOMHTMLTextAreaElementSelectionEnd - attrSet _ = setDOMHTMLTextAreaElementSelectionEnd - attrConstruct _ = constructDOMHTMLTextAreaElementSelectionEnd - attrClear _ = undefined - --- VVV Prop "selection-start" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CLong -getDOMHTMLTextAreaElementSelectionStart obj = liftIO $ getObjectPropertyLong obj "selection-start" - -setDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> CLong -> m () -setDOMHTMLTextAreaElementSelectionStart obj val = liftIO $ setObjectPropertyLong obj "selection-start" val - -constructDOMHTMLTextAreaElementSelectionStart :: CLong -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementSelectionStart val = constructObjectPropertyLong "selection-start" val - -data DOMHTMLTextAreaElementSelectionStartPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementSelectionStartPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementSelectionStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = (~) CLong - type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementSelectionStartPropertyInfo = CLong - type AttrLabel DOMHTMLTextAreaElementSelectionStartPropertyInfo = "selection-start" - attrGet _ = getDOMHTMLTextAreaElementSelectionStart - attrSet _ = setDOMHTMLTextAreaElementSelectionStart - attrConstruct _ = constructDOMHTMLTextAreaElementSelectionStart - attrClear _ = undefined - --- VVV Prop "text-length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementTextLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m CULong -getDOMHTMLTextAreaElementTextLength obj = liftIO $ getObjectPropertyULong obj "text-length" - -data DOMHTMLTextAreaElementTextLengthPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementTextLengthPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementTextLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementTextLengthPropertyInfo = CULong - type AttrLabel DOMHTMLTextAreaElementTextLengthPropertyInfo = "text-length" - attrGet _ = getDOMHTMLTextAreaElementTextLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementType :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMHTMLTextAreaElementTypePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLTextAreaElementType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "validation-message" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementValidationMessage :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" - -data DOMHTMLTextAreaElementValidationMessagePropertyInfo -instance AttrInfo DOMHTMLTextAreaElementValidationMessagePropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementValidationMessagePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementValidationMessagePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementValidationMessagePropertyInfo = "validation-message" - attrGet _ = getDOMHTMLTextAreaElementValidationMessage - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementValue obj = liftIO $ getObjectPropertyString obj "value" - -setDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementValue obj val = liftIO $ setObjectPropertyString obj "value" (Just val) - -constructDOMHTMLTextAreaElementValue :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementValue val = constructObjectPropertyString "value" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementValuePropertyInfo = "value" - attrGet _ = getDOMHTMLTextAreaElementValue - attrSet _ = setDOMHTMLTextAreaElementValue - attrConstruct _ = constructDOMHTMLTextAreaElementValue - attrClear _ = undefined - --- VVV Prop "will-validate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "will-validate" - attrGet _ = getDOMHTMLTextAreaElementWillValidate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "wrap" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTextAreaElementWrap obj = liftIO $ getObjectPropertyString obj "wrap" - -setDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () -setDOMHTMLTextAreaElementWrap obj val = liftIO $ setObjectPropertyString obj "wrap" (Just val) - -constructDOMHTMLTextAreaElementWrap :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTextAreaElementWrap val = constructObjectPropertyString "wrap" (Just val) - -clearDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m () -clearDOMHTMLTextAreaElementWrap obj = liftIO $ setObjectPropertyString obj "wrap" (Nothing :: Maybe T.Text) - -data DOMHTMLTextAreaElementWrapPropertyInfo -instance AttrInfo DOMHTMLTextAreaElementWrapPropertyInfo where - type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = DOMHTMLTextAreaElementK - type AttrGetType DOMHTMLTextAreaElementWrapPropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLTextAreaElementWrapPropertyInfo = "wrap" - attrGet _ = getDOMHTMLTextAreaElementWrap - attrSet _ = setDOMHTMLTextAreaElementWrap - attrConstruct _ = constructDOMHTMLTextAreaElementWrap - attrClear _ = clearDOMHTMLTextAreaElementWrap - -type instance AttributeList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementAttributeList -type DOMHTMLTextAreaElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLTextAreaElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLTextAreaElementColsPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("defaultValue", DOMHTMLTextAreaElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dirName", DOMHTMLTextAreaElementDirNamePropertyInfo), '("disabled", DOMHTMLTextAreaElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLTextAreaElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLTextAreaElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("maxLength", DOMHTMLTextAreaElementMaxLengthPropertyInfo), '("name", DOMHTMLTextAreaElementNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("placeholder", DOMHTMLTextAreaElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("readOnly", DOMHTMLTextAreaElementReadOnlyPropertyInfo), '("required", DOMHTMLTextAreaElementRequiredPropertyInfo), '("rows", DOMHTMLTextAreaElementRowsPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("selectionDirection", DOMHTMLTextAreaElementSelectionDirectionPropertyInfo), '("selectionEnd", DOMHTMLTextAreaElementSelectionEndPropertyInfo), '("selectionStart", DOMHTMLTextAreaElementSelectionStartPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("textLength", DOMHTMLTextAreaElementTextLengthPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLTextAreaElementTypePropertyInfo), '("validationMessage", DOMHTMLTextAreaElementValidationMessagePropertyInfo), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("willValidate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTextAreaElementAutocapitalize :: AttrLabelProxy "autocapitalize" -dOMHTMLTextAreaElementAutocapitalize = AttrLabelProxy - -dOMHTMLTextAreaElementAutocomplete :: AttrLabelProxy "autocomplete" -dOMHTMLTextAreaElementAutocomplete = AttrLabelProxy - -dOMHTMLTextAreaElementAutocorrect :: AttrLabelProxy "autocorrect" -dOMHTMLTextAreaElementAutocorrect = AttrLabelProxy - -dOMHTMLTextAreaElementAutofocus :: AttrLabelProxy "autofocus" -dOMHTMLTextAreaElementAutofocus = AttrLabelProxy - -dOMHTMLTextAreaElementCols :: AttrLabelProxy "cols" -dOMHTMLTextAreaElementCols = AttrLabelProxy - -dOMHTMLTextAreaElementDefaultValue :: AttrLabelProxy "defaultValue" -dOMHTMLTextAreaElementDefaultValue = AttrLabelProxy - -dOMHTMLTextAreaElementDirName :: AttrLabelProxy "dirName" -dOMHTMLTextAreaElementDirName = AttrLabelProxy - -dOMHTMLTextAreaElementDisabled :: AttrLabelProxy "disabled" -dOMHTMLTextAreaElementDisabled = AttrLabelProxy - -dOMHTMLTextAreaElementForm :: AttrLabelProxy "form" -dOMHTMLTextAreaElementForm = AttrLabelProxy - -dOMHTMLTextAreaElementLabels :: AttrLabelProxy "labels" -dOMHTMLTextAreaElementLabels = AttrLabelProxy - -dOMHTMLTextAreaElementMaxLength :: AttrLabelProxy "maxLength" -dOMHTMLTextAreaElementMaxLength = AttrLabelProxy - -dOMHTMLTextAreaElementName :: AttrLabelProxy "name" -dOMHTMLTextAreaElementName = AttrLabelProxy - -dOMHTMLTextAreaElementPlaceholder :: AttrLabelProxy "placeholder" -dOMHTMLTextAreaElementPlaceholder = AttrLabelProxy - -dOMHTMLTextAreaElementReadOnly :: AttrLabelProxy "readOnly" -dOMHTMLTextAreaElementReadOnly = AttrLabelProxy - -dOMHTMLTextAreaElementRequired :: AttrLabelProxy "required" -dOMHTMLTextAreaElementRequired = AttrLabelProxy - -dOMHTMLTextAreaElementRows :: AttrLabelProxy "rows" -dOMHTMLTextAreaElementRows = AttrLabelProxy - -dOMHTMLTextAreaElementSelectionDirection :: AttrLabelProxy "selectionDirection" -dOMHTMLTextAreaElementSelectionDirection = AttrLabelProxy - -dOMHTMLTextAreaElementSelectionEnd :: AttrLabelProxy "selectionEnd" -dOMHTMLTextAreaElementSelectionEnd = AttrLabelProxy - -dOMHTMLTextAreaElementSelectionStart :: AttrLabelProxy "selectionStart" -dOMHTMLTextAreaElementSelectionStart = AttrLabelProxy - -dOMHTMLTextAreaElementTextLength :: AttrLabelProxy "textLength" -dOMHTMLTextAreaElementTextLength = AttrLabelProxy - -dOMHTMLTextAreaElementType :: AttrLabelProxy "type" -dOMHTMLTextAreaElementType = AttrLabelProxy - -dOMHTMLTextAreaElementValidationMessage :: AttrLabelProxy "validationMessage" -dOMHTMLTextAreaElementValidationMessage = AttrLabelProxy - -dOMHTMLTextAreaElementValue :: AttrLabelProxy "value" -dOMHTMLTextAreaElementValue = AttrLabelProxy - -dOMHTMLTextAreaElementWillValidate :: AttrLabelProxy "willValidate" -dOMHTMLTextAreaElementWillValidate = AttrLabelProxy - -dOMHTMLTextAreaElementWrap :: AttrLabelProxy "wrap" -dOMHTMLTextAreaElementWrap = AttrLabelProxy - -type instance SignalList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementSignalList -type DOMHTMLTextAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTextAreaElement::get_area_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetAreaTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetAreaTypeMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetAreaType - --- method DOMHTMLTextAreaElement::get_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetAutofocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetAutofocus - --- method DOMHTMLTextAreaElement::get_cols --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTextAreaElementGetCols :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTextAreaElementGetCols _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_text_area_element_get_cols _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTextAreaElementGetColsMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetColsMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetCols - --- method DOMHTMLTextAreaElement::get_default_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetDefaultValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetDefaultValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetDefaultValue - --- method DOMHTMLTextAreaElement::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetDisabled - --- method DOMHTMLTextAreaElement::get_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetFormMethodInfo -instance (signature ~ (m DOMHTMLFormElement), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetFormMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetForm - --- method DOMHTMLTextAreaElement::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetName - --- method DOMHTMLTextAreaElement::get_read_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetReadOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetReadOnlyMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetReadOnly - --- method DOMHTMLTextAreaElement::get_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTextAreaElementGetRows :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTextAreaElementGetRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_text_area_element_get_rows _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTextAreaElementGetRowsMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetRowsMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetRows - --- method DOMHTMLTextAreaElement::get_selection_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTextAreaElementGetSelectionEnd :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTextAreaElementGetSelectionEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_text_area_element_get_selection_end _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTextAreaElementGetSelectionEndMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetSelectionEndMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetSelectionEnd - --- method DOMHTMLTextAreaElement::get_selection_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMHTMLTextAreaElementGetSelectionStart :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> m CLong -- result -dOMHTMLTextAreaElementGetSelectionStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_html_text_area_element_get_selection_start _obj' - touchManagedPtr _obj - return result - -data DOMHTMLTextAreaElementGetSelectionStartMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetSelectionStartMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetSelectionStart - --- method DOMHTMLTextAreaElement::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetValue - --- method DOMHTMLTextAreaElement::get_will_validate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementGetWillValidateMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementGetWillValidateMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementGetWillValidate - --- method DOMHTMLTextAreaElement::is_edited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTextAreaElementIsEditedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementIsEditedMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementIsEdited - --- method DOMHTMLTextAreaElement::select --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMHTMLTextAreaElementSelect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_text_area_element_select _obj' - touchManagedPtr _obj - return () - -data DOMHTMLTextAreaElementSelectMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSelectMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSelect - --- method DOMHTMLTextAreaElement::set_autofocus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTextAreaElementSetAutofocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetAutofocusMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetAutofocus - --- method DOMHTMLTextAreaElement::set_cols --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLTextAreaElementSetCols :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLTextAreaElementSetCols _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_text_area_element_set_cols _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLTextAreaElementSetColsMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetColsMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetCols - --- method DOMHTMLTextAreaElement::set_default_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTextAreaElementSetDefaultValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetDefaultValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetDefaultValue - --- method DOMHTMLTextAreaElement::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTextAreaElementSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetDisabled - --- method DOMHTMLTextAreaElement::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTextAreaElementSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetNameMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetName - --- method DOMHTMLTextAreaElement::set_read_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTextAreaElementSetReadOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetReadOnlyMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetReadOnly - --- method DOMHTMLTextAreaElement::set_rows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLTextAreaElementSetRows :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLTextAreaElementSetRows _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_text_area_element_set_rows _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLTextAreaElementSetRowsMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetRowsMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetRows - --- method DOMHTMLTextAreaElement::set_selection_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLTextAreaElementSetSelectionEnd :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLTextAreaElementSetSelectionEnd _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_text_area_element_set_selection_end _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLTextAreaElementSetSelectionEndMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionEndMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetSelectionEnd - --- method DOMHTMLTextAreaElement::set_selection_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- start : TBasicType TLong - CLong -> -- end : TBasicType TLong - CString -> -- direction : TBasicType TUTF8 - IO () - - -dOMHTMLTextAreaElementSetSelectionRange :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> CLong -- start - -> CLong -- end - -> T.Text -- direction - -> m () -- result -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 () - -data DOMHTMLTextAreaElementSetSelectionRangeMethodInfo -instance (signature ~ (CLong -> CLong -> T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionRangeMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetSelectionRange - --- method DOMHTMLTextAreaElement::set_selection_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- value : TBasicType TLong - IO () - - -dOMHTMLTextAreaElementSetSelectionStart :: - (MonadIO m, DOMHTMLTextAreaElementK a) => - a -- _obj - -> CLong -- value - -> m () -- result -dOMHTMLTextAreaElementSetSelectionStart _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_html_text_area_element_set_selection_start _obj' value - touchManagedPtr _obj - return () - -data DOMHTMLTextAreaElementSetSelectionStartMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetSelectionStartMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetSelectionStart - --- method DOMHTMLTextAreaElement::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTextAreaElementSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTextAreaElementK a) => MethodInfo DOMHTMLTextAreaElementSetValueMethodInfo a signature where - overloadedMethod _ = dOMHTMLTextAreaElementSetValue - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot +++ /dev/null @@ -1,64 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMHTMLTextAreaElementAutocompletePropertyInfo -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 -data DOMHTMLTextAreaElementGetAreaTypeMethodInfo -data DOMHTMLTextAreaElementGetAutofocusMethodInfo -data DOMHTMLTextAreaElementGetColsMethodInfo -data DOMHTMLTextAreaElementGetDefaultValueMethodInfo -data DOMHTMLTextAreaElementGetDisabledMethodInfo -data DOMHTMLTextAreaElementGetFormMethodInfo -data DOMHTMLTextAreaElementGetNameMethodInfo -data DOMHTMLTextAreaElementGetReadOnlyMethodInfo -data DOMHTMLTextAreaElementGetRowsMethodInfo -data DOMHTMLTextAreaElementGetSelectionEndMethodInfo -data DOMHTMLTextAreaElementGetSelectionStartMethodInfo -data DOMHTMLTextAreaElementGetValueMethodInfo -data DOMHTMLTextAreaElementGetWillValidateMethodInfo -data DOMHTMLTextAreaElementIsEditedMethodInfo -data DOMHTMLTextAreaElementSelectMethodInfo -data DOMHTMLTextAreaElementSetAutofocusMethodInfo -data DOMHTMLTextAreaElementSetColsMethodInfo -data DOMHTMLTextAreaElementSetDefaultValueMethodInfo -data DOMHTMLTextAreaElementSetDisabledMethodInfo -data DOMHTMLTextAreaElementSetNameMethodInfo -data DOMHTMLTextAreaElementSetReadOnlyMethodInfo -data DOMHTMLTextAreaElementSetRowsMethodInfo -data DOMHTMLTextAreaElementSetSelectionEndMethodInfo -data DOMHTMLTextAreaElementSetSelectionRangeMethodInfo -data DOMHTMLTextAreaElementSetSelectionStartMethodInfo -data DOMHTMLTextAreaElementSetValueMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs +++ /dev/null @@ -1,318 +0,0 @@ - - -{- | -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 - DOMHTMLTitleElementGetTextMethodInfo , - dOMHTMLTitleElementGetText , - - --- ** dOMHTMLTitleElementSetText - DOMHTMLTitleElementSetTextMethodInfo , - dOMHTMLTitleElementSetText , - - - - - -- * Properties --- ** Text - DOMHTMLTitleElementTextPropertyInfo , - constructDOMHTMLTitleElementText , - dOMHTMLTitleElementText , - getDOMHTMLTitleElementText , - setDOMHTMLTitleElementText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLTitleElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLTitleElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLTitleElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLTitleElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLTitleElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLTitleElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLTitleElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLTitleElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLTitleElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLTitleElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLTitleElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLTitleElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLTitleElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLTitleElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLTitleElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLTitleElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLTitleElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLTitleElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLTitleElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLTitleElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLTitleElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLTitleElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLTitleElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLTitleElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLTitleElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLTitleElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLTitleElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLTitleElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLTitleElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLTitleElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLTitleElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLTitleElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLTitleElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLTitleElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLTitleElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLTitleElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLTitleElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLTitleElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLTitleElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLTitleElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLTitleElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLTitleElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLTitleElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLTitleElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLTitleElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLTitleElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLTitleElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLTitleElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLTitleElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLTitleElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLTitleElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLTitleElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLTitleElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLTitleElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLTitleElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLTitleElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLTitleElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLTitleElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLTitleElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLTitleElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLTitleElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLTitleElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLTitleElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLTitleElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLTitleElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLTitleElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLTitleElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLTitleElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLTitleElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLTitleElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTitleElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLTitleElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLTitleElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLTitleElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLTitleElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLTitleElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLTitleElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLTitleElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLTitleElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLTitleElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLTitleElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLTitleElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLTitleElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLTitleElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLTitleElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLTitleElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLTitleElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLTitleElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLTitleElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLTitleElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLTitleElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLTitleElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLTitleElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLTitleElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLTitleElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLTitleElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLTitleElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLTitleElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLTitleElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLTitleElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLTitleElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLTitleElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLTitleElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLTitleElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLTitleElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLTitleElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLTitleElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLTitleElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLTitleElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLTitleElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLTitleElementMethod "getText" o = DOMHTMLTitleElementGetTextMethodInfo - ResolveDOMHTMLTitleElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLTitleElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLTitleElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLTitleElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLTitleElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLTitleElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLTitleElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLTitleElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLTitleElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLTitleElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLTitleElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLTitleElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLTitleElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLTitleElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLTitleElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLTitleElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLTitleElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLTitleElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLTitleElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLTitleElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLTitleElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLTitleElementMethod "setText" o = DOMHTMLTitleElementSetTextMethodInfo - ResolveDOMHTMLTitleElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLTitleElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLTitleElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLTitleElementMethod t DOMHTMLTitleElement, MethodInfo info DOMHTMLTitleElement p) => IsLabelProxy t (DOMHTMLTitleElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLTitleElementMethod t DOMHTMLTitleElement, MethodInfo info DOMHTMLTitleElement p) => IsLabel t (DOMHTMLTitleElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> m (Maybe T.Text) -getDOMHTMLTitleElementText obj = liftIO $ getObjectPropertyString obj "text" - -setDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> T.Text -> m () -setDOMHTMLTitleElementText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) - -constructDOMHTMLTitleElementText :: T.Text -> IO ([Char], GValue) -constructDOMHTMLTitleElementText val = constructObjectPropertyString "text" (Just 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 = (Maybe T.Text) - type AttrLabel DOMHTMLTitleElementTextPropertyInfo = "text" - attrGet _ = getDOMHTMLTitleElementText - attrSet _ = setDOMHTMLTitleElementText - attrConstruct _ = constructDOMHTMLTitleElementText - attrClear _ = undefined - -type instance AttributeList DOMHTMLTitleElement = DOMHTMLTitleElementAttributeList -type DOMHTMLTitleElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("text", DOMHTMLTitleElementTextPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLTitleElementText :: AttrLabelProxy "text" -dOMHTMLTitleElementText = AttrLabelProxy - -type instance SignalList DOMHTMLTitleElement = DOMHTMLTitleElementSignalList -type DOMHTMLTitleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLTitleElement::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLTitleElementGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLTitleElementK a) => MethodInfo DOMHTMLTitleElementGetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLTitleElementGetText - --- method DOMHTMLTitleElement::set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLTitleElementSetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLTitleElementK a) => MethodInfo DOMHTMLTitleElementSetTextMethodInfo a signature where - overloadedMethod _ = dOMHTMLTitleElementSetText - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLTitleElementGetTextMethodInfo -data DOMHTMLTitleElementSetTextMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs b/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs +++ /dev/null @@ -1,429 +0,0 @@ - - -{- | -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 - DOMHTMLUListElementGetCompactMethodInfo , - dOMHTMLUListElementGetCompact , - - --- ** dOMHTMLUListElementGetTypeAttr - DOMHTMLUListElementGetTypeAttrMethodInfo, - dOMHTMLUListElementGetTypeAttr , - - --- ** dOMHTMLUListElementSetCompact - DOMHTMLUListElementSetCompactMethodInfo , - dOMHTMLUListElementSetCompact , - - --- ** dOMHTMLUListElementSetTypeAttr - DOMHTMLUListElementSetTypeAttrMethodInfo, - dOMHTMLUListElementSetTypeAttr , - - - - - -- * Properties --- ** Compact - DOMHTMLUListElementCompactPropertyInfo , - constructDOMHTMLUListElementCompact , - dOMHTMLUListElementCompact , - getDOMHTMLUListElementCompact , - setDOMHTMLUListElementCompact , - - --- ** Type - DOMHTMLUListElementTypePropertyInfo , - clearDOMHTMLUListElementType , - constructDOMHTMLUListElementType , - dOMHTMLUListElementType , - getDOMHTMLUListElementType , - setDOMHTMLUListElementType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMHTMLUListElementMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMHTMLUListElementMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMHTMLUListElementMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMHTMLUListElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMHTMLUListElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMHTMLUListElementMethod "blur" o = DOMElementBlurMethodInfo - ResolveDOMHTMLUListElementMethod "click" o = DOMHTMLElementClickMethodInfo - ResolveDOMHTMLUListElementMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMHTMLUListElementMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMHTMLUListElementMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMHTMLUListElementMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMHTMLUListElementMethod "focus" o = DOMElementFocusMethodInfo - ResolveDOMHTMLUListElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMHTMLUListElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMHTMLUListElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo - ResolveDOMHTMLUListElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo - ResolveDOMHTMLUListElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo - ResolveDOMHTMLUListElementMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMHTMLUListElementMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMHTMLUListElementMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMHTMLUListElementMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMHTMLUListElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMHTMLUListElementMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMHTMLUListElementMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMHTMLUListElementMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMHTMLUListElementMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMHTMLUListElementMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMHTMLUListElementMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMHTMLUListElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMHTMLUListElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo - ResolveDOMHTMLUListElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo - ResolveDOMHTMLUListElementMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMHTMLUListElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMHTMLUListElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo - ResolveDOMHTMLUListElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo - ResolveDOMHTMLUListElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo - ResolveDOMHTMLUListElementMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMHTMLUListElementMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMHTMLUListElementMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMHTMLUListElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMHTMLUListElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMHTMLUListElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMHTMLUListElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo - ResolveDOMHTMLUListElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo - ResolveDOMHTMLUListElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo - ResolveDOMHTMLUListElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo - ResolveDOMHTMLUListElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMHTMLUListElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMHTMLUListElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMHTMLUListElementMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMHTMLUListElementMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMHTMLUListElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo - ResolveDOMHTMLUListElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo - ResolveDOMHTMLUListElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo - ResolveDOMHTMLUListElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo - ResolveDOMHTMLUListElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo - ResolveDOMHTMLUListElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo - ResolveDOMHTMLUListElementMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMHTMLUListElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo - ResolveDOMHTMLUListElementMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMHTMLUListElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo - ResolveDOMHTMLUListElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo - ResolveDOMHTMLUListElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo - ResolveDOMHTMLUListElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo - ResolveDOMHTMLUListElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo - ResolveDOMHTMLUListElementMethod "getCompact" o = DOMHTMLUListElementGetCompactMethodInfo - ResolveDOMHTMLUListElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo - ResolveDOMHTMLUListElementMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMHTMLUListElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo - ResolveDOMHTMLUListElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo - ResolveDOMHTMLUListElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLUListElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo - ResolveDOMHTMLUListElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo - ResolveDOMHTMLUListElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo - ResolveDOMHTMLUListElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo - ResolveDOMHTMLUListElementMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMHTMLUListElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo - ResolveDOMHTMLUListElementMethod "getId" o = DOMElementGetIdMethodInfo - ResolveDOMHTMLUListElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo - ResolveDOMHTMLUListElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo - ResolveDOMHTMLUListElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo - ResolveDOMHTMLUListElementMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMHTMLUListElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo - ResolveDOMHTMLUListElementMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMHTMLUListElementMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMHTMLUListElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo - ResolveDOMHTMLUListElementMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMHTMLUListElementMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMHTMLUListElementMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMHTMLUListElementMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMHTMLUListElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo - ResolveDOMHTMLUListElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo - ResolveDOMHTMLUListElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo - ResolveDOMHTMLUListElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo - ResolveDOMHTMLUListElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo - ResolveDOMHTMLUListElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo - ResolveDOMHTMLUListElementMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMHTMLUListElementMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMHTMLUListElementMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMHTMLUListElementMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMHTMLUListElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo - ResolveDOMHTMLUListElementMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMHTMLUListElementMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMHTMLUListElementMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMHTMLUListElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo - ResolveDOMHTMLUListElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo - ResolveDOMHTMLUListElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo - ResolveDOMHTMLUListElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo - ResolveDOMHTMLUListElementMethod "getStyle" o = DOMElementGetStyleMethodInfo - ResolveDOMHTMLUListElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo - ResolveDOMHTMLUListElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo - ResolveDOMHTMLUListElementMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMHTMLUListElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo - ResolveDOMHTMLUListElementMethod "getTypeAttr" o = DOMHTMLUListElementGetTypeAttrMethodInfo - ResolveDOMHTMLUListElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo - ResolveDOMHTMLUListElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo - ResolveDOMHTMLUListElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo - ResolveDOMHTMLUListElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo - ResolveDOMHTMLUListElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo - ResolveDOMHTMLUListElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo - ResolveDOMHTMLUListElementMethod "setCompact" o = DOMHTMLUListElementSetCompactMethodInfo - ResolveDOMHTMLUListElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo - ResolveDOMHTMLUListElementMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMHTMLUListElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo - ResolveDOMHTMLUListElementMethod "setId" o = DOMElementSetIdMethodInfo - ResolveDOMHTMLUListElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo - ResolveDOMHTMLUListElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo - ResolveDOMHTMLUListElementMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMHTMLUListElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo - ResolveDOMHTMLUListElementMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMHTMLUListElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMHTMLUListElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo - ResolveDOMHTMLUListElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo - ResolveDOMHTMLUListElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo - ResolveDOMHTMLUListElementMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMHTMLUListElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo - ResolveDOMHTMLUListElementMethod "setTypeAttr" o = DOMHTMLUListElementSetTypeAttrMethodInfo - ResolveDOMHTMLUListElementMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMHTMLUListElementMethod t DOMHTMLUListElement, MethodInfo info DOMHTMLUListElement p) => IsLabelProxy t (DOMHTMLUListElement -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMHTMLUListElementMethod t DOMHTMLUListElement, MethodInfo info DOMHTMLUListElement p) => IsLabel t (DOMHTMLUListElement -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "compact" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "compact" - attrGet _ = getDOMHTMLUListElementCompact - attrSet _ = setDOMHTMLUListElementCompact - attrConstruct _ = constructDOMHTMLUListElementCompact - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m (Maybe T.Text) -getDOMHTMLUListElementType obj = liftIO $ getObjectPropertyString obj "type" - -setDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> T.Text -> m () -setDOMHTMLUListElementType obj val = liftIO $ setObjectPropertyString obj "type" (Just val) - -constructDOMHTMLUListElementType :: T.Text -> IO ([Char], GValue) -constructDOMHTMLUListElementType val = constructObjectPropertyString "type" (Just val) - -clearDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m () -clearDOMHTMLUListElementType obj = liftIO $ setObjectPropertyString obj "type" (Nothing :: Maybe T.Text) - -data DOMHTMLUListElementTypePropertyInfo -instance AttrInfo DOMHTMLUListElementTypePropertyInfo where - type AttrAllowedOps DOMHTMLUListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMHTMLUListElementTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMHTMLUListElementTypePropertyInfo = DOMHTMLUListElementK - type AttrGetType DOMHTMLUListElementTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMHTMLUListElementTypePropertyInfo = "type" - attrGet _ = getDOMHTMLUListElementType - attrSet _ = setDOMHTMLUListElementType - attrConstruct _ = constructDOMHTMLUListElementType - attrClear _ = clearDOMHTMLUListElementType - -type instance AttributeList DOMHTMLUListElement = DOMHTMLUListElementAttributeList -type DOMHTMLUListElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLUListElementCompactPropertyInfo), '("contentEditable", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("outerText", DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("type", DOMHTMLUListElementTypePropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)]) - -dOMHTMLUListElementCompact :: AttrLabelProxy "compact" -dOMHTMLUListElementCompact = AttrLabelProxy - -dOMHTMLUListElementType :: AttrLabelProxy "type" -dOMHTMLUListElementType = AttrLabelProxy - -type instance SignalList DOMHTMLUListElement = DOMHTMLUListElementSignalList -type DOMHTMLUListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMHTMLUListElement::get_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLUListElementGetCompactMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMHTMLUListElementK a) => MethodInfo DOMHTMLUListElementGetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLUListElementGetCompact - --- method DOMHTMLUListElement::get_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMHTMLUListElementGetTypeAttrMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMHTMLUListElementK a) => MethodInfo DOMHTMLUListElementGetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLUListElementGetTypeAttr - --- method DOMHTMLUListElement::set_compact --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLUListElementSetCompactMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMHTMLUListElementK a) => MethodInfo DOMHTMLUListElementSetCompactMethodInfo a signature where - overloadedMethod _ = dOMHTMLUListElementSetCompact - --- method DOMHTMLUListElement::set_type_attr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMHTMLUListElementSetTypeAttrMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMHTMLUListElementK a) => MethodInfo DOMHTMLUListElementSetTypeAttrMethodInfo a signature where - overloadedMethod _ = dOMHTMLUListElementSetTypeAttr - - diff --git a/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot b/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMHTMLUListElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMHTMLUListElementGetCompactMethodInfo -data DOMHTMLUListElementGetTypeAttrMethodInfo -data DOMHTMLUListElementSetCompactMethodInfo -data DOMHTMLUListElementSetTypeAttrMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs b/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs +++ /dev/null @@ -1,670 +0,0 @@ - - -{- | -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 - DOMKeyboardEventGetAltGraphKeyMethodInfo, - dOMKeyboardEventGetAltGraphKey , - - --- ** dOMKeyboardEventGetAltKey - DOMKeyboardEventGetAltKeyMethodInfo , - dOMKeyboardEventGetAltKey , - - --- ** dOMKeyboardEventGetCtrlKey - DOMKeyboardEventGetCtrlKeyMethodInfo , - dOMKeyboardEventGetCtrlKey , - - --- ** dOMKeyboardEventGetKeyIdentifier - DOMKeyboardEventGetKeyIdentifierMethodInfo, - dOMKeyboardEventGetKeyIdentifier , - - --- ** dOMKeyboardEventGetKeyLocation - DOMKeyboardEventGetKeyLocationMethodInfo, - dOMKeyboardEventGetKeyLocation , - - --- ** dOMKeyboardEventGetMetaKey - DOMKeyboardEventGetMetaKeyMethodInfo , - dOMKeyboardEventGetMetaKey , - - --- ** dOMKeyboardEventGetModifierState - DOMKeyboardEventGetModifierStateMethodInfo, - dOMKeyboardEventGetModifierState , - - --- ** dOMKeyboardEventGetShiftKey - DOMKeyboardEventGetShiftKeyMethodInfo , - dOMKeyboardEventGetShiftKey , - - --- ** dOMKeyboardEventInitKeyboardEvent - DOMKeyboardEventInitKeyboardEventMethodInfo, - dOMKeyboardEventInitKeyboardEvent , - - - - - -- * Properties --- ** AltGraphKey - DOMKeyboardEventAltGraphKeyPropertyInfo , - dOMKeyboardEventAltGraphKey , - getDOMKeyboardEventAltGraphKey , - - --- ** AltKey - DOMKeyboardEventAltKeyPropertyInfo , - dOMKeyboardEventAltKey , - getDOMKeyboardEventAltKey , - - --- ** CtrlKey - DOMKeyboardEventCtrlKeyPropertyInfo , - dOMKeyboardEventCtrlKey , - getDOMKeyboardEventCtrlKey , - - --- ** KeyIdentifier - DOMKeyboardEventKeyIdentifierPropertyInfo, - dOMKeyboardEventKeyIdentifier , - getDOMKeyboardEventKeyIdentifier , - - --- ** KeyLocation - DOMKeyboardEventKeyLocationPropertyInfo , - dOMKeyboardEventKeyLocation , - getDOMKeyboardEventKeyLocation , - - --- ** MetaKey - DOMKeyboardEventMetaKeyPropertyInfo , - dOMKeyboardEventMetaKey , - getDOMKeyboardEventMetaKey , - - --- ** ShiftKey - DOMKeyboardEventShiftKeyPropertyInfo , - dOMKeyboardEventShiftKey , - getDOMKeyboardEventShiftKey , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMKeyboardEventMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMKeyboardEventMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMKeyboardEventMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMKeyboardEventMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMKeyboardEventMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMKeyboardEventMethod "initEvent" o = DOMEventInitEventMethodInfo - ResolveDOMKeyboardEventMethod "initKeyboardEvent" o = DOMKeyboardEventInitKeyboardEventMethodInfo - ResolveDOMKeyboardEventMethod "initUiEvent" o = DOMUIEventInitUiEventMethodInfo - ResolveDOMKeyboardEventMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMKeyboardEventMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMKeyboardEventMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMKeyboardEventMethod "preventDefault" o = DOMEventPreventDefaultMethodInfo - ResolveDOMKeyboardEventMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMKeyboardEventMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMKeyboardEventMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMKeyboardEventMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMKeyboardEventMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMKeyboardEventMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMKeyboardEventMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMKeyboardEventMethod "stopPropagation" o = DOMEventStopPropagationMethodInfo - ResolveDOMKeyboardEventMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMKeyboardEventMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMKeyboardEventMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMKeyboardEventMethod "getAltGraphKey" o = DOMKeyboardEventGetAltGraphKeyMethodInfo - ResolveDOMKeyboardEventMethod "getAltKey" o = DOMKeyboardEventGetAltKeyMethodInfo - ResolveDOMKeyboardEventMethod "getBubbles" o = DOMEventGetBubblesMethodInfo - ResolveDOMKeyboardEventMethod "getCancelBubble" o = DOMEventGetCancelBubbleMethodInfo - ResolveDOMKeyboardEventMethod "getCancelable" o = DOMEventGetCancelableMethodInfo - ResolveDOMKeyboardEventMethod "getCharCode" o = DOMUIEventGetCharCodeMethodInfo - ResolveDOMKeyboardEventMethod "getCtrlKey" o = DOMKeyboardEventGetCtrlKeyMethodInfo - ResolveDOMKeyboardEventMethod "getCurrentTarget" o = DOMEventGetCurrentTargetMethodInfo - ResolveDOMKeyboardEventMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMKeyboardEventMethod "getDetail" o = DOMUIEventGetDetailMethodInfo - ResolveDOMKeyboardEventMethod "getEventPhase" o = DOMEventGetEventPhaseMethodInfo - ResolveDOMKeyboardEventMethod "getEventType" o = DOMEventGetEventTypeMethodInfo - ResolveDOMKeyboardEventMethod "getKeyCode" o = DOMUIEventGetKeyCodeMethodInfo - ResolveDOMKeyboardEventMethod "getKeyIdentifier" o = DOMKeyboardEventGetKeyIdentifierMethodInfo - ResolveDOMKeyboardEventMethod "getKeyLocation" o = DOMKeyboardEventGetKeyLocationMethodInfo - ResolveDOMKeyboardEventMethod "getLayerX" o = DOMUIEventGetLayerXMethodInfo - ResolveDOMKeyboardEventMethod "getLayerY" o = DOMUIEventGetLayerYMethodInfo - ResolveDOMKeyboardEventMethod "getMetaKey" o = DOMKeyboardEventGetMetaKeyMethodInfo - ResolveDOMKeyboardEventMethod "getModifierState" o = DOMKeyboardEventGetModifierStateMethodInfo - ResolveDOMKeyboardEventMethod "getPageX" o = DOMUIEventGetPageXMethodInfo - ResolveDOMKeyboardEventMethod "getPageY" o = DOMUIEventGetPageYMethodInfo - ResolveDOMKeyboardEventMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMKeyboardEventMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMKeyboardEventMethod "getReturnValue" o = DOMEventGetReturnValueMethodInfo - ResolveDOMKeyboardEventMethod "getShiftKey" o = DOMKeyboardEventGetShiftKeyMethodInfo - ResolveDOMKeyboardEventMethod "getSrcElement" o = DOMEventGetSrcElementMethodInfo - ResolveDOMKeyboardEventMethod "getTarget" o = DOMEventGetTargetMethodInfo - ResolveDOMKeyboardEventMethod "getTimeStamp" o = DOMEventGetTimeStampMethodInfo - ResolveDOMKeyboardEventMethod "getView" o = DOMUIEventGetViewMethodInfo - ResolveDOMKeyboardEventMethod "setCancelBubble" o = DOMEventSetCancelBubbleMethodInfo - ResolveDOMKeyboardEventMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMKeyboardEventMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMKeyboardEventMethod "setReturnValue" o = DOMEventSetReturnValueMethodInfo - ResolveDOMKeyboardEventMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMKeyboardEventMethod t DOMKeyboardEvent, MethodInfo info DOMKeyboardEvent p) => IsLabelProxy t (DOMKeyboardEvent -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMKeyboardEventMethod t DOMKeyboardEvent, MethodInfo info DOMKeyboardEvent p) => IsLabel t (DOMKeyboardEvent -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "alt-graph-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "alt-graph-key" - attrGet _ = getDOMKeyboardEventAltGraphKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "alt-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "alt-key" - attrGet _ = getDOMKeyboardEventAltKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ctrl-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "ctrl-key" - attrGet _ = getDOMKeyboardEventCtrlKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "key-identifier" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m (Maybe T.Text) -getDOMKeyboardEventKeyIdentifier obj = liftIO $ getObjectPropertyString obj "key-identifier" - -data DOMKeyboardEventKeyIdentifierPropertyInfo -instance AttrInfo DOMKeyboardEventKeyIdentifierPropertyInfo where - type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = (Maybe T.Text) - type AttrLabel DOMKeyboardEventKeyIdentifierPropertyInfo = "key-identifier" - attrGet _ = getDOMKeyboardEventKeyIdentifier - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "key-location" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m CULong -getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyULong obj "key-location" - -data DOMKeyboardEventKeyLocationPropertyInfo -instance AttrInfo DOMKeyboardEventKeyLocationPropertyInfo where - type AttrAllowedOps DOMKeyboardEventKeyLocationPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = DOMKeyboardEventK - type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = CULong - type AttrLabel DOMKeyboardEventKeyLocationPropertyInfo = "key-location" - attrGet _ = getDOMKeyboardEventKeyLocation - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "meta-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "meta-key" - attrGet _ = getDOMKeyboardEventMetaKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "shift-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "shift-key" - attrGet _ = getDOMKeyboardEventShiftKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMKeyboardEvent = DOMKeyboardEventAttributeList -type DOMKeyboardEventAttributeList = ('[ '("altGraphKey", DOMKeyboardEventAltGraphKeyPropertyInfo), '("altKey", DOMKeyboardEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("ctrlKey", DOMKeyboardEventCtrlKeyPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("keyIdentifier", DOMKeyboardEventKeyIdentifierPropertyInfo), '("keyLocation", DOMKeyboardEventKeyLocationPropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMKeyboardEventMetaKeyPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("shiftKey", DOMKeyboardEventShiftKeyPropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)]) - -dOMKeyboardEventAltGraphKey :: AttrLabelProxy "altGraphKey" -dOMKeyboardEventAltGraphKey = AttrLabelProxy - -dOMKeyboardEventAltKey :: AttrLabelProxy "altKey" -dOMKeyboardEventAltKey = AttrLabelProxy - -dOMKeyboardEventCtrlKey :: AttrLabelProxy "ctrlKey" -dOMKeyboardEventCtrlKey = AttrLabelProxy - -dOMKeyboardEventKeyIdentifier :: AttrLabelProxy "keyIdentifier" -dOMKeyboardEventKeyIdentifier = AttrLabelProxy - -dOMKeyboardEventKeyLocation :: AttrLabelProxy "keyLocation" -dOMKeyboardEventKeyLocation = AttrLabelProxy - -dOMKeyboardEventMetaKey :: AttrLabelProxy "metaKey" -dOMKeyboardEventMetaKey = AttrLabelProxy - -dOMKeyboardEventShiftKey :: AttrLabelProxy "shiftKey" -dOMKeyboardEventShiftKey = AttrLabelProxy - -type instance SignalList DOMKeyboardEvent = DOMKeyboardEventSignalList -type DOMKeyboardEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMKeyboardEvent::get_alt_graph_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMKeyboardEventGetAltGraphKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetAltGraphKeyMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetAltGraphKey - --- method DOMKeyboardEvent::get_alt_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMKeyboardEventGetAltKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetAltKeyMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetAltKey - --- method DOMKeyboardEvent::get_ctrl_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMKeyboardEventGetCtrlKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetCtrlKeyMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetCtrlKey - --- method DOMKeyboardEvent::get_key_identifier --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMKeyboardEventGetKeyIdentifierMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetKeyIdentifierMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetKeyIdentifier - --- method DOMKeyboardEvent::get_key_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMKeyboardEventGetKeyLocation :: - (MonadIO m, DOMKeyboardEventK a) => - a -- _obj - -> m CULong -- result -dOMKeyboardEventGetKeyLocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_keyboard_event_get_key_location _obj' - touchManagedPtr _obj - return result - -data DOMKeyboardEventGetKeyLocationMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetKeyLocationMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetKeyLocation - --- method DOMKeyboardEvent::get_meta_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMKeyboardEventGetMetaKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetMetaKeyMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetMetaKey - --- method DOMKeyboardEvent::get_modifier_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyIdentifierArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMKeyboardEventGetModifierStateMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetModifierStateMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetModifierState - --- method DOMKeyboardEvent::get_shift_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMKeyboardEventGetShiftKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMKeyboardEventK a) => MethodInfo DOMKeyboardEventGetShiftKeyMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventGetShiftKey - --- method DOMKeyboardEvent::init_keyboard_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyIdentifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altGraphKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 - CULong -> -- location : TBasicType TULong - 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 - -> CULong -- location - -> Bool -- ctrlKey - -> Bool -- altKey - -> Bool -- shiftKey - -> Bool -- metaKey - -> Bool -- altGraphKey - -> m () -- result -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 () - -data DOMKeyboardEventInitKeyboardEventMethodInfo -instance (signature ~ (T.Text -> Bool -> Bool -> b -> T.Text -> CULong -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()), MonadIO m, DOMKeyboardEventK a, DOMDOMWindowK b) => MethodInfo DOMKeyboardEventInitKeyboardEventMethodInfo a signature where - overloadedMethod _ = dOMKeyboardEventInitKeyboardEvent - - diff --git a/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMKeyboardEvent where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMKeyboardEventGetAltGraphKeyMethodInfo -data DOMKeyboardEventGetAltKeyMethodInfo -data DOMKeyboardEventGetCtrlKeyMethodInfo -data DOMKeyboardEventGetKeyIdentifierMethodInfo -data DOMKeyboardEventGetKeyLocationMethodInfo -data DOMKeyboardEventGetMetaKeyMethodInfo -data DOMKeyboardEventGetModifierStateMethodInfo -data DOMKeyboardEventGetShiftKeyMethodInfo -data DOMKeyboardEventInitKeyboardEventMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMMediaList.hs b/GI/WebKit2WebExtension/Objects/DOMMediaList.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMMediaList.hs +++ /dev/null @@ -1,401 +0,0 @@ - - -{- | -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 - DOMMediaListAppendMediumMethodInfo , - dOMMediaListAppendMedium , - - --- ** dOMMediaListDeleteMedium - DOMMediaListDeleteMediumMethodInfo , - dOMMediaListDeleteMedium , - - --- ** dOMMediaListGetLength - DOMMediaListGetLengthMethodInfo , - dOMMediaListGetLength , - - --- ** dOMMediaListGetMediaText - DOMMediaListGetMediaTextMethodInfo , - dOMMediaListGetMediaText , - - --- ** dOMMediaListItem - DOMMediaListItemMethodInfo , - dOMMediaListItem , - - --- ** dOMMediaListSetMediaText - DOMMediaListSetMediaTextMethodInfo , - dOMMediaListSetMediaText , - - - - - -- * Properties --- ** Length - DOMMediaListLengthPropertyInfo , - dOMMediaListLength , - getDOMMediaListLength , - - --- ** MediaText - DOMMediaListMediaTextPropertyInfo , - clearDOMMediaListMediaText , - constructDOMMediaListMediaText , - dOMMediaListMediaText , - getDOMMediaListMediaText , - setDOMMediaListMediaText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMMediaListMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMMediaListMethod "appendMedium" o = DOMMediaListAppendMediumMethodInfo - ResolveDOMMediaListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMMediaListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMMediaListMethod "deleteMedium" o = DOMMediaListDeleteMediumMethodInfo - ResolveDOMMediaListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMMediaListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMMediaListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMMediaListMethod "item" o = DOMMediaListItemMethodInfo - ResolveDOMMediaListMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMMediaListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMMediaListMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMMediaListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMMediaListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMMediaListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMMediaListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMMediaListMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMMediaListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMMediaListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMMediaListMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMMediaListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMMediaListMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMMediaListMethod "getLength" o = DOMMediaListGetLengthMethodInfo - ResolveDOMMediaListMethod "getMediaText" o = DOMMediaListGetMediaTextMethodInfo - ResolveDOMMediaListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMMediaListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMMediaListMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMMediaListMethod "setMediaText" o = DOMMediaListSetMediaTextMethodInfo - ResolveDOMMediaListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMMediaListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMMediaListMethod t DOMMediaList, MethodInfo info DOMMediaList p) => IsLabelProxy t (DOMMediaList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMMediaListMethod t DOMMediaList, MethodInfo info DOMMediaList p) => IsLabel t (DOMMediaList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMediaListLength :: (MonadIO m, DOMMediaListK o) => o -> m CULong -getDOMMediaListLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMMediaListLengthPropertyInfo -instance AttrInfo DOMMediaListLengthPropertyInfo where - type AttrAllowedOps DOMMediaListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMediaListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMediaListLengthPropertyInfo = DOMMediaListK - type AttrGetType DOMMediaListLengthPropertyInfo = CULong - type AttrLabel DOMMediaListLengthPropertyInfo = "length" - attrGet _ = getDOMMediaListLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "media-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m (Maybe 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" (Just val) - -constructDOMMediaListMediaText :: T.Text -> IO ([Char], GValue) -constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" (Just val) - -clearDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m () -clearDOMMediaListMediaText obj = liftIO $ setObjectPropertyString obj "media-text" (Nothing :: Maybe T.Text) - -data DOMMediaListMediaTextPropertyInfo -instance AttrInfo DOMMediaListMediaTextPropertyInfo where - type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMMediaListMediaTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMMediaListMediaTextPropertyInfo = DOMMediaListK - type AttrGetType DOMMediaListMediaTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMMediaListMediaTextPropertyInfo = "media-text" - attrGet _ = getDOMMediaListMediaText - attrSet _ = setDOMMediaListMediaText - attrConstruct _ = constructDOMMediaListMediaText - attrClear _ = clearDOMMediaListMediaText - -type instance AttributeList DOMMediaList = DOMMediaListAttributeList -type DOMMediaListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMMediaListLengthPropertyInfo), '("mediaText", DOMMediaListMediaTextPropertyInfo)] :: [(Symbol, *)]) - -dOMMediaListLength :: AttrLabelProxy "length" -dOMMediaListLength = AttrLabelProxy - -dOMMediaListMediaText :: AttrLabelProxy "mediaText" -dOMMediaListMediaText = AttrLabelProxy - -type instance SignalList DOMMediaList = DOMMediaListSignalList -type DOMMediaListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMMediaList::append_medium --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMMediaListAppendMediumMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListAppendMediumMethodInfo a signature where - overloadedMethod _ = dOMMediaListAppendMedium - --- method DOMMediaList::delete_medium --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMMediaListDeleteMediumMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListDeleteMediumMethodInfo a signature where - overloadedMethod _ = dOMMediaListDeleteMedium - --- method DOMMediaList::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMMediaListGetLength :: - (MonadIO m, DOMMediaListK a) => - a -- _obj - -> m CULong -- result -dOMMediaListGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_media_list_get_length _obj' - touchManagedPtr _obj - return result - -data DOMMediaListGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListGetLengthMethodInfo a signature where - overloadedMethod _ = dOMMediaListGetLength - --- method DOMMediaList::get_media_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMediaListGetMediaTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListGetMediaTextMethodInfo a signature where - overloadedMethod _ = dOMMediaListGetMediaText - --- method DOMMediaList::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO CString - - -dOMMediaListItem :: - (MonadIO m, DOMMediaListK a) => - a -- _obj - -> CULong -- index - -> m T.Text -- result -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' - -data DOMMediaListItemMethodInfo -instance (signature ~ (CULong -> m T.Text), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListItemMethodInfo a signature where - overloadedMethod _ = dOMMediaListItem - --- method DOMMediaList::set_media_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMMediaListSetMediaTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMMediaListK a) => MethodInfo DOMMediaListSetMediaTextMethodInfo a signature where - overloadedMethod _ = dOMMediaListSetMediaText - - diff --git a/GI/WebKit2WebExtension/Objects/DOMMediaList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMMediaList.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMMediaList.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMMediaList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMMediaListAppendMediumMethodInfo -data DOMMediaListDeleteMediumMethodInfo -data DOMMediaListGetLengthMethodInfo -data DOMMediaListGetMediaTextMethodInfo -data DOMMediaListItemMethodInfo -data DOMMediaListSetMediaTextMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs b/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs +++ /dev/null @@ -1,1257 +0,0 @@ - - -{- | -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 - DOMMouseEventGetAltKeyMethodInfo , - dOMMouseEventGetAltKey , - - --- ** dOMMouseEventGetButton - DOMMouseEventGetButtonMethodInfo , - dOMMouseEventGetButton , - - --- ** dOMMouseEventGetClientX - DOMMouseEventGetClientXMethodInfo , - dOMMouseEventGetClientX , - - --- ** dOMMouseEventGetClientY - DOMMouseEventGetClientYMethodInfo , - dOMMouseEventGetClientY , - - --- ** dOMMouseEventGetCtrlKey - DOMMouseEventGetCtrlKeyMethodInfo , - dOMMouseEventGetCtrlKey , - - --- ** dOMMouseEventGetFromElement - DOMMouseEventGetFromElementMethodInfo , - dOMMouseEventGetFromElement , - - --- ** dOMMouseEventGetMetaKey - DOMMouseEventGetMetaKeyMethodInfo , - dOMMouseEventGetMetaKey , - - --- ** dOMMouseEventGetOffsetX - DOMMouseEventGetOffsetXMethodInfo , - dOMMouseEventGetOffsetX , - - --- ** dOMMouseEventGetOffsetY - DOMMouseEventGetOffsetYMethodInfo , - dOMMouseEventGetOffsetY , - - --- ** dOMMouseEventGetRelatedTarget - DOMMouseEventGetRelatedTargetMethodInfo , - dOMMouseEventGetRelatedTarget , - - --- ** dOMMouseEventGetScreenX - DOMMouseEventGetScreenXMethodInfo , - dOMMouseEventGetScreenX , - - --- ** dOMMouseEventGetScreenY - DOMMouseEventGetScreenYMethodInfo , - dOMMouseEventGetScreenY , - - --- ** dOMMouseEventGetShiftKey - DOMMouseEventGetShiftKeyMethodInfo , - dOMMouseEventGetShiftKey , - - --- ** dOMMouseEventGetToElement - DOMMouseEventGetToElementMethodInfo , - dOMMouseEventGetToElement , - - --- ** dOMMouseEventGetX - DOMMouseEventGetXMethodInfo , - dOMMouseEventGetX , - - --- ** dOMMouseEventGetY - DOMMouseEventGetYMethodInfo , - dOMMouseEventGetY , - - --- ** dOMMouseEventInitMouseEvent - DOMMouseEventInitMouseEventMethodInfo , - dOMMouseEventInitMouseEvent , - - - - - -- * Properties --- ** AltKey - DOMMouseEventAltKeyPropertyInfo , - dOMMouseEventAltKey , - getDOMMouseEventAltKey , - - --- ** Button - DOMMouseEventButtonPropertyInfo , - dOMMouseEventButton , - getDOMMouseEventButton , - - --- ** ClientX - DOMMouseEventClientXPropertyInfo , - dOMMouseEventClientX , - getDOMMouseEventClientX , - - --- ** ClientY - DOMMouseEventClientYPropertyInfo , - dOMMouseEventClientY , - getDOMMouseEventClientY , - - --- ** CtrlKey - DOMMouseEventCtrlKeyPropertyInfo , - dOMMouseEventCtrlKey , - getDOMMouseEventCtrlKey , - - --- ** FromElement - DOMMouseEventFromElementPropertyInfo , - dOMMouseEventFromElement , - getDOMMouseEventFromElement , - - --- ** MetaKey - DOMMouseEventMetaKeyPropertyInfo , - dOMMouseEventMetaKey , - getDOMMouseEventMetaKey , - - --- ** MovementX - DOMMouseEventMovementXPropertyInfo , - dOMMouseEventMovementX , - getDOMMouseEventMovementX , - - --- ** MovementY - DOMMouseEventMovementYPropertyInfo , - dOMMouseEventMovementY , - getDOMMouseEventMovementY , - - --- ** OffsetX - DOMMouseEventOffsetXPropertyInfo , - dOMMouseEventOffsetX , - getDOMMouseEventOffsetX , - - --- ** OffsetY - DOMMouseEventOffsetYPropertyInfo , - dOMMouseEventOffsetY , - getDOMMouseEventOffsetY , - - --- ** RelatedTarget - DOMMouseEventRelatedTargetPropertyInfo , - dOMMouseEventRelatedTarget , - getDOMMouseEventRelatedTarget , - - --- ** ScreenX - DOMMouseEventScreenXPropertyInfo , - dOMMouseEventScreenX , - getDOMMouseEventScreenX , - - --- ** ScreenY - DOMMouseEventScreenYPropertyInfo , - dOMMouseEventScreenY , - getDOMMouseEventScreenY , - - --- ** ShiftKey - DOMMouseEventShiftKeyPropertyInfo , - dOMMouseEventShiftKey , - getDOMMouseEventShiftKey , - - --- ** ToElement - DOMMouseEventToElementPropertyInfo , - dOMMouseEventToElement , - getDOMMouseEventToElement , - - --- ** X - DOMMouseEventXPropertyInfo , - dOMMouseEventX , - getDOMMouseEventX , - - --- ** Y - DOMMouseEventYPropertyInfo , - dOMMouseEventY , - getDOMMouseEventY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMMouseEventMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMMouseEventMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMMouseEventMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMMouseEventMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMMouseEventMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMMouseEventMethod "initEvent" o = DOMEventInitEventMethodInfo - ResolveDOMMouseEventMethod "initMouseEvent" o = DOMMouseEventInitMouseEventMethodInfo - ResolveDOMMouseEventMethod "initUiEvent" o = DOMUIEventInitUiEventMethodInfo - ResolveDOMMouseEventMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMMouseEventMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMMouseEventMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMMouseEventMethod "preventDefault" o = DOMEventPreventDefaultMethodInfo - ResolveDOMMouseEventMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMMouseEventMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMMouseEventMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMMouseEventMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMMouseEventMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMMouseEventMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMMouseEventMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMMouseEventMethod "stopPropagation" o = DOMEventStopPropagationMethodInfo - ResolveDOMMouseEventMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMMouseEventMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMMouseEventMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMMouseEventMethod "getAltKey" o = DOMMouseEventGetAltKeyMethodInfo - ResolveDOMMouseEventMethod "getBubbles" o = DOMEventGetBubblesMethodInfo - ResolveDOMMouseEventMethod "getButton" o = DOMMouseEventGetButtonMethodInfo - ResolveDOMMouseEventMethod "getCancelBubble" o = DOMEventGetCancelBubbleMethodInfo - ResolveDOMMouseEventMethod "getCancelable" o = DOMEventGetCancelableMethodInfo - ResolveDOMMouseEventMethod "getCharCode" o = DOMUIEventGetCharCodeMethodInfo - ResolveDOMMouseEventMethod "getClientX" o = DOMMouseEventGetClientXMethodInfo - ResolveDOMMouseEventMethod "getClientY" o = DOMMouseEventGetClientYMethodInfo - ResolveDOMMouseEventMethod "getCtrlKey" o = DOMMouseEventGetCtrlKeyMethodInfo - ResolveDOMMouseEventMethod "getCurrentTarget" o = DOMEventGetCurrentTargetMethodInfo - ResolveDOMMouseEventMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMMouseEventMethod "getDetail" o = DOMUIEventGetDetailMethodInfo - ResolveDOMMouseEventMethod "getEventPhase" o = DOMEventGetEventPhaseMethodInfo - ResolveDOMMouseEventMethod "getEventType" o = DOMEventGetEventTypeMethodInfo - ResolveDOMMouseEventMethod "getFromElement" o = DOMMouseEventGetFromElementMethodInfo - ResolveDOMMouseEventMethod "getKeyCode" o = DOMUIEventGetKeyCodeMethodInfo - ResolveDOMMouseEventMethod "getLayerX" o = DOMUIEventGetLayerXMethodInfo - ResolveDOMMouseEventMethod "getLayerY" o = DOMUIEventGetLayerYMethodInfo - ResolveDOMMouseEventMethod "getMetaKey" o = DOMMouseEventGetMetaKeyMethodInfo - ResolveDOMMouseEventMethod "getOffsetX" o = DOMMouseEventGetOffsetXMethodInfo - ResolveDOMMouseEventMethod "getOffsetY" o = DOMMouseEventGetOffsetYMethodInfo - ResolveDOMMouseEventMethod "getPageX" o = DOMUIEventGetPageXMethodInfo - ResolveDOMMouseEventMethod "getPageY" o = DOMUIEventGetPageYMethodInfo - ResolveDOMMouseEventMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMMouseEventMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMMouseEventMethod "getRelatedTarget" o = DOMMouseEventGetRelatedTargetMethodInfo - ResolveDOMMouseEventMethod "getReturnValue" o = DOMEventGetReturnValueMethodInfo - ResolveDOMMouseEventMethod "getScreenX" o = DOMMouseEventGetScreenXMethodInfo - ResolveDOMMouseEventMethod "getScreenY" o = DOMMouseEventGetScreenYMethodInfo - ResolveDOMMouseEventMethod "getShiftKey" o = DOMMouseEventGetShiftKeyMethodInfo - ResolveDOMMouseEventMethod "getSrcElement" o = DOMEventGetSrcElementMethodInfo - ResolveDOMMouseEventMethod "getTarget" o = DOMEventGetTargetMethodInfo - ResolveDOMMouseEventMethod "getTimeStamp" o = DOMEventGetTimeStampMethodInfo - ResolveDOMMouseEventMethod "getToElement" o = DOMMouseEventGetToElementMethodInfo - ResolveDOMMouseEventMethod "getView" o = DOMUIEventGetViewMethodInfo - ResolveDOMMouseEventMethod "getX" o = DOMMouseEventGetXMethodInfo - ResolveDOMMouseEventMethod "getY" o = DOMMouseEventGetYMethodInfo - ResolveDOMMouseEventMethod "setCancelBubble" o = DOMEventSetCancelBubbleMethodInfo - ResolveDOMMouseEventMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMMouseEventMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMMouseEventMethod "setReturnValue" o = DOMEventSetReturnValueMethodInfo - ResolveDOMMouseEventMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMMouseEventMethod t DOMMouseEvent, MethodInfo info DOMMouseEvent p) => IsLabelProxy t (DOMMouseEvent -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMMouseEventMethod t DOMMouseEvent, MethodInfo info DOMMouseEvent p) => IsLabel t (DOMMouseEvent -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "alt-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "alt-key" - attrGet _ = getDOMMouseEventAltKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "button" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMMouseEventButton :: (MonadIO m, DOMMouseEventK o) => o -> m Word32 -getDOMMouseEventButton obj = liftIO $ getObjectPropertyUInt32 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 = "button" - attrGet _ = getDOMMouseEventButton - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "client-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventClientX obj = liftIO $ getObjectPropertyLong obj "client-x" - -data DOMMouseEventClientXPropertyInfo -instance AttrInfo DOMMouseEventClientXPropertyInfo where - type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventClientXPropertyInfo = CLong - type AttrLabel DOMMouseEventClientXPropertyInfo = "client-x" - attrGet _ = getDOMMouseEventClientX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "client-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventClientY obj = liftIO $ getObjectPropertyLong obj "client-y" - -data DOMMouseEventClientYPropertyInfo -instance AttrInfo DOMMouseEventClientYPropertyInfo where - type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventClientYPropertyInfo = CLong - type AttrLabel DOMMouseEventClientYPropertyInfo = "client-y" - attrGet _ = getDOMMouseEventClientY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "ctrl-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "ctrl-key" - attrGet _ = getDOMMouseEventCtrlKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "from-element" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventFromElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode -getDOMMouseEventFromElement obj = liftIO $ checkUnexpectedNothing "getDOMMouseEventFromElement" $ getObjectPropertyObject obj "from-element" DOMNode - -data DOMMouseEventFromElementPropertyInfo -instance AttrInfo DOMMouseEventFromElementPropertyInfo where - type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventFromElementPropertyInfo = DOMNode - type AttrLabel DOMMouseEventFromElementPropertyInfo = "from-element" - attrGet _ = getDOMMouseEventFromElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "meta-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "meta-key" - attrGet _ = getDOMMouseEventMetaKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "movement-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMMouseEventMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventMovementX obj = liftIO $ getObjectPropertyLong obj "movement-x" - -data DOMMouseEventMovementXPropertyInfo -instance AttrInfo DOMMouseEventMovementXPropertyInfo where - type AttrAllowedOps DOMMouseEventMovementXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventMovementXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventMovementXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventMovementXPropertyInfo = CLong - type AttrLabel DOMMouseEventMovementXPropertyInfo = "movement-x" - attrGet _ = getDOMMouseEventMovementX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "movement-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMMouseEventMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventMovementY obj = liftIO $ getObjectPropertyLong obj "movement-y" - -data DOMMouseEventMovementYPropertyInfo -instance AttrInfo DOMMouseEventMovementYPropertyInfo where - type AttrAllowedOps DOMMouseEventMovementYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventMovementYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventMovementYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventMovementYPropertyInfo = CLong - type AttrLabel DOMMouseEventMovementYPropertyInfo = "movement-y" - attrGet _ = getDOMMouseEventMovementY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "offset-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyLong obj "offset-x" - -data DOMMouseEventOffsetXPropertyInfo -instance AttrInfo DOMMouseEventOffsetXPropertyInfo where - type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventOffsetXPropertyInfo = CLong - type AttrLabel DOMMouseEventOffsetXPropertyInfo = "offset-x" - attrGet _ = getDOMMouseEventOffsetX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "offset-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyLong obj "offset-y" - -data DOMMouseEventOffsetYPropertyInfo -instance AttrInfo DOMMouseEventOffsetYPropertyInfo where - type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventOffsetYPropertyInfo = CLong - type AttrLabel DOMMouseEventOffsetYPropertyInfo = "offset-y" - attrGet _ = getDOMMouseEventOffsetY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "related-target" - -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m (Maybe DOMEventTarget) -getDOMMouseEventRelatedTarget obj = liftIO $ getObjectPropertyObject obj "related-target" DOMEventTarget - -data DOMMouseEventRelatedTargetPropertyInfo -instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where - type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = (Maybe DOMEventTarget) - type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "related-target" - attrGet _ = getDOMMouseEventRelatedTarget - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "screen-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyLong obj "screen-x" - -data DOMMouseEventScreenXPropertyInfo -instance AttrInfo DOMMouseEventScreenXPropertyInfo where - type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventScreenXPropertyInfo = CLong - type AttrLabel DOMMouseEventScreenXPropertyInfo = "screen-x" - attrGet _ = getDOMMouseEventScreenX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "screen-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyLong obj "screen-y" - -data DOMMouseEventScreenYPropertyInfo -instance AttrInfo DOMMouseEventScreenYPropertyInfo where - type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventScreenYPropertyInfo = CLong - type AttrLabel DOMMouseEventScreenYPropertyInfo = "screen-y" - attrGet _ = getDOMMouseEventScreenY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "shift-key" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "shift-key" - attrGet _ = getDOMMouseEventShiftKey - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "to-element" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventToElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode -getDOMMouseEventToElement obj = liftIO $ checkUnexpectedNothing "getDOMMouseEventToElement" $ getObjectPropertyObject obj "to-element" DOMNode - -data DOMMouseEventToElementPropertyInfo -instance AttrInfo DOMMouseEventToElementPropertyInfo where - type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventToElementPropertyInfo = DOMNode - type AttrLabel DOMMouseEventToElementPropertyInfo = "to-element" - attrGet _ = getDOMMouseEventToElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventX obj = liftIO $ getObjectPropertyLong obj "x" - -data DOMMouseEventXPropertyInfo -instance AttrInfo DOMMouseEventXPropertyInfo where - type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventXPropertyInfo = CLong - type AttrLabel DOMMouseEventXPropertyInfo = "x" - attrGet _ = getDOMMouseEventX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m CLong -getDOMMouseEventY obj = liftIO $ getObjectPropertyLong obj "y" - -data DOMMouseEventYPropertyInfo -instance AttrInfo DOMMouseEventYPropertyInfo where - type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = DOMMouseEventK - type AttrGetType DOMMouseEventYPropertyInfo = CLong - type AttrLabel DOMMouseEventYPropertyInfo = "y" - attrGet _ = getDOMMouseEventY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMMouseEvent = DOMMouseEventAttributeList -type DOMMouseEventAttributeList = ('[ '("altKey", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("clientX", DOMMouseEventClientXPropertyInfo), '("clientY", DOMMouseEventClientYPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("ctrlKey", DOMMouseEventCtrlKeyPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("fromElement", DOMMouseEventFromElementPropertyInfo), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMMouseEventMetaKeyPropertyInfo), '("movementX", DOMMouseEventMovementXPropertyInfo), '("movementY", DOMMouseEventMovementYPropertyInfo), '("offsetX", DOMMouseEventOffsetXPropertyInfo), '("offsetY", DOMMouseEventOffsetYPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("relatedTarget", DOMMouseEventRelatedTargetPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("screenX", DOMMouseEventScreenXPropertyInfo), '("screenY", DOMMouseEventScreenYPropertyInfo), '("shiftKey", DOMMouseEventShiftKeyPropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("toElement", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) - -dOMMouseEventAltKey :: AttrLabelProxy "altKey" -dOMMouseEventAltKey = AttrLabelProxy - -dOMMouseEventButton :: AttrLabelProxy "button" -dOMMouseEventButton = AttrLabelProxy - -dOMMouseEventClientX :: AttrLabelProxy "clientX" -dOMMouseEventClientX = AttrLabelProxy - -dOMMouseEventClientY :: AttrLabelProxy "clientY" -dOMMouseEventClientY = AttrLabelProxy - -dOMMouseEventCtrlKey :: AttrLabelProxy "ctrlKey" -dOMMouseEventCtrlKey = AttrLabelProxy - -dOMMouseEventFromElement :: AttrLabelProxy "fromElement" -dOMMouseEventFromElement = AttrLabelProxy - -dOMMouseEventMetaKey :: AttrLabelProxy "metaKey" -dOMMouseEventMetaKey = AttrLabelProxy - -dOMMouseEventMovementX :: AttrLabelProxy "movementX" -dOMMouseEventMovementX = AttrLabelProxy - -dOMMouseEventMovementY :: AttrLabelProxy "movementY" -dOMMouseEventMovementY = AttrLabelProxy - -dOMMouseEventOffsetX :: AttrLabelProxy "offsetX" -dOMMouseEventOffsetX = AttrLabelProxy - -dOMMouseEventOffsetY :: AttrLabelProxy "offsetY" -dOMMouseEventOffsetY = AttrLabelProxy - -dOMMouseEventRelatedTarget :: AttrLabelProxy "relatedTarget" -dOMMouseEventRelatedTarget = AttrLabelProxy - -dOMMouseEventScreenX :: AttrLabelProxy "screenX" -dOMMouseEventScreenX = AttrLabelProxy - -dOMMouseEventScreenY :: AttrLabelProxy "screenY" -dOMMouseEventScreenY = AttrLabelProxy - -dOMMouseEventShiftKey :: AttrLabelProxy "shiftKey" -dOMMouseEventShiftKey = AttrLabelProxy - -dOMMouseEventToElement :: AttrLabelProxy "toElement" -dOMMouseEventToElement = AttrLabelProxy - -dOMMouseEventX :: AttrLabelProxy "x" -dOMMouseEventX = AttrLabelProxy - -dOMMouseEventY :: AttrLabelProxy "y" -dOMMouseEventY = AttrLabelProxy - -type instance SignalList DOMMouseEvent = DOMMouseEventSignalList -type DOMMouseEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMMouseEvent::get_alt_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMouseEventGetAltKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetAltKeyMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetAltKey - --- method DOMMouseEvent::get_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMMouseEventGetButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_button _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetButtonMethodInfo -instance (signature ~ (m Word16), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetButtonMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetButton - --- method DOMMouseEvent::get_client_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetClientX :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetClientX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_client_x _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetClientXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetClientXMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetClientX - --- method DOMMouseEvent::get_client_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetClientY :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetClientY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_client_y _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetClientYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetClientYMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetClientY - --- method DOMMouseEvent::get_ctrl_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMouseEventGetCtrlKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetCtrlKeyMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetCtrlKey - --- method DOMMouseEvent::get_from_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMouseEventGetFromElementMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetFromElementMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetFromElement - --- method DOMMouseEvent::get_meta_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMouseEventGetMetaKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetMetaKeyMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetMetaKey - --- method DOMMouseEvent::get_offset_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetOffsetX :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetOffsetX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_offset_x _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetOffsetXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetOffsetXMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetOffsetX - --- method DOMMouseEvent::get_offset_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetOffsetY :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetOffsetY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_offset_y _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetOffsetYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetOffsetYMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetOffsetY - --- method DOMMouseEvent::get_related_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMouseEventGetRelatedTargetMethodInfo -instance (signature ~ (m DOMEventTarget), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetRelatedTargetMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetRelatedTarget - --- method DOMMouseEvent::get_screen_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetScreenX :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetScreenX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_screen_x _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetScreenXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetScreenXMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetScreenX - --- method DOMMouseEvent::get_screen_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetScreenY :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetScreenY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_screen_y _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetScreenYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetScreenYMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetScreenY - --- method DOMMouseEvent::get_shift_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMouseEventGetShiftKeyMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetShiftKeyMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetShiftKey - --- method DOMMouseEvent::get_to_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMMouseEventGetToElementMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetToElementMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetToElement - --- method DOMMouseEvent::get_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetX :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_x _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetXMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetX - --- method DOMMouseEvent::get_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMMouseEventGetY :: - (MonadIO m, DOMMouseEventK a) => - a -- _obj - -> m CLong -- result -dOMMouseEventGetY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_mouse_event_get_y _obj' - touchManagedPtr _obj - return result - -data DOMMouseEventGetYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMMouseEventK a) => MethodInfo DOMMouseEventGetYMethodInfo a signature where - overloadedMethod _ = dOMMouseEventGetY - --- method DOMMouseEvent::init_mouse_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relatedTarget", argType = TInterface "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- detail : TBasicType TLong - CLong -> -- screenX : TBasicType TLong - CLong -> -- screenY : TBasicType TLong - CLong -> -- clientX : TBasicType TLong - CLong -> -- clientY : TBasicType TLong - 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 - -> CLong -- detail - -> CLong -- screenX - -> CLong -- screenY - -> CLong -- clientX - -> CLong -- clientY - -> Bool -- ctrlKey - -> Bool -- altKey - -> Bool -- shiftKey - -> Bool -- metaKey - -> Word16 -- button - -> c -- relatedTarget - -> m () -- result -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 () - -data DOMMouseEventInitMouseEventMethodInfo -instance (signature ~ (T.Text -> Bool -> Bool -> b -> CLong -> CLong -> CLong -> CLong -> CLong -> Bool -> Bool -> Bool -> Bool -> Word16 -> c -> m ()), MonadIO m, DOMMouseEventK a, DOMDOMWindowK b, DOMEventTargetK c) => MethodInfo DOMMouseEventInitMouseEventMethodInfo a signature where - overloadedMethod _ = dOMMouseEventInitMouseEvent - - diff --git a/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot +++ /dev/null @@ -1,48 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMMouseEvent where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMMouseEventGetAltKeyMethodInfo -data DOMMouseEventGetButtonMethodInfo -data DOMMouseEventGetClientXMethodInfo -data DOMMouseEventGetClientYMethodInfo -data DOMMouseEventGetCtrlKeyMethodInfo -data DOMMouseEventGetFromElementMethodInfo -data DOMMouseEventGetMetaKeyMethodInfo -data DOMMouseEventGetOffsetXMethodInfo -data DOMMouseEventGetOffsetYMethodInfo -data DOMMouseEventGetRelatedTargetMethodInfo -data DOMMouseEventGetScreenXMethodInfo -data DOMMouseEventGetScreenYMethodInfo -data DOMMouseEventGetShiftKeyMethodInfo -data DOMMouseEventGetToElementMethodInfo -data DOMMouseEventGetXMethodInfo -data DOMMouseEventGetYMethodInfo -data DOMMouseEventInitMouseEventMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs b/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs +++ /dev/null @@ -1,460 +0,0 @@ - - -{- | -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 - DOMNamedNodeMapGetLengthMethodInfo , - dOMNamedNodeMapGetLength , - - --- ** dOMNamedNodeMapGetNamedItem - DOMNamedNodeMapGetNamedItemMethodInfo , - dOMNamedNodeMapGetNamedItem , - - --- ** dOMNamedNodeMapGetNamedItemNs - DOMNamedNodeMapGetNamedItemNsMethodInfo , - dOMNamedNodeMapGetNamedItemNs , - - --- ** dOMNamedNodeMapItem - DOMNamedNodeMapItemMethodInfo , - dOMNamedNodeMapItem , - - --- ** dOMNamedNodeMapRemoveNamedItem - DOMNamedNodeMapRemoveNamedItemMethodInfo, - dOMNamedNodeMapRemoveNamedItem , - - --- ** dOMNamedNodeMapRemoveNamedItemNs - DOMNamedNodeMapRemoveNamedItemNsMethodInfo, - dOMNamedNodeMapRemoveNamedItemNs , - - --- ** dOMNamedNodeMapSetNamedItem - DOMNamedNodeMapSetNamedItemMethodInfo , - dOMNamedNodeMapSetNamedItem , - - --- ** dOMNamedNodeMapSetNamedItemNs - DOMNamedNodeMapSetNamedItemNsMethodInfo , - dOMNamedNodeMapSetNamedItemNs , - - - - - -- * Properties --- ** Length - DOMNamedNodeMapLengthPropertyInfo , - dOMNamedNodeMapLength , - getDOMNamedNodeMapLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMNamedNodeMapMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMNamedNodeMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMNamedNodeMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMNamedNodeMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMNamedNodeMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMNamedNodeMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMNamedNodeMapMethod "item" o = DOMNamedNodeMapItemMethodInfo - ResolveDOMNamedNodeMapMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMNamedNodeMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMNamedNodeMapMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMNamedNodeMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMNamedNodeMapMethod "removeNamedItem" o = DOMNamedNodeMapRemoveNamedItemMethodInfo - ResolveDOMNamedNodeMapMethod "removeNamedItemNs" o = DOMNamedNodeMapRemoveNamedItemNsMethodInfo - ResolveDOMNamedNodeMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMNamedNodeMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMNamedNodeMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMNamedNodeMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMNamedNodeMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMNamedNodeMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMNamedNodeMapMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMNamedNodeMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMNamedNodeMapMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMNamedNodeMapMethod "getLength" o = DOMNamedNodeMapGetLengthMethodInfo - ResolveDOMNamedNodeMapMethod "getNamedItem" o = DOMNamedNodeMapGetNamedItemMethodInfo - ResolveDOMNamedNodeMapMethod "getNamedItemNs" o = DOMNamedNodeMapGetNamedItemNsMethodInfo - ResolveDOMNamedNodeMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMNamedNodeMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMNamedNodeMapMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMNamedNodeMapMethod "setNamedItem" o = DOMNamedNodeMapSetNamedItemMethodInfo - ResolveDOMNamedNodeMapMethod "setNamedItemNs" o = DOMNamedNodeMapSetNamedItemNsMethodInfo - ResolveDOMNamedNodeMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMNamedNodeMapMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMNamedNodeMapMethod t DOMNamedNodeMap, MethodInfo info DOMNamedNodeMap p) => IsLabelProxy t (DOMNamedNodeMap -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMNamedNodeMapMethod t DOMNamedNodeMap, MethodInfo info DOMNamedNodeMap p) => IsLabel t (DOMNamedNodeMap -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNamedNodeMapLength :: (MonadIO m, DOMNamedNodeMapK o) => o -> m CULong -getDOMNamedNodeMapLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMNamedNodeMapLengthPropertyInfo -instance AttrInfo DOMNamedNodeMapLengthPropertyInfo where - type AttrAllowedOps DOMNamedNodeMapLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNamedNodeMapLengthPropertyInfo = DOMNamedNodeMapK - type AttrGetType DOMNamedNodeMapLengthPropertyInfo = CULong - type AttrLabel DOMNamedNodeMapLengthPropertyInfo = "length" - attrGet _ = getDOMNamedNodeMapLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMNamedNodeMap = DOMNamedNodeMapAttributeList -type DOMNamedNodeMapAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMNamedNodeMapLengthPropertyInfo)] :: [(Symbol, *)]) - -dOMNamedNodeMapLength :: AttrLabelProxy "length" -dOMNamedNodeMapLength = AttrLabelProxy - -type instance SignalList DOMNamedNodeMap = DOMNamedNodeMapSignalList -type DOMNamedNodeMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMNamedNodeMap::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMNamedNodeMapGetLength :: - (MonadIO m, DOMNamedNodeMapK a) => - a -- _obj - -> m CULong -- result -dOMNamedNodeMapGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_named_node_map_get_length _obj' - touchManagedPtr _obj - return result - -data DOMNamedNodeMapGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapGetLengthMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapGetLength - --- method DOMNamedNodeMap::get_named_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNamedNodeMapGetNamedItemMethodInfo -instance (signature ~ (T.Text -> m DOMNode), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapGetNamedItemMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapGetNamedItem - --- method DOMNamedNodeMap::get_named_item_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNamedNodeMapGetNamedItemNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMNode), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapGetNamedItemNsMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapGetNamedItemNs - --- method DOMNamedNodeMap::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO (Ptr DOMNode) - - -dOMNamedNodeMapItem :: - (MonadIO m, DOMNamedNodeMapK a) => - a -- _obj - -> CULong -- index - -> m DOMNode -- result -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' - -data DOMNamedNodeMapItemMethodInfo -instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapItemMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapItem - --- method DOMNamedNodeMap::remove_named_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMNamedNodeMapRemoveNamedItemMethodInfo -instance (signature ~ (T.Text -> m DOMNode), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapRemoveNamedItemMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapRemoveNamedItem - --- method DOMNamedNodeMap::remove_named_item_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMNamedNodeMapRemoveNamedItemNsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DOMNode), MonadIO m, DOMNamedNodeMapK a) => MethodInfo DOMNamedNodeMapRemoveNamedItemNsMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapRemoveNamedItemNs - --- method DOMNamedNodeMap::set_named_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNamedNodeMapSetNamedItemMethodInfo -instance (signature ~ (b -> m DOMNode), MonadIO m, DOMNamedNodeMapK a, DOMNodeK b) => MethodInfo DOMNamedNodeMapSetNamedItemMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapSetNamedItem - --- method DOMNamedNodeMap::set_named_item_ns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNamedNodeMapSetNamedItemNsMethodInfo -instance (signature ~ (b -> m DOMNode), MonadIO m, DOMNamedNodeMapK a, DOMNodeK b) => MethodInfo DOMNamedNodeMapSetNamedItemNsMethodInfo a signature where - overloadedMethod _ = dOMNamedNodeMapSetNamedItemNs - - diff --git a/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMNamedNodeMap where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMNamedNodeMapGetLengthMethodInfo -data DOMNamedNodeMapGetNamedItemMethodInfo -data DOMNamedNodeMapGetNamedItemNsMethodInfo -data DOMNamedNodeMapItemMethodInfo -data DOMNamedNodeMapRemoveNamedItemMethodInfo -data DOMNamedNodeMapRemoveNamedItemNsMethodInfo -data DOMNamedNodeMapSetNamedItemMethodInfo -data DOMNamedNodeMapSetNamedItemNsMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMNode.hs b/GI/WebKit2WebExtension/Objects/DOMNode.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNode.hs +++ /dev/null @@ -1,1925 +0,0 @@ - - -{- | -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 - DOMNodeAppendChildMethodInfo , - dOMNodeAppendChild , - - --- ** dOMNodeCloneNode - DOMNodeCloneNodeMethodInfo , - dOMNodeCloneNode , - - --- ** dOMNodeCompareDocumentPosition - DOMNodeCompareDocumentPositionMethodInfo, - dOMNodeCompareDocumentPosition , - - --- ** dOMNodeContains - DOMNodeContainsMethodInfo , - dOMNodeContains , - - --- ** dOMNodeGetBaseUri - DOMNodeGetBaseUriMethodInfo , - dOMNodeGetBaseUri , - - --- ** dOMNodeGetChildNodes - DOMNodeGetChildNodesMethodInfo , - dOMNodeGetChildNodes , - - --- ** dOMNodeGetFirstChild - DOMNodeGetFirstChildMethodInfo , - dOMNodeGetFirstChild , - - --- ** dOMNodeGetLastChild - DOMNodeGetLastChildMethodInfo , - dOMNodeGetLastChild , - - --- ** dOMNodeGetLocalName - DOMNodeGetLocalNameMethodInfo , - dOMNodeGetLocalName , - - --- ** dOMNodeGetNamespaceUri - DOMNodeGetNamespaceUriMethodInfo , - dOMNodeGetNamespaceUri , - - --- ** dOMNodeGetNextSibling - DOMNodeGetNextSiblingMethodInfo , - dOMNodeGetNextSibling , - - --- ** dOMNodeGetNodeName - DOMNodeGetNodeNameMethodInfo , - dOMNodeGetNodeName , - - --- ** dOMNodeGetNodeType - DOMNodeGetNodeTypeMethodInfo , - dOMNodeGetNodeType , - - --- ** dOMNodeGetNodeValue - DOMNodeGetNodeValueMethodInfo , - dOMNodeGetNodeValue , - - --- ** dOMNodeGetOwnerDocument - DOMNodeGetOwnerDocumentMethodInfo , - dOMNodeGetOwnerDocument , - - --- ** dOMNodeGetParentElement - DOMNodeGetParentElementMethodInfo , - dOMNodeGetParentElement , - - --- ** dOMNodeGetParentNode - DOMNodeGetParentNodeMethodInfo , - dOMNodeGetParentNode , - - --- ** dOMNodeGetPrefix - DOMNodeGetPrefixMethodInfo , - dOMNodeGetPrefix , - - --- ** dOMNodeGetPreviousSibling - DOMNodeGetPreviousSiblingMethodInfo , - dOMNodeGetPreviousSibling , - - --- ** dOMNodeGetTextContent - DOMNodeGetTextContentMethodInfo , - dOMNodeGetTextContent , - - --- ** dOMNodeHasChildNodes - DOMNodeHasChildNodesMethodInfo , - dOMNodeHasChildNodes , - - --- ** dOMNodeInsertBefore - DOMNodeInsertBeforeMethodInfo , - dOMNodeInsertBefore , - - --- ** dOMNodeIsDefaultNamespace - DOMNodeIsDefaultNamespaceMethodInfo , - dOMNodeIsDefaultNamespace , - - --- ** dOMNodeIsEqualNode - DOMNodeIsEqualNodeMethodInfo , - dOMNodeIsEqualNode , - - --- ** dOMNodeIsSameNode - DOMNodeIsSameNodeMethodInfo , - dOMNodeIsSameNode , - - --- ** dOMNodeIsSupported - DOMNodeIsSupportedMethodInfo , - dOMNodeIsSupported , - - --- ** dOMNodeLookupNamespaceUri - DOMNodeLookupNamespaceUriMethodInfo , - dOMNodeLookupNamespaceUri , - - --- ** dOMNodeLookupPrefix - DOMNodeLookupPrefixMethodInfo , - dOMNodeLookupPrefix , - - --- ** dOMNodeNormalize - DOMNodeNormalizeMethodInfo , - dOMNodeNormalize , - - --- ** dOMNodeRemoveChild - DOMNodeRemoveChildMethodInfo , - dOMNodeRemoveChild , - - --- ** dOMNodeReplaceChild - DOMNodeReplaceChildMethodInfo , - dOMNodeReplaceChild , - - --- ** dOMNodeSetNodeValue - DOMNodeSetNodeValueMethodInfo , - dOMNodeSetNodeValue , - - --- ** dOMNodeSetPrefix - DOMNodeSetPrefixMethodInfo , - dOMNodeSetPrefix , - - --- ** dOMNodeSetTextContent - DOMNodeSetTextContentMethodInfo , - dOMNodeSetTextContent , - - - - - -- * Properties --- ** BaseUri - DOMNodeBaseUriPropertyInfo , - dOMNodeBaseUri , - getDOMNodeBaseUri , - - --- ** ChildNodes - DOMNodeChildNodesPropertyInfo , - dOMNodeChildNodes , - getDOMNodeChildNodes , - - --- ** FirstChild - DOMNodeFirstChildPropertyInfo , - dOMNodeFirstChild , - getDOMNodeFirstChild , - - --- ** LastChild - DOMNodeLastChildPropertyInfo , - dOMNodeLastChild , - getDOMNodeLastChild , - - --- ** LocalName - DOMNodeLocalNamePropertyInfo , - dOMNodeLocalName , - getDOMNodeLocalName , - - --- ** NamespaceUri - DOMNodeNamespaceUriPropertyInfo , - dOMNodeNamespaceUri , - getDOMNodeNamespaceUri , - - --- ** NextSibling - DOMNodeNextSiblingPropertyInfo , - dOMNodeNextSibling , - getDOMNodeNextSibling , - - --- ** NodeName - DOMNodeNodeNamePropertyInfo , - dOMNodeNodeName , - getDOMNodeNodeName , - - --- ** NodeType - DOMNodeNodeTypePropertyInfo , - dOMNodeNodeType , - getDOMNodeNodeType , - - --- ** NodeValue - DOMNodeNodeValuePropertyInfo , - clearDOMNodeNodeValue , - constructDOMNodeNodeValue , - dOMNodeNodeValue , - getDOMNodeNodeValue , - setDOMNodeNodeValue , - - --- ** OwnerDocument - DOMNodeOwnerDocumentPropertyInfo , - dOMNodeOwnerDocument , - getDOMNodeOwnerDocument , - - --- ** ParentElement - DOMNodeParentElementPropertyInfo , - dOMNodeParentElement , - getDOMNodeParentElement , - - --- ** ParentNode - DOMNodeParentNodePropertyInfo , - dOMNodeParentNode , - getDOMNodeParentNode , - - --- ** Prefix - DOMNodePrefixPropertyInfo , - clearDOMNodePrefix , - constructDOMNodePrefix , - dOMNodePrefix , - getDOMNodePrefix , - setDOMNodePrefix , - - --- ** PreviousSibling - DOMNodePreviousSiblingPropertyInfo , - dOMNodePreviousSibling , - getDOMNodePreviousSibling , - - --- ** TextContent - DOMNodeTextContentPropertyInfo , - clearDOMNodeTextContent , - constructDOMNodeTextContent , - dOMNodeTextContent , - getDOMNodeTextContent , - setDOMNodeTextContent , - - --- ** TreeRoot - DOMNodeTreeRootPropertyInfo , - dOMNodeTreeRoot , - getDOMNodeTreeRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMNodeMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMNodeMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMNodeMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMNodeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMNodeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMNodeMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMNodeMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMNodeMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMNodeMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMNodeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMNodeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMNodeMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMNodeMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMNodeMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMNodeMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMNodeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMNodeMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMNodeMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMNodeMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMNodeMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMNodeMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMNodeMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMNodeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMNodeMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMNodeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMNodeMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMNodeMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMNodeMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMNodeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMNodeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMNodeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMNodeMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMNodeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMNodeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMNodeMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMNodeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMNodeMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMNodeMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMNodeMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMNodeMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMNodeMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMNodeMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMNodeMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMNodeMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMNodeMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMNodeMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMNodeMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMNodeMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMNodeMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMNodeMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMNodeMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMNodeMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMNodeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMNodeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMNodeMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMNodeMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMNodeMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMNodeMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMNodeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMNodeMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMNodeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMNodeMethod t DOMNode, MethodInfo info DOMNode p) => IsLabelProxy t (DOMNode -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMNodeMethod t DOMNode, MethodInfo info DOMNode p) => IsLabel t (DOMNode -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "base-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeBaseUri :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) -getDOMNodeBaseUri obj = liftIO $ getObjectPropertyString obj "base-uri" - -data DOMNodeBaseUriPropertyInfo -instance AttrInfo DOMNodeBaseUriPropertyInfo where - type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = DOMNodeK - type AttrGetType DOMNodeBaseUriPropertyInfo = (Maybe T.Text) - type AttrLabel DOMNodeBaseUriPropertyInfo = "base-uri" - attrGet _ = getDOMNodeBaseUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "child-nodes" - -- Type: TInterface "WebKit2WebExtension" "DOMNodeList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeChildNodes :: (MonadIO m, DOMNodeK o) => o -> m (Maybe DOMNodeList) -getDOMNodeChildNodes obj = liftIO $ getObjectPropertyObject obj "child-nodes" DOMNodeList - -data DOMNodeChildNodesPropertyInfo -instance AttrInfo DOMNodeChildNodesPropertyInfo where - type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = DOMNodeK - type AttrGetType DOMNodeChildNodesPropertyInfo = (Maybe DOMNodeList) - type AttrLabel DOMNodeChildNodesPropertyInfo = "child-nodes" - attrGet _ = getDOMNodeChildNodes - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "first-child" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeFirstChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeFirstChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeFirstChild" $ getObjectPropertyObject obj "first-child" DOMNode - -data DOMNodeFirstChildPropertyInfo -instance AttrInfo DOMNodeFirstChildPropertyInfo where - type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = DOMNodeK - type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode - type AttrLabel DOMNodeFirstChildPropertyInfo = "first-child" - attrGet _ = getDOMNodeFirstChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "last-child" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeLastChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeLastChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeLastChild" $ getObjectPropertyObject obj "last-child" DOMNode - -data DOMNodeLastChildPropertyInfo -instance AttrInfo DOMNodeLastChildPropertyInfo where - type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = DOMNodeK - type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode - type AttrLabel DOMNodeLastChildPropertyInfo = "last-child" - attrGet _ = getDOMNodeLastChild - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "local-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeLocalName :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) -getDOMNodeLocalName obj = liftIO $ getObjectPropertyString obj "local-name" - -data DOMNodeLocalNamePropertyInfo -instance AttrInfo DOMNodeLocalNamePropertyInfo where - type AttrAllowedOps DOMNodeLocalNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeLocalNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeLocalNamePropertyInfo = DOMNodeK - type AttrGetType DOMNodeLocalNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMNodeLocalNamePropertyInfo = "local-name" - attrGet _ = getDOMNodeLocalName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "namespace-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeNamespaceUri :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) -getDOMNodeNamespaceUri obj = liftIO $ getObjectPropertyString obj "namespace-uri" - -data DOMNodeNamespaceUriPropertyInfo -instance AttrInfo DOMNodeNamespaceUriPropertyInfo where - type AttrAllowedOps DOMNodeNamespaceUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeNamespaceUriPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeNamespaceUriPropertyInfo = DOMNodeK - type AttrGetType DOMNodeNamespaceUriPropertyInfo = (Maybe T.Text) - type AttrLabel DOMNodeNamespaceUriPropertyInfo = "namespace-uri" - attrGet _ = getDOMNodeNamespaceUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "next-sibling" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeNextSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeNextSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodeNextSibling" $ getObjectPropertyObject obj "next-sibling" DOMNode - -data DOMNodeNextSiblingPropertyInfo -instance AttrInfo DOMNodeNextSiblingPropertyInfo where - type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = DOMNodeK - type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode - type AttrLabel DOMNodeNextSiblingPropertyInfo = "next-sibling" - attrGet _ = getDOMNodeNextSibling - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "node-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeNodeName :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) -getDOMNodeNodeName obj = liftIO $ getObjectPropertyString obj "node-name" - -data DOMNodeNodeNamePropertyInfo -instance AttrInfo DOMNodeNodeNamePropertyInfo where - type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = DOMNodeK - type AttrGetType DOMNodeNodeNamePropertyInfo = (Maybe T.Text) - type AttrLabel DOMNodeNodeNamePropertyInfo = "node-name" - attrGet _ = getDOMNodeNodeName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "node-type" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeNodeType :: (MonadIO m, DOMNodeK o) => o -> m Word32 -getDOMNodeNodeType obj = liftIO $ getObjectPropertyUInt32 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 = "node-type" - attrGet _ = getDOMNodeNodeType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "node-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m (Maybe 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" (Just val) - -constructDOMNodeNodeValue :: T.Text -> IO ([Char], GValue) -constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" (Just val) - -clearDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m () -clearDOMNodeNodeValue obj = liftIO $ setObjectPropertyString obj "node-value" (Nothing :: Maybe T.Text) - -data DOMNodeNodeValuePropertyInfo -instance AttrInfo DOMNodeNodeValuePropertyInfo where - type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = DOMNodeK - type AttrGetType DOMNodeNodeValuePropertyInfo = (Maybe T.Text) - type AttrLabel DOMNodeNodeValuePropertyInfo = "node-value" - attrGet _ = getDOMNodeNodeValue - attrSet _ = setDOMNodeNodeValue - attrConstruct _ = constructDOMNodeNodeValue - attrClear _ = clearDOMNodeNodeValue - --- VVV Prop "owner-document" - -- Type: TInterface "WebKit2WebExtension" "DOMDocument" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeOwnerDocument :: (MonadIO m, DOMNodeK o) => o -> m DOMDocument -getDOMNodeOwnerDocument obj = liftIO $ checkUnexpectedNothing "getDOMNodeOwnerDocument" $ getObjectPropertyObject obj "owner-document" DOMDocument - -data DOMNodeOwnerDocumentPropertyInfo -instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where - type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = DOMNodeK - type AttrGetType DOMNodeOwnerDocumentPropertyInfo = DOMDocument - type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "owner-document" - attrGet _ = getDOMNodeOwnerDocument - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parent-element" - -- Type: TInterface "WebKit2WebExtension" "DOMElement" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeParentElement :: (MonadIO m, DOMNodeK o) => o -> m DOMElement -getDOMNodeParentElement obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentElement" $ getObjectPropertyObject obj "parent-element" DOMElement - -data DOMNodeParentElementPropertyInfo -instance AttrInfo DOMNodeParentElementPropertyInfo where - type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = DOMNodeK - type AttrGetType DOMNodeParentElementPropertyInfo = DOMElement - type AttrLabel DOMNodeParentElementPropertyInfo = "parent-element" - attrGet _ = getDOMNodeParentElement - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parent-node" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeParentNode :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodeParentNode obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentNode" $ getObjectPropertyObject obj "parent-node" DOMNode - -data DOMNodeParentNodePropertyInfo -instance AttrInfo DOMNodeParentNodePropertyInfo where - type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = DOMNodeK - type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode - type AttrLabel DOMNodeParentNodePropertyInfo = "parent-node" - attrGet _ = getDOMNodeParentNode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "prefix" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m (Maybe T.Text) -getDOMNodePrefix obj = liftIO $ getObjectPropertyString obj "prefix" - -setDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () -setDOMNodePrefix obj val = liftIO $ setObjectPropertyString obj "prefix" (Just val) - -constructDOMNodePrefix :: T.Text -> IO ([Char], GValue) -constructDOMNodePrefix val = constructObjectPropertyString "prefix" (Just val) - -clearDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m () -clearDOMNodePrefix obj = liftIO $ setObjectPropertyString obj "prefix" (Nothing :: Maybe T.Text) - -data DOMNodePrefixPropertyInfo -instance AttrInfo DOMNodePrefixPropertyInfo where - type AttrAllowedOps DOMNodePrefixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodePrefixPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMNodePrefixPropertyInfo = DOMNodeK - type AttrGetType DOMNodePrefixPropertyInfo = (Maybe T.Text) - type AttrLabel DOMNodePrefixPropertyInfo = "prefix" - attrGet _ = getDOMNodePrefix - attrSet _ = setDOMNodePrefix - attrConstruct _ = constructDOMNodePrefix - attrClear _ = clearDOMNodePrefix - --- VVV Prop "previous-sibling" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodePreviousSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode -getDOMNodePreviousSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodePreviousSibling" $ getObjectPropertyObject obj "previous-sibling" DOMNode - -data DOMNodePreviousSiblingPropertyInfo -instance AttrInfo DOMNodePreviousSiblingPropertyInfo where - type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = DOMNodeK - type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode - type AttrLabel DOMNodePreviousSiblingPropertyInfo = "previous-sibling" - attrGet _ = getDOMNodePreviousSibling - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "text-content" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m (Maybe 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" (Just val) - -constructDOMNodeTextContent :: T.Text -> IO ([Char], GValue) -constructDOMNodeTextContent val = constructObjectPropertyString "text-content" (Just val) - -clearDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m () -clearDOMNodeTextContent obj = liftIO $ setObjectPropertyString obj "text-content" (Nothing :: Maybe T.Text) - -data DOMNodeTextContentPropertyInfo -instance AttrInfo DOMNodeTextContentPropertyInfo where - type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = DOMNodeK - type AttrGetType DOMNodeTextContentPropertyInfo = (Maybe T.Text) - type AttrLabel DOMNodeTextContentPropertyInfo = "text-content" - attrGet _ = getDOMNodeTextContent - attrSet _ = setDOMNodeTextContent - attrConstruct _ = constructDOMNodeTextContent - attrClear _ = clearDOMNodeTextContent - --- VVV Prop "tree-root" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeTreeRoot :: (MonadIO m, DOMNodeK o) => o -> m (Maybe DOMNode) -getDOMNodeTreeRoot obj = liftIO $ getObjectPropertyObject obj "tree-root" DOMNode - -data DOMNodeTreeRootPropertyInfo -instance AttrInfo DOMNodeTreeRootPropertyInfo where - type AttrAllowedOps DOMNodeTreeRootPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeTreeRootPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeTreeRootPropertyInfo = DOMNodeK - type AttrGetType DOMNodeTreeRootPropertyInfo = (Maybe DOMNode) - type AttrLabel DOMNodeTreeRootPropertyInfo = "tree-root" - attrGet _ = getDOMNodeTreeRoot - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMNode = DOMNodeAttributeList -type DOMNodeAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) - -dOMNodeBaseUri :: AttrLabelProxy "baseUri" -dOMNodeBaseUri = AttrLabelProxy - -dOMNodeChildNodes :: AttrLabelProxy "childNodes" -dOMNodeChildNodes = AttrLabelProxy - -dOMNodeFirstChild :: AttrLabelProxy "firstChild" -dOMNodeFirstChild = AttrLabelProxy - -dOMNodeLastChild :: AttrLabelProxy "lastChild" -dOMNodeLastChild = AttrLabelProxy - -dOMNodeLocalName :: AttrLabelProxy "localName" -dOMNodeLocalName = AttrLabelProxy - -dOMNodeNamespaceUri :: AttrLabelProxy "namespaceUri" -dOMNodeNamespaceUri = AttrLabelProxy - -dOMNodeNextSibling :: AttrLabelProxy "nextSibling" -dOMNodeNextSibling = AttrLabelProxy - -dOMNodeNodeName :: AttrLabelProxy "nodeName" -dOMNodeNodeName = AttrLabelProxy - -dOMNodeNodeType :: AttrLabelProxy "nodeType" -dOMNodeNodeType = AttrLabelProxy - -dOMNodeNodeValue :: AttrLabelProxy "nodeValue" -dOMNodeNodeValue = AttrLabelProxy - -dOMNodeOwnerDocument :: AttrLabelProxy "ownerDocument" -dOMNodeOwnerDocument = AttrLabelProxy - -dOMNodeParentElement :: AttrLabelProxy "parentElement" -dOMNodeParentElement = AttrLabelProxy - -dOMNodeParentNode :: AttrLabelProxy "parentNode" -dOMNodeParentNode = AttrLabelProxy - -dOMNodePrefix :: AttrLabelProxy "prefix" -dOMNodePrefix = AttrLabelProxy - -dOMNodePreviousSibling :: AttrLabelProxy "previousSibling" -dOMNodePreviousSibling = AttrLabelProxy - -dOMNodeTextContent :: AttrLabelProxy "textContent" -dOMNodeTextContent = AttrLabelProxy - -dOMNodeTreeRoot :: AttrLabelProxy "treeRoot" -dOMNodeTreeRoot = AttrLabelProxy - -type instance SignalList DOMNode = DOMNodeSignalList -type DOMNodeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMNode::append_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNodeAppendChildMethodInfo -instance (signature ~ (b -> m DOMNode), MonadIO m, DOMNodeK a, DOMNodeK b) => MethodInfo DOMNodeAppendChildMethodInfo a signature where - overloadedMethod _ = dOMNodeAppendChild - --- method DOMNode::clone_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeCloneNodeMethodInfo -instance (signature ~ (Bool -> m DOMNode), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeCloneNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeCloneNode - --- method DOMNode::compare_document_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 - -data DOMNodeCompareDocumentPositionMethodInfo -instance (signature ~ (b -> m Word16), MonadIO m, DOMNodeK a, DOMNodeK b) => MethodInfo DOMNodeCompareDocumentPositionMethodInfo a signature where - overloadedMethod _ = dOMNodeCompareDocumentPosition - --- method DOMNode::contains --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeContainsMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, DOMNodeK a, DOMNodeK b) => MethodInfo DOMNodeContainsMethodInfo a signature where - overloadedMethod _ = dOMNodeContains - --- method DOMNode::get_base_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetBaseUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetBaseUriMethodInfo a signature where - overloadedMethod _ = dOMNodeGetBaseUri - --- method DOMNode::get_child_nodes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetChildNodesMethodInfo -instance (signature ~ (m DOMNodeList), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetChildNodesMethodInfo a signature where - overloadedMethod _ = dOMNodeGetChildNodes - --- method DOMNode::get_first_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetFirstChildMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetFirstChildMethodInfo a signature where - overloadedMethod _ = dOMNodeGetFirstChild - --- method DOMNode::get_last_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetLastChildMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetLastChildMethodInfo a signature where - overloadedMethod _ = dOMNodeGetLastChild - --- method DOMNode::get_local_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetLocalNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetLocalNameMethodInfo a signature where - overloadedMethod _ = dOMNodeGetLocalName - --- method DOMNode::get_namespace_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetNamespaceUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetNamespaceUriMethodInfo a signature where - overloadedMethod _ = dOMNodeGetNamespaceUri - --- method DOMNode::get_next_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetNextSiblingMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetNextSiblingMethodInfo a signature where - overloadedMethod _ = dOMNodeGetNextSibling - --- method DOMNode::get_node_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetNodeNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetNodeNameMethodInfo a signature where - overloadedMethod _ = dOMNodeGetNodeName - --- method DOMNode::get_node_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMNodeGetNodeType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_node_get_node_type _obj' - touchManagedPtr _obj - return result - -data DOMNodeGetNodeTypeMethodInfo -instance (signature ~ (m Word16), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetNodeTypeMethodInfo a signature where - overloadedMethod _ = dOMNodeGetNodeType - --- method DOMNode::get_node_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetNodeValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetNodeValueMethodInfo a signature where - overloadedMethod _ = dOMNodeGetNodeValue - --- method DOMNode::get_owner_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetOwnerDocumentMethodInfo -instance (signature ~ (m DOMDocument), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetOwnerDocumentMethodInfo a signature where - overloadedMethod _ = dOMNodeGetOwnerDocument - --- method DOMNode::get_parent_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetParentElementMethodInfo -instance (signature ~ (m DOMElement), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetParentElementMethodInfo a signature where - overloadedMethod _ = dOMNodeGetParentElement - --- method DOMNode::get_parent_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetParentNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetParentNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeGetParentNode - --- method DOMNode::get_prefix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetPrefixMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetPrefixMethodInfo a signature where - overloadedMethod _ = dOMNodeGetPrefix - --- method DOMNode::get_previous_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetPreviousSiblingMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetPreviousSiblingMethodInfo a signature where - overloadedMethod _ = dOMNodeGetPreviousSibling - --- method DOMNode::get_text_content --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeGetTextContentMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeGetTextContentMethodInfo a signature where - overloadedMethod _ = dOMNodeGetTextContent - --- method DOMNode::has_child_nodes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMNodeHasChildNodes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_node_has_child_nodes _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMNodeHasChildNodesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeHasChildNodesMethodInfo a signature where - overloadedMethod _ = dOMNodeHasChildNodes - --- method DOMNode::insert_before --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNodeInsertBeforeMethodInfo -instance (signature ~ (b -> Maybe (c) -> m DOMNode), MonadIO m, DOMNodeK a, DOMNodeK b, DOMNodeK c) => MethodInfo DOMNodeInsertBeforeMethodInfo a signature where - overloadedMethod _ = dOMNodeInsertBefore - --- method DOMNode::is_default_namespace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIsDefaultNamespaceMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeIsDefaultNamespaceMethodInfo a signature where - overloadedMethod _ = dOMNodeIsDefaultNamespace - --- method DOMNode::is_equal_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIsEqualNodeMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, DOMNodeK a, DOMNodeK b) => MethodInfo DOMNodeIsEqualNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeIsEqualNode - --- method DOMNode::is_same_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIsSameNodeMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, DOMNodeK a, DOMNodeK b) => MethodInfo DOMNodeIsSameNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeIsSameNode - --- method DOMNode::is_supported --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIsSupportedMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeIsSupportedMethodInfo a signature where - overloadedMethod _ = dOMNodeIsSupported - --- method DOMNode::lookup_namespace_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeLookupNamespaceUriMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeLookupNamespaceUriMethodInfo a signature where - overloadedMethod _ = dOMNodeLookupNamespaceUri - --- method DOMNode::lookup_prefix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeLookupPrefixMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeLookupPrefixMethodInfo a signature where - overloadedMethod _ = dOMNodeLookupPrefix - --- method DOMNode::normalize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMNodeNormalize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_node_normalize _obj' - touchManagedPtr _obj - return () - -data DOMNodeNormalizeMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeNormalizeMethodInfo a signature where - overloadedMethod _ = dOMNodeNormalize - --- method DOMNode::remove_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNodeRemoveChildMethodInfo -instance (signature ~ (b -> m DOMNode), MonadIO m, DOMNodeK a, DOMNodeK b) => MethodInfo DOMNodeRemoveChildMethodInfo a signature where - overloadedMethod _ = dOMNodeRemoveChild - --- method DOMNode::replace_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNodeReplaceChildMethodInfo -instance (signature ~ (b -> c -> m DOMNode), MonadIO m, DOMNodeK a, DOMNodeK b, DOMNodeK c) => MethodInfo DOMNodeReplaceChildMethodInfo a signature where - overloadedMethod _ = dOMNodeReplaceChild - --- method DOMNode::set_node_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMNodeSetNodeValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeSetNodeValueMethodInfo a signature where - overloadedMethod _ = dOMNodeSetNodeValue - --- method DOMNode::set_prefix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMNodeSetPrefixMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeSetPrefixMethodInfo a signature where - overloadedMethod _ = dOMNodeSetPrefix - --- method DOMNode::set_text_content --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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' - ) - -data DOMNodeSetTextContentMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DOMNodeK a) => MethodInfo DOMNodeSetTextContentMethodInfo a signature where - overloadedMethod _ = dOMNodeSetTextContent - - diff --git a/GI/WebKit2WebExtension/Objects/DOMNode.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNode.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNode.hs-boot +++ /dev/null @@ -1,64 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMNode where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMNodeTreeRootPropertyInfo -data DOMNodeAppendChildMethodInfo -data DOMNodeCloneNodeMethodInfo -data DOMNodeCompareDocumentPositionMethodInfo -data DOMNodeContainsMethodInfo -data DOMNodeGetBaseUriMethodInfo -data DOMNodeGetChildNodesMethodInfo -data DOMNodeGetFirstChildMethodInfo -data DOMNodeGetLastChildMethodInfo -data DOMNodeGetLocalNameMethodInfo -data DOMNodeGetNamespaceUriMethodInfo -data DOMNodeGetNextSiblingMethodInfo -data DOMNodeGetNodeNameMethodInfo -data DOMNodeGetNodeTypeMethodInfo -data DOMNodeGetNodeValueMethodInfo -data DOMNodeGetOwnerDocumentMethodInfo -data DOMNodeGetParentElementMethodInfo -data DOMNodeGetParentNodeMethodInfo -data DOMNodeGetPrefixMethodInfo -data DOMNodeGetPreviousSiblingMethodInfo -data DOMNodeGetTextContentMethodInfo -data DOMNodeHasChildNodesMethodInfo -data DOMNodeInsertBeforeMethodInfo -data DOMNodeIsDefaultNamespaceMethodInfo -data DOMNodeIsEqualNodeMethodInfo -data DOMNodeIsSameNodeMethodInfo -data DOMNodeIsSupportedMethodInfo -data DOMNodeLookupNamespaceUriMethodInfo -data DOMNodeLookupPrefixMethodInfo -data DOMNodeNormalizeMethodInfo -data DOMNodeRemoveChildMethodInfo -data DOMNodeReplaceChildMethodInfo -data DOMNodeSetNodeValueMethodInfo -data DOMNodeSetPrefixMethodInfo -data DOMNodeSetTextContentMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs b/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs +++ /dev/null @@ -1,562 +0,0 @@ - - -{- | -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 - DOMNodeIteratorDetachMethodInfo , - dOMNodeIteratorDetach , - - --- ** dOMNodeIteratorGetExpandEntityReferences - DOMNodeIteratorGetExpandEntityReferencesMethodInfo, - dOMNodeIteratorGetExpandEntityReferences, - - --- ** dOMNodeIteratorGetFilter - DOMNodeIteratorGetFilterMethodInfo , - dOMNodeIteratorGetFilter , - - --- ** dOMNodeIteratorGetPointerBeforeReferenceNode - DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo, - dOMNodeIteratorGetPointerBeforeReferenceNode, - - --- ** dOMNodeIteratorGetReferenceNode - DOMNodeIteratorGetReferenceNodeMethodInfo, - dOMNodeIteratorGetReferenceNode , - - --- ** dOMNodeIteratorGetRoot - DOMNodeIteratorGetRootMethodInfo , - dOMNodeIteratorGetRoot , - - --- ** dOMNodeIteratorGetWhatToShow - DOMNodeIteratorGetWhatToShowMethodInfo , - dOMNodeIteratorGetWhatToShow , - - --- ** dOMNodeIteratorNextNode - DOMNodeIteratorNextNodeMethodInfo , - dOMNodeIteratorNextNode , - - --- ** dOMNodeIteratorPreviousNode - DOMNodeIteratorPreviousNodeMethodInfo , - dOMNodeIteratorPreviousNode , - - - - - -- * Properties --- ** Filter - DOMNodeIteratorFilterPropertyInfo , - dOMNodeIteratorFilter , - getDOMNodeIteratorFilter , - - --- ** PointerBeforeReferenceNode - DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo, - dOMNodeIteratorPointerBeforeReferenceNode, - getDOMNodeIteratorPointerBeforeReferenceNode, - - --- ** ReferenceNode - DOMNodeIteratorReferenceNodePropertyInfo, - dOMNodeIteratorReferenceNode , - getDOMNodeIteratorReferenceNode , - - --- ** Root - DOMNodeIteratorRootPropertyInfo , - dOMNodeIteratorRoot , - getDOMNodeIteratorRoot , - - --- ** WhatToShow - DOMNodeIteratorWhatToShowPropertyInfo , - dOMNodeIteratorWhatToShow , - getDOMNodeIteratorWhatToShow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMNodeIteratorMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMNodeIteratorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMNodeIteratorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMNodeIteratorMethod "detach" o = DOMNodeIteratorDetachMethodInfo - ResolveDOMNodeIteratorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMNodeIteratorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMNodeIteratorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMNodeIteratorMethod "nextNode" o = DOMNodeIteratorNextNodeMethodInfo - ResolveDOMNodeIteratorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMNodeIteratorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMNodeIteratorMethod "previousNode" o = DOMNodeIteratorPreviousNodeMethodInfo - ResolveDOMNodeIteratorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMNodeIteratorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMNodeIteratorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMNodeIteratorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMNodeIteratorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMNodeIteratorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMNodeIteratorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMNodeIteratorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMNodeIteratorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMNodeIteratorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMNodeIteratorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMNodeIteratorMethod "getExpandEntityReferences" o = DOMNodeIteratorGetExpandEntityReferencesMethodInfo - ResolveDOMNodeIteratorMethod "getFilter" o = DOMNodeIteratorGetFilterMethodInfo - ResolveDOMNodeIteratorMethod "getPointerBeforeReferenceNode" o = DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo - ResolveDOMNodeIteratorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMNodeIteratorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMNodeIteratorMethod "getReferenceNode" o = DOMNodeIteratorGetReferenceNodeMethodInfo - ResolveDOMNodeIteratorMethod "getRoot" o = DOMNodeIteratorGetRootMethodInfo - ResolveDOMNodeIteratorMethod "getWhatToShow" o = DOMNodeIteratorGetWhatToShowMethodInfo - ResolveDOMNodeIteratorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMNodeIteratorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMNodeIteratorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMNodeIteratorMethod t DOMNodeIterator, MethodInfo info DOMNodeIterator p) => IsLabelProxy t (DOMNodeIterator -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMNodeIteratorMethod t DOMNodeIterator, MethodInfo info DOMNodeIterator p) => IsLabel t (DOMNodeIterator -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "filter" - -- Type: TInterface "WebKit2WebExtension" "DOMNodeFilter" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m (Maybe DOMNodeFilter) -getDOMNodeIteratorFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter - -data DOMNodeIteratorFilterPropertyInfo -instance AttrInfo DOMNodeIteratorFilterPropertyInfo where - type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorFilterPropertyInfo = (Maybe DOMNodeFilter) - type AttrLabel DOMNodeIteratorFilterPropertyInfo = "filter" - attrGet _ = getDOMNodeIteratorFilter - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "pointer-before-reference-node" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "pointer-before-reference-node" - attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "reference-node" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeIteratorReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode -getDOMNodeIteratorReferenceNode obj = liftIO $ checkUnexpectedNothing "getDOMNodeIteratorReferenceNode" $ getObjectPropertyObject obj "reference-node" DOMNode - -data DOMNodeIteratorReferenceNodePropertyInfo -instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where - type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = DOMNode - type AttrLabel DOMNodeIteratorReferenceNodePropertyInfo = "reference-node" - attrGet _ = getDOMNodeIteratorReferenceNode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "root" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeIteratorRoot :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode -getDOMNodeIteratorRoot obj = liftIO $ checkUnexpectedNothing "getDOMNodeIteratorRoot" $ getObjectPropertyObject obj "root" DOMNode - -data DOMNodeIteratorRootPropertyInfo -instance AttrInfo DOMNodeIteratorRootPropertyInfo where - type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorRootPropertyInfo = DOMNode - type AttrLabel DOMNodeIteratorRootPropertyInfo = "root" - attrGet _ = getDOMNodeIteratorRoot - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "what-to-show" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m CULong -getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyULong obj "what-to-show" - -data DOMNodeIteratorWhatToShowPropertyInfo -instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where - type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIteratorK - type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = CULong - type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "what-to-show" - attrGet _ = getDOMNodeIteratorWhatToShow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMNodeIterator = DOMNodeIteratorAttributeList -type DOMNodeIteratorAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointerBeforeReferenceNode", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("referenceNode", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("whatToShow", DOMNodeIteratorWhatToShowPropertyInfo)] :: [(Symbol, *)]) - -dOMNodeIteratorFilter :: AttrLabelProxy "filter" -dOMNodeIteratorFilter = AttrLabelProxy - -dOMNodeIteratorPointerBeforeReferenceNode :: AttrLabelProxy "pointerBeforeReferenceNode" -dOMNodeIteratorPointerBeforeReferenceNode = AttrLabelProxy - -dOMNodeIteratorReferenceNode :: AttrLabelProxy "referenceNode" -dOMNodeIteratorReferenceNode = AttrLabelProxy - -dOMNodeIteratorRoot :: AttrLabelProxy "root" -dOMNodeIteratorRoot = AttrLabelProxy - -dOMNodeIteratorWhatToShow :: AttrLabelProxy "whatToShow" -dOMNodeIteratorWhatToShow = AttrLabelProxy - -type instance SignalList DOMNodeIterator = DOMNodeIteratorSignalList -type DOMNodeIteratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMNodeIterator::detach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMNodeIteratorDetach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - webkit_dom_node_iterator_detach _obj' - touchManagedPtr _obj - return () - -data DOMNodeIteratorDetachMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorDetachMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorDetach - --- method DOMNodeIterator::get_expand_entity_references --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 - -{-# DEPRECATED dOMNodeIteratorGetExpandEntityReferences ["(Since version 2.12)"]#-} -dOMNodeIteratorGetExpandEntityReferences :: - (MonadIO m, DOMNodeIteratorK a) => - a -- _obj - -> m Bool -- result -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' - -data DOMNodeIteratorGetExpandEntityReferencesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetExpandEntityReferencesMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorGetExpandEntityReferences - --- method DOMNodeIterator::get_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIteratorGetFilterMethodInfo -instance (signature ~ (m DOMNodeFilter), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetFilterMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorGetFilter - --- method DOMNodeIterator::get_pointer_before_reference_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorGetPointerBeforeReferenceNode - --- method DOMNodeIterator::get_reference_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIteratorGetReferenceNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetReferenceNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorGetReferenceNode - --- method DOMNodeIterator::get_root --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMNodeIteratorGetRootMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetRootMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorGetRoot - --- method DOMNodeIterator::get_what_to_show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMNodeIteratorGetWhatToShow :: - (MonadIO m, DOMNodeIteratorK a) => - a -- _obj - -> m CULong -- result -dOMNodeIteratorGetWhatToShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_node_iterator_get_what_to_show _obj' - touchManagedPtr _obj - return result - -data DOMNodeIteratorGetWhatToShowMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorGetWhatToShowMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorGetWhatToShow - --- method DOMNodeIterator::next_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNodeIteratorNextNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorNextNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorNextNode - --- method DOMNodeIterator::previous_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMNodeIteratorPreviousNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMNodeIteratorK a) => MethodInfo DOMNodeIteratorPreviousNodeMethodInfo a signature where - overloadedMethod _ = dOMNodeIteratorPreviousNode - - diff --git a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMNodeIterator where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMNodeIteratorFilterPropertyInfo -data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo -data DOMNodeIteratorReferenceNodePropertyInfo -data DOMNodeIteratorRootPropertyInfo -data DOMNodeIteratorWhatToShowPropertyInfo -data DOMNodeIteratorDetachMethodInfo -data DOMNodeIteratorGetExpandEntityReferencesMethodInfo -data DOMNodeIteratorGetFilterMethodInfo -data DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo -data DOMNodeIteratorGetReferenceNodeMethodInfo -data DOMNodeIteratorGetRootMethodInfo -data DOMNodeIteratorGetWhatToShowMethodInfo -data DOMNodeIteratorNextNodeMethodInfo -data DOMNodeIteratorPreviousNodeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMNodeList.hs b/GI/WebKit2WebExtension/Objects/DOMNodeList.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNodeList.hs +++ /dev/null @@ -1,197 +0,0 @@ - - -{- | -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 - DOMNodeListGetLengthMethodInfo , - dOMNodeListGetLength , - - --- ** dOMNodeListItem - DOMNodeListItemMethodInfo , - dOMNodeListItem , - - - - - -- * Properties --- ** Length - DOMNodeListLengthPropertyInfo , - dOMNodeListLength , - getDOMNodeListLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMNodeListMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMNodeListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMNodeListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMNodeListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMNodeListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMNodeListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMNodeListMethod "item" o = DOMNodeListItemMethodInfo - ResolveDOMNodeListMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMNodeListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMNodeListMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMNodeListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMNodeListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMNodeListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMNodeListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMNodeListMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMNodeListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMNodeListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMNodeListMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMNodeListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMNodeListMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMNodeListMethod "getLength" o = DOMNodeListGetLengthMethodInfo - ResolveDOMNodeListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMNodeListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMNodeListMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMNodeListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMNodeListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMNodeListMethod t DOMNodeList, MethodInfo info DOMNodeList p) => IsLabelProxy t (DOMNodeList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMNodeListMethod t DOMNodeList, MethodInfo info DOMNodeList p) => IsLabel t (DOMNodeList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMNodeListLength :: (MonadIO m, DOMNodeListK o) => o -> m CULong -getDOMNodeListLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMNodeListLengthPropertyInfo -instance AttrInfo DOMNodeListLengthPropertyInfo where - type AttrAllowedOps DOMNodeListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMNodeListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMNodeListLengthPropertyInfo = DOMNodeListK - type AttrGetType DOMNodeListLengthPropertyInfo = CULong - type AttrLabel DOMNodeListLengthPropertyInfo = "length" - attrGet _ = getDOMNodeListLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMNodeList = DOMNodeListAttributeList -type DOMNodeListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMNodeListLengthPropertyInfo)] :: [(Symbol, *)]) - -dOMNodeListLength :: AttrLabelProxy "length" -dOMNodeListLength = AttrLabelProxy - -type instance SignalList DOMNodeList = DOMNodeListSignalList -type DOMNodeListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMNodeList::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMNodeListGetLength :: - (MonadIO m, DOMNodeListK a) => - a -- _obj - -> m CULong -- result -dOMNodeListGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_node_list_get_length _obj' - touchManagedPtr _obj - return result - -data DOMNodeListGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMNodeListK a) => MethodInfo DOMNodeListGetLengthMethodInfo a signature where - overloadedMethod _ = dOMNodeListGetLength - --- method DOMNodeList::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO (Ptr DOMNode) - - -dOMNodeListItem :: - (MonadIO m, DOMNodeListK a) => - a -- _obj - -> CULong -- index - -> m DOMNode -- result -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' - -data DOMNodeListItemMethodInfo -instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMNodeListK a) => MethodInfo DOMNodeListItemMethodInfo a signature where - overloadedMethod _ = dOMNodeListItem - - diff --git a/GI/WebKit2WebExtension/Objects/DOMNodeList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMNodeList.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMNodeList.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMNodeList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMNodeListGetLengthMethodInfo -data DOMNodeListItemMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMObject.hs b/GI/WebKit2WebExtension/Objects/DOMObject.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMObject.hs +++ /dev/null @@ -1,124 +0,0 @@ - - -{- | -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 , - dOMObjectCoreObject , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMObjectMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMObjectMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMObjectMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMObjectMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMObjectMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMObjectMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMObjectMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMObjectMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMObjectMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMObjectMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMObjectMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMObjectMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMObjectMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMObjectMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMObjectMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMObjectMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMObjectMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMObjectMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMObjectMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMObjectMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMObjectMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMObjectMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMObjectMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMObjectMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMObjectMethod t DOMObject, MethodInfo info DOMObject p) => IsLabelProxy t (DOMObject -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMObjectMethod t DOMObject, MethodInfo info DOMObject p) => IsLabel t (DOMObject -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "core-object" - -- Type: TBasicType TPtr - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "core-object" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDOMObjectCoreObject - attrClear _ = undefined - -type instance AttributeList DOMObject = DOMObjectAttributeList -type DOMObjectAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) - -dOMObjectCoreObject :: AttrLabelProxy "coreObject" -dOMObjectCoreObject = AttrLabelProxy - -type instance SignalList DOMObject = DOMObjectSignalList -type DOMObjectSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/WebKit2WebExtension/Objects/DOMObject.hs-boot b/GI/WebKit2WebExtension/Objects/DOMObject.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMObject.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMObject where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 diff --git a/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs b/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs +++ /dev/null @@ -1,266 +0,0 @@ - - -{- | -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 - DOMProcessingInstructionGetSheetMethodInfo, - dOMProcessingInstructionGetSheet , - - --- ** dOMProcessingInstructionGetTarget - DOMProcessingInstructionGetTargetMethodInfo, - dOMProcessingInstructionGetTarget , - - - - - -- * Properties --- ** Sheet - DOMProcessingInstructionSheetPropertyInfo, - dOMProcessingInstructionSheet , - getDOMProcessingInstructionSheet , - - --- ** Target - DOMProcessingInstructionTargetPropertyInfo, - dOMProcessingInstructionTarget , - getDOMProcessingInstructionTarget , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMProcessingInstructionMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMProcessingInstructionMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMProcessingInstructionMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMProcessingInstructionMethod "appendData" o = DOMCharacterDataAppendDataMethodInfo - ResolveDOMProcessingInstructionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMProcessingInstructionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMProcessingInstructionMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMProcessingInstructionMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMProcessingInstructionMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMProcessingInstructionMethod "deleteData" o = DOMCharacterDataDeleteDataMethodInfo - ResolveDOMProcessingInstructionMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMProcessingInstructionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMProcessingInstructionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMProcessingInstructionMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMProcessingInstructionMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMProcessingInstructionMethod "insertData" o = DOMCharacterDataInsertDataMethodInfo - ResolveDOMProcessingInstructionMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMProcessingInstructionMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMProcessingInstructionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMProcessingInstructionMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMProcessingInstructionMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMProcessingInstructionMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMProcessingInstructionMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMProcessingInstructionMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMProcessingInstructionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMProcessingInstructionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMProcessingInstructionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMProcessingInstructionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMProcessingInstructionMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMProcessingInstructionMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMProcessingInstructionMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMProcessingInstructionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMProcessingInstructionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMProcessingInstructionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMProcessingInstructionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMProcessingInstructionMethod "substringData" o = DOMCharacterDataSubstringDataMethodInfo - ResolveDOMProcessingInstructionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMProcessingInstructionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMProcessingInstructionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMProcessingInstructionMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMProcessingInstructionMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMProcessingInstructionMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMProcessingInstructionMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMProcessingInstructionMethod "getLength" o = DOMCharacterDataGetLengthMethodInfo - ResolveDOMProcessingInstructionMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMProcessingInstructionMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMProcessingInstructionMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMProcessingInstructionMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMProcessingInstructionMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMProcessingInstructionMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMProcessingInstructionMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMProcessingInstructionMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMProcessingInstructionMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMProcessingInstructionMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMProcessingInstructionMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMProcessingInstructionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMProcessingInstructionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMProcessingInstructionMethod "getSheet" o = DOMProcessingInstructionGetSheetMethodInfo - ResolveDOMProcessingInstructionMethod "getTarget" o = DOMProcessingInstructionGetTargetMethodInfo - ResolveDOMProcessingInstructionMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMProcessingInstructionMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMProcessingInstructionMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMProcessingInstructionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMProcessingInstructionMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMProcessingInstructionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMProcessingInstructionMethod t DOMProcessingInstruction, MethodInfo info DOMProcessingInstruction p) => IsLabelProxy t (DOMProcessingInstruction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMProcessingInstructionMethod t DOMProcessingInstruction, MethodInfo info DOMProcessingInstruction p) => IsLabel t (DOMProcessingInstruction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "sheet" - -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMProcessingInstructionSheet :: (MonadIO m, DOMProcessingInstructionK o) => o -> m (Maybe DOMStyleSheet) -getDOMProcessingInstructionSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet - -data DOMProcessingInstructionSheetPropertyInfo -instance AttrInfo DOMProcessingInstructionSheetPropertyInfo where - type AttrAllowedOps DOMProcessingInstructionSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMProcessingInstructionSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMProcessingInstructionSheetPropertyInfo = DOMProcessingInstructionK - type AttrGetType DOMProcessingInstructionSheetPropertyInfo = (Maybe DOMStyleSheet) - type AttrLabel DOMProcessingInstructionSheetPropertyInfo = "sheet" - attrGet _ = getDOMProcessingInstructionSheet - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "target" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMProcessingInstructionTarget :: (MonadIO m, DOMProcessingInstructionK o) => o -> m (Maybe T.Text) -getDOMProcessingInstructionTarget obj = liftIO $ getObjectPropertyString obj "target" - -data DOMProcessingInstructionTargetPropertyInfo -instance AttrInfo DOMProcessingInstructionTargetPropertyInfo where - type AttrAllowedOps DOMProcessingInstructionTargetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMProcessingInstructionTargetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMProcessingInstructionTargetPropertyInfo = DOMProcessingInstructionK - type AttrGetType DOMProcessingInstructionTargetPropertyInfo = (Maybe T.Text) - type AttrLabel DOMProcessingInstructionTargetPropertyInfo = "target" - attrGet _ = getDOMProcessingInstructionTarget - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMProcessingInstruction = DOMProcessingInstructionAttributeList -type DOMProcessingInstructionAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo)] :: [(Symbol, *)]) - -dOMProcessingInstructionSheet :: AttrLabelProxy "sheet" -dOMProcessingInstructionSheet = AttrLabelProxy - -dOMProcessingInstructionTarget :: AttrLabelProxy "target" -dOMProcessingInstructionTarget = AttrLabelProxy - -type instance SignalList DOMProcessingInstruction = DOMProcessingInstructionSignalList -type DOMProcessingInstructionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMProcessingInstruction::get_sheet --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMProcessingInstructionGetSheetMethodInfo -instance (signature ~ (m DOMStyleSheet), MonadIO m, DOMProcessingInstructionK a) => MethodInfo DOMProcessingInstructionGetSheetMethodInfo a signature where - overloadedMethod _ = dOMProcessingInstructionGetSheet - --- method DOMProcessingInstruction::get_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMProcessingInstructionGetTargetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMProcessingInstructionK a) => MethodInfo DOMProcessingInstructionGetTargetMethodInfo a signature where - overloadedMethod _ = dOMProcessingInstructionGetTarget - - diff --git a/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot b/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMProcessingInstruction where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMProcessingInstructionGetSheetMethodInfo -data DOMProcessingInstructionGetTargetMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMRange.hs b/GI/WebKit2WebExtension/Objects/DOMRange.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMRange.hs +++ /dev/null @@ -1,1533 +0,0 @@ - - -{- | -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 - DOMRangeCloneContentsMethodInfo , - dOMRangeCloneContents , - - --- ** dOMRangeCloneRange - DOMRangeCloneRangeMethodInfo , - dOMRangeCloneRange , - - --- ** dOMRangeCollapse - DOMRangeCollapseMethodInfo , - dOMRangeCollapse , - - --- ** dOMRangeCompareBoundaryPoints - DOMRangeCompareBoundaryPointsMethodInfo , - dOMRangeCompareBoundaryPoints , - - --- ** dOMRangeCompareNode - DOMRangeCompareNodeMethodInfo , - dOMRangeCompareNode , - - --- ** dOMRangeComparePoint - DOMRangeComparePointMethodInfo , - dOMRangeComparePoint , - - --- ** dOMRangeCreateContextualFragment - DOMRangeCreateContextualFragmentMethodInfo, - dOMRangeCreateContextualFragment , - - --- ** dOMRangeDeleteContents - DOMRangeDeleteContentsMethodInfo , - dOMRangeDeleteContents , - - --- ** dOMRangeDetach - DOMRangeDetachMethodInfo , - dOMRangeDetach , - - --- ** dOMRangeExtractContents - DOMRangeExtractContentsMethodInfo , - dOMRangeExtractContents , - - --- ** dOMRangeGetCollapsed - DOMRangeGetCollapsedMethodInfo , - dOMRangeGetCollapsed , - - --- ** dOMRangeGetCommonAncestorContainer - DOMRangeGetCommonAncestorContainerMethodInfo, - dOMRangeGetCommonAncestorContainer , - - --- ** dOMRangeGetEndContainer - DOMRangeGetEndContainerMethodInfo , - dOMRangeGetEndContainer , - - --- ** dOMRangeGetEndOffset - DOMRangeGetEndOffsetMethodInfo , - dOMRangeGetEndOffset , - - --- ** dOMRangeGetStartContainer - DOMRangeGetStartContainerMethodInfo , - dOMRangeGetStartContainer , - - --- ** dOMRangeGetStartOffset - DOMRangeGetStartOffsetMethodInfo , - dOMRangeGetStartOffset , - - --- ** dOMRangeGetText - DOMRangeGetTextMethodInfo , - dOMRangeGetText , - - --- ** dOMRangeInsertNode - DOMRangeInsertNodeMethodInfo , - dOMRangeInsertNode , - - --- ** dOMRangeIntersectsNode - DOMRangeIntersectsNodeMethodInfo , - dOMRangeIntersectsNode , - - --- ** dOMRangeIsPointInRange - DOMRangeIsPointInRangeMethodInfo , - dOMRangeIsPointInRange , - - --- ** dOMRangeSelectNode - DOMRangeSelectNodeMethodInfo , - dOMRangeSelectNode , - - --- ** dOMRangeSelectNodeContents - DOMRangeSelectNodeContentsMethodInfo , - dOMRangeSelectNodeContents , - - --- ** dOMRangeSetEnd - DOMRangeSetEndMethodInfo , - dOMRangeSetEnd , - - --- ** dOMRangeSetEndAfter - DOMRangeSetEndAfterMethodInfo , - dOMRangeSetEndAfter , - - --- ** dOMRangeSetEndBefore - DOMRangeSetEndBeforeMethodInfo , - dOMRangeSetEndBefore , - - --- ** dOMRangeSetStart - DOMRangeSetStartMethodInfo , - dOMRangeSetStart , - - --- ** dOMRangeSetStartAfter - DOMRangeSetStartAfterMethodInfo , - dOMRangeSetStartAfter , - - --- ** dOMRangeSetStartBefore - DOMRangeSetStartBeforeMethodInfo , - dOMRangeSetStartBefore , - - --- ** dOMRangeSurroundContents - DOMRangeSurroundContentsMethodInfo , - dOMRangeSurroundContents , - - --- ** dOMRangeToString - DOMRangeToStringMethodInfo , - dOMRangeToString , - - - - - -- * Properties --- ** Collapsed - DOMRangeCollapsedPropertyInfo , - dOMRangeCollapsed , - getDOMRangeCollapsed , - - --- ** CommonAncestorContainer - DOMRangeCommonAncestorContainerPropertyInfo, - dOMRangeCommonAncestorContainer , - getDOMRangeCommonAncestorContainer , - - --- ** EndContainer - DOMRangeEndContainerPropertyInfo , - dOMRangeEndContainer , - getDOMRangeEndContainer , - - --- ** EndOffset - DOMRangeEndOffsetPropertyInfo , - dOMRangeEndOffset , - getDOMRangeEndOffset , - - --- ** StartContainer - DOMRangeStartContainerPropertyInfo , - dOMRangeStartContainer , - getDOMRangeStartContainer , - - --- ** StartOffset - DOMRangeStartOffsetPropertyInfo , - dOMRangeStartOffset , - getDOMRangeStartOffset , - - --- ** Text - DOMRangeTextPropertyInfo , - dOMRangeText , - getDOMRangeText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMRangeMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMRangeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMRangeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMRangeMethod "cloneContents" o = DOMRangeCloneContentsMethodInfo - ResolveDOMRangeMethod "cloneRange" o = DOMRangeCloneRangeMethodInfo - ResolveDOMRangeMethod "collapse" o = DOMRangeCollapseMethodInfo - ResolveDOMRangeMethod "compareBoundaryPoints" o = DOMRangeCompareBoundaryPointsMethodInfo - ResolveDOMRangeMethod "compareNode" o = DOMRangeCompareNodeMethodInfo - ResolveDOMRangeMethod "comparePoint" o = DOMRangeComparePointMethodInfo - ResolveDOMRangeMethod "createContextualFragment" o = DOMRangeCreateContextualFragmentMethodInfo - ResolveDOMRangeMethod "deleteContents" o = DOMRangeDeleteContentsMethodInfo - ResolveDOMRangeMethod "detach" o = DOMRangeDetachMethodInfo - ResolveDOMRangeMethod "extractContents" o = DOMRangeExtractContentsMethodInfo - ResolveDOMRangeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMRangeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMRangeMethod "insertNode" o = DOMRangeInsertNodeMethodInfo - ResolveDOMRangeMethod "intersectsNode" o = DOMRangeIntersectsNodeMethodInfo - ResolveDOMRangeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMRangeMethod "isPointInRange" o = DOMRangeIsPointInRangeMethodInfo - ResolveDOMRangeMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMRangeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMRangeMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMRangeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMRangeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMRangeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMRangeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMRangeMethod "selectNode" o = DOMRangeSelectNodeMethodInfo - ResolveDOMRangeMethod "selectNodeContents" o = DOMRangeSelectNodeContentsMethodInfo - ResolveDOMRangeMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMRangeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMRangeMethod "surroundContents" o = DOMRangeSurroundContentsMethodInfo - ResolveDOMRangeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMRangeMethod "toString" o = DOMRangeToStringMethodInfo - ResolveDOMRangeMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMRangeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMRangeMethod "getCollapsed" o = DOMRangeGetCollapsedMethodInfo - ResolveDOMRangeMethod "getCommonAncestorContainer" o = DOMRangeGetCommonAncestorContainerMethodInfo - ResolveDOMRangeMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMRangeMethod "getEndContainer" o = DOMRangeGetEndContainerMethodInfo - ResolveDOMRangeMethod "getEndOffset" o = DOMRangeGetEndOffsetMethodInfo - ResolveDOMRangeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMRangeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMRangeMethod "getStartContainer" o = DOMRangeGetStartContainerMethodInfo - ResolveDOMRangeMethod "getStartOffset" o = DOMRangeGetStartOffsetMethodInfo - ResolveDOMRangeMethod "getText" o = DOMRangeGetTextMethodInfo - ResolveDOMRangeMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMRangeMethod "setEnd" o = DOMRangeSetEndMethodInfo - ResolveDOMRangeMethod "setEndAfter" o = DOMRangeSetEndAfterMethodInfo - ResolveDOMRangeMethod "setEndBefore" o = DOMRangeSetEndBeforeMethodInfo - ResolveDOMRangeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMRangeMethod "setStart" o = DOMRangeSetStartMethodInfo - ResolveDOMRangeMethod "setStartAfter" o = DOMRangeSetStartAfterMethodInfo - ResolveDOMRangeMethod "setStartBefore" o = DOMRangeSetStartBeforeMethodInfo - ResolveDOMRangeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMRangeMethod t DOMRange, MethodInfo info DOMRange p) => IsLabelProxy t (DOMRange -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMRangeMethod t DOMRange, MethodInfo info DOMRange p) => IsLabel t (DOMRange -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "collapsed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "collapsed" - attrGet _ = getDOMRangeCollapsed - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "common-ancestor-container" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMRangeCommonAncestorContainer :: (MonadIO m, DOMRangeK o) => o -> m (Maybe DOMNode) -getDOMRangeCommonAncestorContainer obj = liftIO $ getObjectPropertyObject obj "common-ancestor-container" DOMNode - -data DOMRangeCommonAncestorContainerPropertyInfo -instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where - type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = (Maybe DOMNode) - type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "common-ancestor-container" - attrGet _ = getDOMRangeCommonAncestorContainer - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "end-container" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMRangeEndContainer :: (MonadIO m, DOMRangeK o) => o -> m (Maybe DOMNode) -getDOMRangeEndContainer obj = liftIO $ getObjectPropertyObject obj "end-container" DOMNode - -data DOMRangeEndContainerPropertyInfo -instance AttrInfo DOMRangeEndContainerPropertyInfo where - type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeEndContainerPropertyInfo = (Maybe DOMNode) - type AttrLabel DOMRangeEndContainerPropertyInfo = "end-container" - attrGet _ = getDOMRangeEndContainer - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "end-offset" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMRangeEndOffset :: (MonadIO m, DOMRangeK o) => o -> m CLong -getDOMRangeEndOffset obj = liftIO $ getObjectPropertyLong obj "end-offset" - -data DOMRangeEndOffsetPropertyInfo -instance AttrInfo DOMRangeEndOffsetPropertyInfo where - type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = DOMRangeK - type AttrGetType DOMRangeEndOffsetPropertyInfo = CLong - type AttrLabel DOMRangeEndOffsetPropertyInfo = "end-offset" - attrGet _ = getDOMRangeEndOffset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "start-container" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMRangeStartContainer :: (MonadIO m, DOMRangeK o) => o -> m (Maybe DOMNode) -getDOMRangeStartContainer obj = liftIO $ getObjectPropertyObject obj "start-container" DOMNode - -data DOMRangeStartContainerPropertyInfo -instance AttrInfo DOMRangeStartContainerPropertyInfo where - type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = DOMRangeK - type AttrGetType DOMRangeStartContainerPropertyInfo = (Maybe DOMNode) - type AttrLabel DOMRangeStartContainerPropertyInfo = "start-container" - attrGet _ = getDOMRangeStartContainer - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "start-offset" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMRangeStartOffset :: (MonadIO m, DOMRangeK o) => o -> m CLong -getDOMRangeStartOffset obj = liftIO $ getObjectPropertyLong obj "start-offset" - -data DOMRangeStartOffsetPropertyInfo -instance AttrInfo DOMRangeStartOffsetPropertyInfo where - type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = DOMRangeK - type AttrGetType DOMRangeStartOffsetPropertyInfo = CLong - type AttrLabel DOMRangeStartOffsetPropertyInfo = "start-offset" - attrGet _ = getDOMRangeStartOffset - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMRangeText :: (MonadIO m, DOMRangeK o) => o -> m (Maybe T.Text) -getDOMRangeText obj = liftIO $ getObjectPropertyString obj "text" - -data DOMRangeTextPropertyInfo -instance AttrInfo DOMRangeTextPropertyInfo where - type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = DOMRangeK - type AttrGetType DOMRangeTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMRangeTextPropertyInfo = "text" - attrGet _ = getDOMRangeText - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMRange = DOMRangeAttributeList -type DOMRangeAttributeList = ('[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("commonAncestorContainer", DOMRangeCommonAncestorContainerPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("endContainer", DOMRangeEndContainerPropertyInfo), '("endOffset", DOMRangeEndOffsetPropertyInfo), '("startContainer", DOMRangeStartContainerPropertyInfo), '("startOffset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] :: [(Symbol, *)]) - -dOMRangeCollapsed :: AttrLabelProxy "collapsed" -dOMRangeCollapsed = AttrLabelProxy - -dOMRangeCommonAncestorContainer :: AttrLabelProxy "commonAncestorContainer" -dOMRangeCommonAncestorContainer = AttrLabelProxy - -dOMRangeEndContainer :: AttrLabelProxy "endContainer" -dOMRangeEndContainer = AttrLabelProxy - -dOMRangeEndOffset :: AttrLabelProxy "endOffset" -dOMRangeEndOffset = AttrLabelProxy - -dOMRangeStartContainer :: AttrLabelProxy "startContainer" -dOMRangeStartContainer = AttrLabelProxy - -dOMRangeStartOffset :: AttrLabelProxy "startOffset" -dOMRangeStartOffset = AttrLabelProxy - -dOMRangeText :: AttrLabelProxy "text" -dOMRangeText = AttrLabelProxy - -type instance SignalList DOMRange = DOMRangeSignalList -type DOMRangeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMRange::clone_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeCloneContentsMethodInfo -instance (signature ~ (m DOMDocumentFragment), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeCloneContentsMethodInfo a signature where - overloadedMethod _ = dOMRangeCloneContents - --- method DOMRange::clone_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeCloneRangeMethodInfo -instance (signature ~ (m DOMRange), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeCloneRangeMethodInfo a signature where - overloadedMethod _ = dOMRangeCloneRange - --- method DOMRange::collapse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "toStart", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeCollapseMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeCollapseMethodInfo a signature where - overloadedMethod _ = dOMRangeCollapse - --- method DOMRange::compare_boundary_points --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "how", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sourceRange", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeCompareBoundaryPointsMethodInfo -instance (signature ~ (Word16 -> b -> m Int16), MonadIO m, DOMRangeK a, DOMRangeK b) => MethodInfo DOMRangeCompareBoundaryPointsMethodInfo a signature where - overloadedMethod _ = dOMRangeCompareBoundaryPoints - --- method DOMRange::compare_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeCompareNodeMethodInfo -instance (signature ~ (b -> m Int16), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeCompareNodeMethodInfo a signature where - overloadedMethod _ = dOMRangeCompareNode - --- method DOMRange::compare_point --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CLong -> -- offset : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO Int16 - - -dOMRangeComparePoint :: - (MonadIO m, DOMRangeK a, DOMNodeK b) => - a -- _obj - -> b -- refNode - -> CLong -- offset - -> m Int16 -- result -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 () - ) - -data DOMRangeComparePointMethodInfo -instance (signature ~ (b -> CLong -> m Int16), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeComparePointMethodInfo a signature where - overloadedMethod _ = dOMRangeComparePoint - --- method DOMRange::create_contextual_fragment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMRangeCreateContextualFragmentMethodInfo -instance (signature ~ (T.Text -> m DOMDocumentFragment), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeCreateContextualFragmentMethodInfo a signature where - overloadedMethod _ = dOMRangeCreateContextualFragment - --- method DOMRange::delete_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMRangeDeleteContents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - propagateGError $ webkit_dom_range_delete_contents _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data DOMRangeDeleteContentsMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeDeleteContentsMethodInfo a signature where - overloadedMethod _ = dOMRangeDeleteContents - --- method DOMRange::detach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dOMRangeDetach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - propagateGError $ webkit_dom_range_detach _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data DOMRangeDetachMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeDetachMethodInfo a signature where - overloadedMethod _ = dOMRangeDetach - --- method DOMRange::extract_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeExtractContentsMethodInfo -instance (signature ~ (m DOMDocumentFragment), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeExtractContentsMethodInfo a signature where - overloadedMethod _ = dOMRangeExtractContents - --- method DOMRange::get_collapsed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -dOMRangeGetCollapsed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ webkit_dom_range_get_collapsed _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data DOMRangeGetCollapsedMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetCollapsedMethodInfo a signature where - overloadedMethod _ = dOMRangeGetCollapsed - --- method DOMRange::get_common_ancestor_container --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeGetCommonAncestorContainerMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetCommonAncestorContainerMethodInfo a signature where - overloadedMethod _ = dOMRangeGetCommonAncestorContainer - --- method DOMRange::get_end_container --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeGetEndContainerMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetEndContainerMethodInfo a signature where - overloadedMethod _ = dOMRangeGetEndContainer - --- method DOMRange::get_end_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMRangeGetEndOffset :: - (MonadIO m, DOMRangeK a) => - a -- _obj - -> m CLong -- result -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 () - ) - -data DOMRangeGetEndOffsetMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetEndOffsetMethodInfo a signature where - overloadedMethod _ = dOMRangeGetEndOffset - --- method DOMRange::get_start_container --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeGetStartContainerMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetStartContainerMethodInfo a signature where - overloadedMethod _ = dOMRangeGetStartContainer - --- method DOMRange::get_start_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMRangeGetStartOffset :: - (MonadIO m, DOMRangeK a) => - a -- _obj - -> m CLong -- result -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 () - ) - -data DOMRangeGetStartOffsetMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetStartOffsetMethodInfo a signature where - overloadedMethod _ = dOMRangeGetStartOffset - --- method DOMRange::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMRangeGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeGetTextMethodInfo a signature where - overloadedMethod _ = dOMRangeGetText - --- method DOMRange::insert_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeInsertNodeMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeInsertNodeMethodInfo a signature where - overloadedMethod _ = dOMRangeInsertNode - --- method DOMRange::intersects_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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 () - ) - -data DOMRangeIntersectsNodeMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeIntersectsNodeMethodInfo a signature where - overloadedMethod _ = dOMRangeIntersectsNode - --- method DOMRange::is_point_in_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CLong -> -- offset : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO CInt - - -dOMRangeIsPointInRange :: - (MonadIO m, DOMRangeK a, DOMNodeK b) => - a -- _obj - -> b -- refNode - -> CLong -- offset - -> m () -- result -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 () - ) - -data DOMRangeIsPointInRangeMethodInfo -instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeIsPointInRangeMethodInfo a signature where - overloadedMethod _ = dOMRangeIsPointInRange - --- method DOMRange::select_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeSelectNodeMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSelectNodeMethodInfo a signature where - overloadedMethod _ = dOMRangeSelectNode - --- method DOMRange::select_node_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeSelectNodeContentsMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSelectNodeContentsMethodInfo a signature where - overloadedMethod _ = dOMRangeSelectNodeContents - --- method DOMRange::set_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- offset : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO () - - -dOMRangeSetEnd :: - (MonadIO m, DOMRangeK a, DOMNodeK b) => - a -- _obj - -> b -- refNode - -> CLong -- offset - -> m () -- result -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 () - ) - -data DOMRangeSetEndMethodInfo -instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetEndMethodInfo a signature where - overloadedMethod _ = dOMRangeSetEnd - --- method DOMRange::set_end_after --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeSetEndAfterMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetEndAfterMethodInfo a signature where - overloadedMethod _ = dOMRangeSetEndAfter - --- method DOMRange::set_end_before --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeSetEndBeforeMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetEndBeforeMethodInfo a signature where - overloadedMethod _ = dOMRangeSetEndBefore - --- method DOMRange::set_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- offset : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO () - - -dOMRangeSetStart :: - (MonadIO m, DOMRangeK a, DOMNodeK b) => - a -- _obj - -> b -- refNode - -> CLong -- offset - -> m () -- result -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 () - ) - -data DOMRangeSetStartMethodInfo -instance (signature ~ (b -> CLong -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetStartMethodInfo a signature where - overloadedMethod _ = dOMRangeSetStart - --- method DOMRange::set_start_after --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeSetStartAfterMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetStartAfterMethodInfo a signature where - overloadedMethod _ = dOMRangeSetStartAfter - --- method DOMRange::set_start_before --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeSetStartBeforeMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSetStartBeforeMethodInfo a signature where - overloadedMethod _ = dOMRangeSetStartBefore - --- method DOMRange::surround_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newParent", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMRangeSurroundContentsMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMRangeK a, DOMNodeK b) => MethodInfo DOMRangeSurroundContentsMethodInfo a signature where - overloadedMethod _ = dOMRangeSurroundContents - --- method DOMRange::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMRangeToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMRangeK a) => MethodInfo DOMRangeToStringMethodInfo a signature where - overloadedMethod _ = dOMRangeToString - - diff --git a/GI/WebKit2WebExtension/Objects/DOMRange.hs-boot b/GI/WebKit2WebExtension/Objects/DOMRange.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMRange.hs-boot +++ /dev/null @@ -1,50 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMRange where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMRangeCloneContentsMethodInfo -data DOMRangeCloneRangeMethodInfo -data DOMRangeCollapseMethodInfo -data DOMRangeCompareBoundaryPointsMethodInfo -data DOMRangeCompareNodeMethodInfo -data DOMRangeComparePointMethodInfo -data DOMRangeCreateContextualFragmentMethodInfo -data DOMRangeDeleteContentsMethodInfo -data DOMRangeDetachMethodInfo -data DOMRangeExtractContentsMethodInfo -data DOMRangeGetCollapsedMethodInfo -data DOMRangeGetCommonAncestorContainerMethodInfo -data DOMRangeGetEndContainerMethodInfo -data DOMRangeGetEndOffsetMethodInfo -data DOMRangeGetStartContainerMethodInfo -data DOMRangeGetStartOffsetMethodInfo -data DOMRangeGetTextMethodInfo -data DOMRangeInsertNodeMethodInfo -data DOMRangeIntersectsNodeMethodInfo -data DOMRangeIsPointInRangeMethodInfo -data DOMRangeSelectNodeMethodInfo -data DOMRangeSelectNodeContentsMethodInfo -data DOMRangeSetEndMethodInfo -data DOMRangeSetEndAfterMethodInfo -data DOMRangeSetEndBeforeMethodInfo -data DOMRangeSetStartMethodInfo -data DOMRangeSetStartAfterMethodInfo -data DOMRangeSetStartBeforeMethodInfo -data DOMRangeSurroundContentsMethodInfo -data DOMRangeToStringMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs b/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs +++ /dev/null @@ -1,592 +0,0 @@ - - -{- | -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 - DOMStyleSheetGetContentTypeMethodInfo , - dOMStyleSheetGetContentType , - - --- ** dOMStyleSheetGetDisabled - DOMStyleSheetGetDisabledMethodInfo , - dOMStyleSheetGetDisabled , - - --- ** dOMStyleSheetGetHref - DOMStyleSheetGetHrefMethodInfo , - dOMStyleSheetGetHref , - - --- ** dOMStyleSheetGetMedia - DOMStyleSheetGetMediaMethodInfo , - dOMStyleSheetGetMedia , - - --- ** dOMStyleSheetGetOwnerNode - DOMStyleSheetGetOwnerNodeMethodInfo , - dOMStyleSheetGetOwnerNode , - - --- ** dOMStyleSheetGetParentStyleSheet - DOMStyleSheetGetParentStyleSheetMethodInfo, - dOMStyleSheetGetParentStyleSheet , - - --- ** dOMStyleSheetGetTitle - DOMStyleSheetGetTitleMethodInfo , - dOMStyleSheetGetTitle , - - --- ** dOMStyleSheetSetDisabled - DOMStyleSheetSetDisabledMethodInfo , - dOMStyleSheetSetDisabled , - - - - - -- * Properties --- ** Disabled - DOMStyleSheetDisabledPropertyInfo , - constructDOMStyleSheetDisabled , - dOMStyleSheetDisabled , - getDOMStyleSheetDisabled , - setDOMStyleSheetDisabled , - - --- ** Href - DOMStyleSheetHrefPropertyInfo , - dOMStyleSheetHref , - getDOMStyleSheetHref , - - --- ** Media - DOMStyleSheetMediaPropertyInfo , - dOMStyleSheetMedia , - getDOMStyleSheetMedia , - - --- ** OwnerNode - DOMStyleSheetOwnerNodePropertyInfo , - dOMStyleSheetOwnerNode , - getDOMStyleSheetOwnerNode , - - --- ** ParentStyleSheet - DOMStyleSheetParentStyleSheetPropertyInfo, - dOMStyleSheetParentStyleSheet , - getDOMStyleSheetParentStyleSheet , - - --- ** Title - DOMStyleSheetTitlePropertyInfo , - dOMStyleSheetTitle , - getDOMStyleSheetTitle , - - --- ** Type - DOMStyleSheetTypePropertyInfo , - dOMStyleSheetType , - getDOMStyleSheetType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMStyleSheetMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMStyleSheetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMStyleSheetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMStyleSheetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMStyleSheetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMStyleSheetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMStyleSheetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMStyleSheetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMStyleSheetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMStyleSheetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMStyleSheetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMStyleSheetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMStyleSheetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMStyleSheetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMStyleSheetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMStyleSheetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMStyleSheetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMStyleSheetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMStyleSheetMethod "getContentType" o = DOMStyleSheetGetContentTypeMethodInfo - ResolveDOMStyleSheetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMStyleSheetMethod "getDisabled" o = DOMStyleSheetGetDisabledMethodInfo - ResolveDOMStyleSheetMethod "getHref" o = DOMStyleSheetGetHrefMethodInfo - ResolveDOMStyleSheetMethod "getMedia" o = DOMStyleSheetGetMediaMethodInfo - ResolveDOMStyleSheetMethod "getOwnerNode" o = DOMStyleSheetGetOwnerNodeMethodInfo - ResolveDOMStyleSheetMethod "getParentStyleSheet" o = DOMStyleSheetGetParentStyleSheetMethodInfo - ResolveDOMStyleSheetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMStyleSheetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMStyleSheetMethod "getTitle" o = DOMStyleSheetGetTitleMethodInfo - ResolveDOMStyleSheetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMStyleSheetMethod "setDisabled" o = DOMStyleSheetSetDisabledMethodInfo - ResolveDOMStyleSheetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMStyleSheetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMStyleSheetMethod t DOMStyleSheet, MethodInfo info DOMStyleSheet p) => IsLabelProxy t (DOMStyleSheet -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMStyleSheetMethod t DOMStyleSheet, MethodInfo info DOMStyleSheet p) => IsLabel t (DOMStyleSheet -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "disabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "disabled" - attrGet _ = getDOMStyleSheetDisabled - attrSet _ = setDOMStyleSheetDisabled - attrConstruct _ = constructDOMStyleSheetDisabled - attrClear _ = undefined - --- VVV Prop "href" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMStyleSheetHref :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe T.Text) -getDOMStyleSheetHref obj = liftIO $ getObjectPropertyString obj "href" - -data DOMStyleSheetHrefPropertyInfo -instance AttrInfo DOMStyleSheetHrefPropertyInfo where - type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMStyleSheetHrefPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetHrefPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetHrefPropertyInfo = (Maybe T.Text) - type AttrLabel DOMStyleSheetHrefPropertyInfo = "href" - attrGet _ = getDOMStyleSheetHref - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "media" - -- Type: TInterface "WebKit2WebExtension" "DOMMediaList" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMStyleSheetMedia :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe DOMMediaList) -getDOMStyleSheetMedia obj = liftIO $ getObjectPropertyObject obj "media" DOMMediaList - -data DOMStyleSheetMediaPropertyInfo -instance AttrInfo DOMStyleSheetMediaPropertyInfo where - type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMStyleSheetMediaPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetMediaPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetMediaPropertyInfo = (Maybe DOMMediaList) - type AttrLabel DOMStyleSheetMediaPropertyInfo = "media" - attrGet _ = getDOMStyleSheetMedia - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "owner-node" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMStyleSheetOwnerNode :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMNode -getDOMStyleSheetOwnerNode obj = liftIO $ checkUnexpectedNothing "getDOMStyleSheetOwnerNode" $ getObjectPropertyObject obj "owner-node" DOMNode - -data DOMStyleSheetOwnerNodePropertyInfo -instance AttrInfo DOMStyleSheetOwnerNodePropertyInfo where - type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetOwnerNodePropertyInfo = DOMNode - type AttrLabel DOMStyleSheetOwnerNodePropertyInfo = "owner-node" - attrGet _ = getDOMStyleSheetOwnerNode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parent-style-sheet" - -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMStyleSheetParentStyleSheet :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe DOMStyleSheet) -getDOMStyleSheetParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet - -data DOMStyleSheetParentStyleSheetPropertyInfo -instance AttrInfo DOMStyleSheetParentStyleSheetPropertyInfo where - type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = (Maybe DOMStyleSheet) - type AttrLabel DOMStyleSheetParentStyleSheetPropertyInfo = "parent-style-sheet" - attrGet _ = getDOMStyleSheetParentStyleSheet - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMStyleSheetTitle :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe T.Text) -getDOMStyleSheetTitle obj = liftIO $ getObjectPropertyString obj "title" - -data DOMStyleSheetTitlePropertyInfo -instance AttrInfo DOMStyleSheetTitlePropertyInfo where - type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMStyleSheetTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetTitlePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetTitlePropertyInfo = (Maybe T.Text) - type AttrLabel DOMStyleSheetTitlePropertyInfo = "title" - attrGet _ = getDOMStyleSheetTitle - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMStyleSheetType :: (MonadIO m, DOMStyleSheetK o) => o -> m (Maybe T.Text) -getDOMStyleSheetType obj = liftIO $ getObjectPropertyString obj "type" - -data DOMStyleSheetTypePropertyInfo -instance AttrInfo DOMStyleSheetTypePropertyInfo where - type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMStyleSheetTypePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetTypePropertyInfo = DOMStyleSheetK - type AttrGetType DOMStyleSheetTypePropertyInfo = (Maybe T.Text) - type AttrLabel DOMStyleSheetTypePropertyInfo = "type" - attrGet _ = getDOMStyleSheetType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMStyleSheet = DOMStyleSheetAttributeList -type DOMStyleSheetAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("ownerNode", DOMStyleSheetOwnerNodePropertyInfo), '("parentStyleSheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)]) - -dOMStyleSheetDisabled :: AttrLabelProxy "disabled" -dOMStyleSheetDisabled = AttrLabelProxy - -dOMStyleSheetHref :: AttrLabelProxy "href" -dOMStyleSheetHref = AttrLabelProxy - -dOMStyleSheetMedia :: AttrLabelProxy "media" -dOMStyleSheetMedia = AttrLabelProxy - -dOMStyleSheetOwnerNode :: AttrLabelProxy "ownerNode" -dOMStyleSheetOwnerNode = AttrLabelProxy - -dOMStyleSheetParentStyleSheet :: AttrLabelProxy "parentStyleSheet" -dOMStyleSheetParentStyleSheet = AttrLabelProxy - -dOMStyleSheetTitle :: AttrLabelProxy "title" -dOMStyleSheetTitle = AttrLabelProxy - -dOMStyleSheetType :: AttrLabelProxy "type" -dOMStyleSheetType = AttrLabelProxy - -type instance SignalList DOMStyleSheet = DOMStyleSheetSignalList -type DOMStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMStyleSheet::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMStyleSheetGetContentTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetGetContentTypeMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetGetContentType - --- method DOMStyleSheet::get_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMStyleSheetGetDisabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_style_sheet_get_disabled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DOMStyleSheetGetDisabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetGetDisabledMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetGetDisabled - --- method DOMStyleSheet::get_href --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMStyleSheetGetHrefMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetGetHrefMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetGetHref - --- method DOMStyleSheet::get_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMStyleSheetGetMediaMethodInfo -instance (signature ~ (m DOMMediaList), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetGetMediaMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetGetMedia - --- method DOMStyleSheet::get_owner_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMStyleSheetGetOwnerNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetGetOwnerNodeMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetGetOwnerNode - --- method DOMStyleSheet::get_parent_style_sheet --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMStyleSheetGetParentStyleSheetMethodInfo -instance (signature ~ (m DOMStyleSheet), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetGetParentStyleSheetMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetGetParentStyleSheet - --- method DOMStyleSheet::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMStyleSheetGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetGetTitleMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetGetTitle - --- method DOMStyleSheet::set_disabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DOMStyleSheetSetDisabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DOMStyleSheetK a) => MethodInfo DOMStyleSheetSetDisabledMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetSetDisabled - - diff --git a/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot b/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMStyleSheet where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMStyleSheetGetContentTypeMethodInfo -data DOMStyleSheetGetDisabledMethodInfo -data DOMStyleSheetGetHrefMethodInfo -data DOMStyleSheetGetMediaMethodInfo -data DOMStyleSheetGetOwnerNodeMethodInfo -data DOMStyleSheetGetParentStyleSheetMethodInfo -data DOMStyleSheetGetTitleMethodInfo -data DOMStyleSheetSetDisabledMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs b/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs +++ /dev/null @@ -1,197 +0,0 @@ - - -{- | -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 - DOMStyleSheetListGetLengthMethodInfo , - dOMStyleSheetListGetLength , - - --- ** dOMStyleSheetListItem - DOMStyleSheetListItemMethodInfo , - dOMStyleSheetListItem , - - - - - -- * Properties --- ** Length - DOMStyleSheetListLengthPropertyInfo , - dOMStyleSheetListLength , - getDOMStyleSheetListLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMStyleSheetListMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMStyleSheetListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMStyleSheetListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMStyleSheetListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMStyleSheetListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMStyleSheetListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMStyleSheetListMethod "item" o = DOMStyleSheetListItemMethodInfo - ResolveDOMStyleSheetListMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMStyleSheetListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMStyleSheetListMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMStyleSheetListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMStyleSheetListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMStyleSheetListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMStyleSheetListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMStyleSheetListMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMStyleSheetListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMStyleSheetListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMStyleSheetListMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMStyleSheetListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMStyleSheetListMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMStyleSheetListMethod "getLength" o = DOMStyleSheetListGetLengthMethodInfo - ResolveDOMStyleSheetListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMStyleSheetListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMStyleSheetListMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMStyleSheetListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMStyleSheetListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMStyleSheetListMethod t DOMStyleSheetList, MethodInfo info DOMStyleSheetList p) => IsLabelProxy t (DOMStyleSheetList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMStyleSheetListMethod t DOMStyleSheetList, MethodInfo info DOMStyleSheetList p) => IsLabel t (DOMStyleSheetList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m CULong -getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyULong obj "length" - -data DOMStyleSheetListLengthPropertyInfo -instance AttrInfo DOMStyleSheetListLengthPropertyInfo where - type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetListK - type AttrGetType DOMStyleSheetListLengthPropertyInfo = CULong - type AttrLabel DOMStyleSheetListLengthPropertyInfo = "length" - attrGet _ = getDOMStyleSheetListLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMStyleSheetList = DOMStyleSheetListAttributeList -type DOMStyleSheetListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] :: [(Symbol, *)]) - -dOMStyleSheetListLength :: AttrLabelProxy "length" -dOMStyleSheetListLength = AttrLabelProxy - -type instance SignalList DOMStyleSheetList = DOMStyleSheetListSignalList -type DOMStyleSheetListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMStyleSheetList::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMStyleSheetListGetLength :: - (MonadIO m, DOMStyleSheetListK a) => - a -- _obj - -> m CULong -- result -dOMStyleSheetListGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_style_sheet_list_get_length _obj' - touchManagedPtr _obj - return result - -data DOMStyleSheetListGetLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMStyleSheetListK a) => MethodInfo DOMStyleSheetListGetLengthMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetListGetLength - --- method DOMStyleSheetList::item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - IO (Ptr DOMStyleSheet) - - -dOMStyleSheetListItem :: - (MonadIO m, DOMStyleSheetListK a) => - a -- _obj - -> CULong -- index - -> m DOMStyleSheet -- result -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' - -data DOMStyleSheetListItemMethodInfo -instance (signature ~ (CULong -> m DOMStyleSheet), MonadIO m, DOMStyleSheetListK a) => MethodInfo DOMStyleSheetListItemMethodInfo a signature where - overloadedMethod _ = dOMStyleSheetListItem - - diff --git a/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot b/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMStyleSheetList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMStyleSheetListGetLengthMethodInfo -data DOMStyleSheetListItemMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMText.hs b/GI/WebKit2WebExtension/Objects/DOMText.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMText.hs +++ /dev/null @@ -1,288 +0,0 @@ - - -{- | -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 - DOMTextGetWholeTextMethodInfo , - dOMTextGetWholeText , - - --- ** dOMTextReplaceWholeText - DOMTextReplaceWholeTextMethodInfo , - dOMTextReplaceWholeText , - - --- ** dOMTextSplitText - DOMTextSplitTextMethodInfo , - dOMTextSplitText , - - - - - -- * Properties --- ** WholeText - DOMTextWholeTextPropertyInfo , - dOMTextWholeText , - getDOMTextWholeText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMTextMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMTextMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo - ResolveDOMTextMethod "appendChild" o = DOMNodeAppendChildMethodInfo - ResolveDOMTextMethod "appendData" o = DOMCharacterDataAppendDataMethodInfo - ResolveDOMTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMTextMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo - ResolveDOMTextMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo - ResolveDOMTextMethod "contains" o = DOMNodeContainsMethodInfo - ResolveDOMTextMethod "deleteData" o = DOMCharacterDataDeleteDataMethodInfo - ResolveDOMTextMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo - ResolveDOMTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMTextMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo - ResolveDOMTextMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo - ResolveDOMTextMethod "insertData" o = DOMCharacterDataInsertDataMethodInfo - ResolveDOMTextMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo - ResolveDOMTextMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo - ResolveDOMTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMTextMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo - ResolveDOMTextMethod "isSupported" o = DOMNodeIsSupportedMethodInfo - ResolveDOMTextMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo - ResolveDOMTextMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo - ResolveDOMTextMethod "normalize" o = DOMNodeNormalizeMethodInfo - ResolveDOMTextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMTextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMTextMethod "removeChild" o = DOMNodeRemoveChildMethodInfo - ResolveDOMTextMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo - ResolveDOMTextMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo - ResolveDOMTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMTextMethod "replaceWholeText" o = DOMTextReplaceWholeTextMethodInfo - ResolveDOMTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMTextMethod "splitText" o = DOMTextSplitTextMethodInfo - ResolveDOMTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMTextMethod "substringData" o = DOMCharacterDataSubstringDataMethodInfo - ResolveDOMTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMTextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMTextMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo - ResolveDOMTextMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo - ResolveDOMTextMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo - ResolveDOMTextMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo - ResolveDOMTextMethod "getLength" o = DOMCharacterDataGetLengthMethodInfo - ResolveDOMTextMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo - ResolveDOMTextMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo - ResolveDOMTextMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo - ResolveDOMTextMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo - ResolveDOMTextMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo - ResolveDOMTextMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo - ResolveDOMTextMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo - ResolveDOMTextMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo - ResolveDOMTextMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo - ResolveDOMTextMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo - ResolveDOMTextMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo - ResolveDOMTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMTextMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo - ResolveDOMTextMethod "getWholeText" o = DOMTextGetWholeTextMethodInfo - ResolveDOMTextMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo - ResolveDOMTextMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo - ResolveDOMTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMTextMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo - ResolveDOMTextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMTextMethod t DOMText, MethodInfo info DOMText p) => IsLabelProxy t (DOMText -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMTextMethod t DOMText, MethodInfo info DOMText p) => IsLabel t (DOMText -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "whole-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m (Maybe T.Text) -getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text" - -data DOMTextWholeTextPropertyInfo -instance AttrInfo DOMTextWholeTextPropertyInfo where - type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK - type AttrGetType DOMTextWholeTextPropertyInfo = (Maybe T.Text) - type AttrLabel DOMTextWholeTextPropertyInfo = "whole-text" - attrGet _ = getDOMTextWholeText - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMText = DOMTextAttributeList -type DOMTextAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("treeRoot", DOMNodeTreeRootPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) - -dOMTextWholeText :: AttrLabelProxy "wholeText" -dOMTextWholeText = AttrLabelProxy - -type instance SignalList DOMText = DOMTextSignalList -type DOMTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMText::get_whole_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTextGetWholeTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMTextK a) => MethodInfo DOMTextGetWholeTextMethodInfo a signature where - overloadedMethod _ = dOMTextGetWholeText - --- method DOMText::replace_whole_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data DOMTextReplaceWholeTextMethodInfo -instance (signature ~ (T.Text -> m DOMText), MonadIO m, DOMTextK a) => MethodInfo DOMTextReplaceWholeTextMethodInfo a signature where - overloadedMethod _ = dOMTextReplaceWholeText - --- method DOMText::split_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- offset : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO (Ptr DOMText) - - -dOMTextSplitText :: - (MonadIO m, DOMTextK a) => - a -- _obj - -> CULong -- offset - -> m DOMText -- result -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 () - ) - -data DOMTextSplitTextMethodInfo -instance (signature ~ (CULong -> m DOMText), MonadIO m, DOMTextK a) => MethodInfo DOMTextSplitTextMethodInfo a signature where - overloadedMethod _ = dOMTextSplitText - - diff --git a/GI/WebKit2WebExtension/Objects/DOMText.hs-boot b/GI/WebKit2WebExtension/Objects/DOMText.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMText.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMText where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMTextGetWholeTextMethodInfo -data DOMTextReplaceWholeTextMethodInfo -data DOMTextSplitTextMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs b/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs +++ /dev/null @@ -1,673 +0,0 @@ - - -{- | -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 - DOMTreeWalkerFirstChildMethodInfo , - dOMTreeWalkerFirstChild , - - --- ** dOMTreeWalkerGetCurrentNode - DOMTreeWalkerGetCurrentNodeMethodInfo , - dOMTreeWalkerGetCurrentNode , - - --- ** dOMTreeWalkerGetExpandEntityReferences - DOMTreeWalkerGetExpandEntityReferencesMethodInfo, - dOMTreeWalkerGetExpandEntityReferences , - - --- ** dOMTreeWalkerGetFilter - DOMTreeWalkerGetFilterMethodInfo , - dOMTreeWalkerGetFilter , - - --- ** dOMTreeWalkerGetRoot - DOMTreeWalkerGetRootMethodInfo , - dOMTreeWalkerGetRoot , - - --- ** dOMTreeWalkerGetWhatToShow - DOMTreeWalkerGetWhatToShowMethodInfo , - dOMTreeWalkerGetWhatToShow , - - --- ** dOMTreeWalkerLastChild - DOMTreeWalkerLastChildMethodInfo , - dOMTreeWalkerLastChild , - - --- ** dOMTreeWalkerNextNode - DOMTreeWalkerNextNodeMethodInfo , - dOMTreeWalkerNextNode , - - --- ** dOMTreeWalkerNextSibling - DOMTreeWalkerNextSiblingMethodInfo , - dOMTreeWalkerNextSibling , - - --- ** dOMTreeWalkerParentNode - DOMTreeWalkerParentNodeMethodInfo , - dOMTreeWalkerParentNode , - - --- ** dOMTreeWalkerPreviousNode - DOMTreeWalkerPreviousNodeMethodInfo , - dOMTreeWalkerPreviousNode , - - --- ** dOMTreeWalkerPreviousSibling - DOMTreeWalkerPreviousSiblingMethodInfo , - dOMTreeWalkerPreviousSibling , - - --- ** dOMTreeWalkerSetCurrentNode - DOMTreeWalkerSetCurrentNodeMethodInfo , - dOMTreeWalkerSetCurrentNode , - - - - - -- * Properties --- ** CurrentNode - DOMTreeWalkerCurrentNodePropertyInfo , - dOMTreeWalkerCurrentNode , - getDOMTreeWalkerCurrentNode , - - --- ** Filter - DOMTreeWalkerFilterPropertyInfo , - dOMTreeWalkerFilter , - getDOMTreeWalkerFilter , - - --- ** Root - DOMTreeWalkerRootPropertyInfo , - dOMTreeWalkerRoot , - getDOMTreeWalkerRoot , - - --- ** WhatToShow - DOMTreeWalkerWhatToShowPropertyInfo , - dOMTreeWalkerWhatToShow , - getDOMTreeWalkerWhatToShow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMTreeWalkerMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMTreeWalkerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMTreeWalkerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMTreeWalkerMethod "firstChild" o = DOMTreeWalkerFirstChildMethodInfo - ResolveDOMTreeWalkerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMTreeWalkerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMTreeWalkerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMTreeWalkerMethod "lastChild" o = DOMTreeWalkerLastChildMethodInfo - ResolveDOMTreeWalkerMethod "nextNode" o = DOMTreeWalkerNextNodeMethodInfo - ResolveDOMTreeWalkerMethod "nextSibling" o = DOMTreeWalkerNextSiblingMethodInfo - ResolveDOMTreeWalkerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMTreeWalkerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMTreeWalkerMethod "parentNode" o = DOMTreeWalkerParentNodeMethodInfo - ResolveDOMTreeWalkerMethod "previousNode" o = DOMTreeWalkerPreviousNodeMethodInfo - ResolveDOMTreeWalkerMethod "previousSibling" o = DOMTreeWalkerPreviousSiblingMethodInfo - ResolveDOMTreeWalkerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMTreeWalkerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMTreeWalkerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMTreeWalkerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMTreeWalkerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMTreeWalkerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMTreeWalkerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMTreeWalkerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMTreeWalkerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMTreeWalkerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMTreeWalkerMethod "getCurrentNode" o = DOMTreeWalkerGetCurrentNodeMethodInfo - ResolveDOMTreeWalkerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMTreeWalkerMethod "getExpandEntityReferences" o = DOMTreeWalkerGetExpandEntityReferencesMethodInfo - ResolveDOMTreeWalkerMethod "getFilter" o = DOMTreeWalkerGetFilterMethodInfo - ResolveDOMTreeWalkerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMTreeWalkerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMTreeWalkerMethod "getRoot" o = DOMTreeWalkerGetRootMethodInfo - ResolveDOMTreeWalkerMethod "getWhatToShow" o = DOMTreeWalkerGetWhatToShowMethodInfo - ResolveDOMTreeWalkerMethod "setCurrentNode" o = DOMTreeWalkerSetCurrentNodeMethodInfo - ResolveDOMTreeWalkerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMTreeWalkerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMTreeWalkerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMTreeWalkerMethod t DOMTreeWalker, MethodInfo info DOMTreeWalker p) => IsLabelProxy t (DOMTreeWalker -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMTreeWalkerMethod t DOMTreeWalker, MethodInfo info DOMTreeWalker p) => IsLabel t (DOMTreeWalker -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "current-node" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMTreeWalkerCurrentNode :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode -getDOMTreeWalkerCurrentNode obj = liftIO $ checkUnexpectedNothing "getDOMTreeWalkerCurrentNode" $ getObjectPropertyObject obj "current-node" DOMNode - -data DOMTreeWalkerCurrentNodePropertyInfo -instance AttrInfo DOMTreeWalkerCurrentNodePropertyInfo where - type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerCurrentNodePropertyInfo = DOMNode - type AttrLabel DOMTreeWalkerCurrentNodePropertyInfo = "current-node" - attrGet _ = getDOMTreeWalkerCurrentNode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "filter" - -- Type: TInterface "WebKit2WebExtension" "DOMNodeFilter" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMTreeWalkerFilter :: (MonadIO m, DOMTreeWalkerK o) => o -> m (Maybe DOMNodeFilter) -getDOMTreeWalkerFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter - -data DOMTreeWalkerFilterPropertyInfo -instance AttrInfo DOMTreeWalkerFilterPropertyInfo where - type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerFilterPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerFilterPropertyInfo = (Maybe DOMNodeFilter) - type AttrLabel DOMTreeWalkerFilterPropertyInfo = "filter" - attrGet _ = getDOMTreeWalkerFilter - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "root" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMTreeWalkerRoot :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode -getDOMTreeWalkerRoot obj = liftIO $ checkUnexpectedNothing "getDOMTreeWalkerRoot" $ getObjectPropertyObject obj "root" DOMNode - -data DOMTreeWalkerRootPropertyInfo -instance AttrInfo DOMTreeWalkerRootPropertyInfo where - type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerRootPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerRootPropertyInfo = DOMNode - type AttrLabel DOMTreeWalkerRootPropertyInfo = "root" - attrGet _ = getDOMTreeWalkerRoot - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "what-to-show" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMTreeWalkerWhatToShow :: (MonadIO m, DOMTreeWalkerK o) => o -> m CULong -getDOMTreeWalkerWhatToShow obj = liftIO $ getObjectPropertyULong obj "what-to-show" - -data DOMTreeWalkerWhatToShowPropertyInfo -instance AttrInfo DOMTreeWalkerWhatToShowPropertyInfo where - type AttrAllowedOps DOMTreeWalkerWhatToShowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = DOMTreeWalkerK - type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = CULong - type AttrLabel DOMTreeWalkerWhatToShowPropertyInfo = "what-to-show" - attrGet _ = getDOMTreeWalkerWhatToShow - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMTreeWalker = DOMTreeWalkerAttributeList -type DOMTreeWalkerAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentNode", DOMTreeWalkerCurrentNodePropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("whatToShow", DOMTreeWalkerWhatToShowPropertyInfo)] :: [(Symbol, *)]) - -dOMTreeWalkerCurrentNode :: AttrLabelProxy "currentNode" -dOMTreeWalkerCurrentNode = AttrLabelProxy - -dOMTreeWalkerFilter :: AttrLabelProxy "filter" -dOMTreeWalkerFilter = AttrLabelProxy - -dOMTreeWalkerRoot :: AttrLabelProxy "root" -dOMTreeWalkerRoot = AttrLabelProxy - -dOMTreeWalkerWhatToShow :: AttrLabelProxy "whatToShow" -dOMTreeWalkerWhatToShow = AttrLabelProxy - -type instance SignalList DOMTreeWalker = DOMTreeWalkerSignalList -type DOMTreeWalkerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMTreeWalker::first_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerFirstChildMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerFirstChildMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerFirstChild - --- method DOMTreeWalker::get_current_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerGetCurrentNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerGetCurrentNodeMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerGetCurrentNode - --- method DOMTreeWalker::get_expand_entity_references --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 - -{-# DEPRECATED dOMTreeWalkerGetExpandEntityReferences ["(Since version 2.12)"]#-} -dOMTreeWalkerGetExpandEntityReferences :: - (MonadIO m, DOMTreeWalkerK a) => - a -- _obj - -> m Bool -- result -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' - -data DOMTreeWalkerGetExpandEntityReferencesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerGetExpandEntityReferencesMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerGetExpandEntityReferences - --- method DOMTreeWalker::get_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerGetFilterMethodInfo -instance (signature ~ (m DOMNodeFilter), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerGetFilterMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerGetFilter - --- method DOMTreeWalker::get_root --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerGetRootMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerGetRootMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerGetRoot - --- method DOMTreeWalker::get_what_to_show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMTreeWalkerGetWhatToShow :: - (MonadIO m, DOMTreeWalkerK a) => - a -- _obj - -> m CULong -- result -dOMTreeWalkerGetWhatToShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_tree_walker_get_what_to_show _obj' - touchManagedPtr _obj - return result - -data DOMTreeWalkerGetWhatToShowMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerGetWhatToShowMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerGetWhatToShow - --- method DOMTreeWalker::last_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerLastChildMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerLastChildMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerLastChild - --- method DOMTreeWalker::next_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerNextNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerNextNodeMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerNextNode - --- method DOMTreeWalker::next_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerNextSiblingMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerNextSiblingMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerNextSibling - --- method DOMTreeWalker::parent_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerParentNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerParentNodeMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerParentNode - --- method DOMTreeWalker::previous_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerPreviousNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerPreviousNodeMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerPreviousNode - --- method DOMTreeWalker::previous_sibling --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMTreeWalkerPreviousSiblingMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMTreeWalkerK a) => MethodInfo DOMTreeWalkerPreviousSiblingMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerPreviousSibling - --- method DOMTreeWalker::set_current_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - ) - -data DOMTreeWalkerSetCurrentNodeMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DOMTreeWalkerK a, DOMNodeK b) => MethodInfo DOMTreeWalkerSetCurrentNodeMethodInfo a signature where - overloadedMethod _ = dOMTreeWalkerSetCurrentNode - - diff --git a/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot b/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot +++ /dev/null @@ -1,30 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMTreeWalker where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 DOMTreeWalkerFilterPropertyInfo -data DOMTreeWalkerRootPropertyInfo -data DOMTreeWalkerWhatToShowPropertyInfo -data DOMTreeWalkerFirstChildMethodInfo -data DOMTreeWalkerGetCurrentNodeMethodInfo -data DOMTreeWalkerGetExpandEntityReferencesMethodInfo -data DOMTreeWalkerGetFilterMethodInfo -data DOMTreeWalkerGetRootMethodInfo -data DOMTreeWalkerGetWhatToShowMethodInfo -data DOMTreeWalkerLastChildMethodInfo -data DOMTreeWalkerNextNodeMethodInfo -data DOMTreeWalkerNextSiblingMethodInfo -data DOMTreeWalkerParentNodeMethodInfo -data DOMTreeWalkerPreviousNodeMethodInfo -data DOMTreeWalkerPreviousSiblingMethodInfo -data DOMTreeWalkerSetCurrentNodeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs b/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs +++ /dev/null @@ -1,689 +0,0 @@ - - -{- | -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 - DOMUIEventGetCharCodeMethodInfo , - dOMUIEventGetCharCode , - - --- ** dOMUIEventGetDetail - DOMUIEventGetDetailMethodInfo , - dOMUIEventGetDetail , - - --- ** dOMUIEventGetKeyCode - DOMUIEventGetKeyCodeMethodInfo , - dOMUIEventGetKeyCode , - - --- ** dOMUIEventGetLayerX - DOMUIEventGetLayerXMethodInfo , - dOMUIEventGetLayerX , - - --- ** dOMUIEventGetLayerY - DOMUIEventGetLayerYMethodInfo , - dOMUIEventGetLayerY , - - --- ** dOMUIEventGetPageX - DOMUIEventGetPageXMethodInfo , - dOMUIEventGetPageX , - - --- ** dOMUIEventGetPageY - DOMUIEventGetPageYMethodInfo , - dOMUIEventGetPageY , - - --- ** dOMUIEventGetView - DOMUIEventGetViewMethodInfo , - dOMUIEventGetView , - - --- ** dOMUIEventInitUiEvent - DOMUIEventInitUiEventMethodInfo , - dOMUIEventInitUiEvent , - - - - - -- * Properties --- ** CharCode - DOMUIEventCharCodePropertyInfo , - dOMUIEventCharCode , - getDOMUIEventCharCode , - - --- ** Detail - DOMUIEventDetailPropertyInfo , - dOMUIEventDetail , - getDOMUIEventDetail , - - --- ** KeyCode - DOMUIEventKeyCodePropertyInfo , - dOMUIEventKeyCode , - getDOMUIEventKeyCode , - - --- ** LayerX - DOMUIEventLayerXPropertyInfo , - dOMUIEventLayerX , - getDOMUIEventLayerX , - - --- ** LayerY - DOMUIEventLayerYPropertyInfo , - dOMUIEventLayerY , - getDOMUIEventLayerY , - - --- ** PageX - DOMUIEventPageXPropertyInfo , - dOMUIEventPageX , - getDOMUIEventPageX , - - --- ** PageY - DOMUIEventPageYPropertyInfo , - dOMUIEventPageY , - getDOMUIEventPageY , - - --- ** View - DOMUIEventViewPropertyInfo , - dOMUIEventView , - getDOMUIEventView , - - --- ** Which - DOMUIEventWhichPropertyInfo , - dOMUIEventWhich , - getDOMUIEventWhich , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMUIEventMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMUIEventMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMUIEventMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMUIEventMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMUIEventMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMUIEventMethod "initEvent" o = DOMEventInitEventMethodInfo - ResolveDOMUIEventMethod "initUiEvent" o = DOMUIEventInitUiEventMethodInfo - ResolveDOMUIEventMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMUIEventMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMUIEventMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMUIEventMethod "preventDefault" o = DOMEventPreventDefaultMethodInfo - ResolveDOMUIEventMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMUIEventMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMUIEventMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMUIEventMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMUIEventMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMUIEventMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMUIEventMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMUIEventMethod "stopPropagation" o = DOMEventStopPropagationMethodInfo - ResolveDOMUIEventMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMUIEventMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMUIEventMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMUIEventMethod "getBubbles" o = DOMEventGetBubblesMethodInfo - ResolveDOMUIEventMethod "getCancelBubble" o = DOMEventGetCancelBubbleMethodInfo - ResolveDOMUIEventMethod "getCancelable" o = DOMEventGetCancelableMethodInfo - ResolveDOMUIEventMethod "getCharCode" o = DOMUIEventGetCharCodeMethodInfo - ResolveDOMUIEventMethod "getCurrentTarget" o = DOMEventGetCurrentTargetMethodInfo - ResolveDOMUIEventMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMUIEventMethod "getDetail" o = DOMUIEventGetDetailMethodInfo - ResolveDOMUIEventMethod "getEventPhase" o = DOMEventGetEventPhaseMethodInfo - ResolveDOMUIEventMethod "getEventType" o = DOMEventGetEventTypeMethodInfo - ResolveDOMUIEventMethod "getKeyCode" o = DOMUIEventGetKeyCodeMethodInfo - ResolveDOMUIEventMethod "getLayerX" o = DOMUIEventGetLayerXMethodInfo - ResolveDOMUIEventMethod "getLayerY" o = DOMUIEventGetLayerYMethodInfo - ResolveDOMUIEventMethod "getPageX" o = DOMUIEventGetPageXMethodInfo - ResolveDOMUIEventMethod "getPageY" o = DOMUIEventGetPageYMethodInfo - ResolveDOMUIEventMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMUIEventMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMUIEventMethod "getReturnValue" o = DOMEventGetReturnValueMethodInfo - ResolveDOMUIEventMethod "getSrcElement" o = DOMEventGetSrcElementMethodInfo - ResolveDOMUIEventMethod "getTarget" o = DOMEventGetTargetMethodInfo - ResolveDOMUIEventMethod "getTimeStamp" o = DOMEventGetTimeStampMethodInfo - ResolveDOMUIEventMethod "getView" o = DOMUIEventGetViewMethodInfo - ResolveDOMUIEventMethod "setCancelBubble" o = DOMEventSetCancelBubbleMethodInfo - ResolveDOMUIEventMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMUIEventMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMUIEventMethod "setReturnValue" o = DOMEventSetReturnValueMethodInfo - ResolveDOMUIEventMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMUIEventMethod t DOMUIEvent, MethodInfo info DOMUIEvent p) => IsLabelProxy t (DOMUIEvent -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMUIEventMethod t DOMUIEvent, MethodInfo info DOMUIEvent p) => IsLabel t (DOMUIEvent -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "char-code" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventCharCode obj = liftIO $ getObjectPropertyLong obj "char-code" - -data DOMUIEventCharCodePropertyInfo -instance AttrInfo DOMUIEventCharCodePropertyInfo where - type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventCharCodePropertyInfo = CLong - type AttrLabel DOMUIEventCharCodePropertyInfo = "char-code" - attrGet _ = getDOMUIEventCharCode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "detail" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventDetail obj = liftIO $ getObjectPropertyLong obj "detail" - -data DOMUIEventDetailPropertyInfo -instance AttrInfo DOMUIEventDetailPropertyInfo where - type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventDetailPropertyInfo = CLong - type AttrLabel DOMUIEventDetailPropertyInfo = "detail" - attrGet _ = getDOMUIEventDetail - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "key-code" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyLong obj "key-code" - -data DOMUIEventKeyCodePropertyInfo -instance AttrInfo DOMUIEventKeyCodePropertyInfo where - type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventKeyCodePropertyInfo = CLong - type AttrLabel DOMUIEventKeyCodePropertyInfo = "key-code" - attrGet _ = getDOMUIEventKeyCode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "layer-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventLayerX obj = liftIO $ getObjectPropertyLong obj "layer-x" - -data DOMUIEventLayerXPropertyInfo -instance AttrInfo DOMUIEventLayerXPropertyInfo where - type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventLayerXPropertyInfo = CLong - type AttrLabel DOMUIEventLayerXPropertyInfo = "layer-x" - attrGet _ = getDOMUIEventLayerX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "layer-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventLayerY obj = liftIO $ getObjectPropertyLong obj "layer-y" - -data DOMUIEventLayerYPropertyInfo -instance AttrInfo DOMUIEventLayerYPropertyInfo where - type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventLayerYPropertyInfo = CLong - type AttrLabel DOMUIEventLayerYPropertyInfo = "layer-y" - attrGet _ = getDOMUIEventLayerY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "page-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventPageX obj = liftIO $ getObjectPropertyLong obj "page-x" - -data DOMUIEventPageXPropertyInfo -instance AttrInfo DOMUIEventPageXPropertyInfo where - type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventPageXPropertyInfo = CLong - type AttrLabel DOMUIEventPageXPropertyInfo = "page-x" - attrGet _ = getDOMUIEventPageX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "page-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventPageY obj = liftIO $ getObjectPropertyLong obj "page-y" - -data DOMUIEventPageYPropertyInfo -instance AttrInfo DOMUIEventPageYPropertyInfo where - type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventPageYPropertyInfo = CLong - type AttrLabel DOMUIEventPageYPropertyInfo = "page-y" - attrGet _ = getDOMUIEventPageY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "view" - -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m (Maybe DOMDOMWindow) -getDOMUIEventView obj = liftIO $ getObjectPropertyObject obj "view" DOMDOMWindow - -data DOMUIEventViewPropertyInfo -instance AttrInfo DOMUIEventViewPropertyInfo where - type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventViewPropertyInfo = (Maybe DOMDOMWindow) - type AttrLabel DOMUIEventViewPropertyInfo = "view" - attrGet _ = getDOMUIEventView - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "which" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m CLong -getDOMUIEventWhich obj = liftIO $ getObjectPropertyLong obj "which" - -data DOMUIEventWhichPropertyInfo -instance AttrInfo DOMUIEventWhichPropertyInfo where - type AttrAllowedOps DOMUIEventWhichPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMUIEventWhichPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMUIEventWhichPropertyInfo = DOMUIEventK - type AttrGetType DOMUIEventWhichPropertyInfo = CLong - type AttrLabel DOMUIEventWhichPropertyInfo = "which" - attrGet _ = getDOMUIEventWhich - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMUIEvent = DOMUIEventAttributeList -type DOMUIEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)]) - -dOMUIEventCharCode :: AttrLabelProxy "charCode" -dOMUIEventCharCode = AttrLabelProxy - -dOMUIEventDetail :: AttrLabelProxy "detail" -dOMUIEventDetail = AttrLabelProxy - -dOMUIEventKeyCode :: AttrLabelProxy "keyCode" -dOMUIEventKeyCode = AttrLabelProxy - -dOMUIEventLayerX :: AttrLabelProxy "layerX" -dOMUIEventLayerX = AttrLabelProxy - -dOMUIEventLayerY :: AttrLabelProxy "layerY" -dOMUIEventLayerY = AttrLabelProxy - -dOMUIEventPageX :: AttrLabelProxy "pageX" -dOMUIEventPageX = AttrLabelProxy - -dOMUIEventPageY :: AttrLabelProxy "pageY" -dOMUIEventPageY = AttrLabelProxy - -dOMUIEventView :: AttrLabelProxy "view" -dOMUIEventView = AttrLabelProxy - -dOMUIEventWhich :: AttrLabelProxy "which" -dOMUIEventWhich = AttrLabelProxy - -type instance SignalList DOMUIEvent = DOMUIEventSignalList -type DOMUIEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMUIEvent::get_char_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMUIEventGetCharCode :: - (MonadIO m, DOMUIEventK a) => - a -- _obj - -> m CLong -- result -dOMUIEventGetCharCode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_ui_event_get_char_code _obj' - touchManagedPtr _obj - return result - -data DOMUIEventGetCharCodeMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetCharCodeMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetCharCode - --- method DOMUIEvent::get_detail --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMUIEventGetDetail :: - (MonadIO m, DOMUIEventK a) => - a -- _obj - -> m CLong -- result -dOMUIEventGetDetail _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_ui_event_get_detail _obj' - touchManagedPtr _obj - return result - -data DOMUIEventGetDetailMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetDetailMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetDetail - --- method DOMUIEvent::get_key_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMUIEventGetKeyCode :: - (MonadIO m, DOMUIEventK a) => - a -- _obj - -> m CLong -- result -dOMUIEventGetKeyCode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_ui_event_get_key_code _obj' - touchManagedPtr _obj - return result - -data DOMUIEventGetKeyCodeMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetKeyCodeMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetKeyCode - --- method DOMUIEvent::get_layer_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMUIEventGetLayerX :: - (MonadIO m, DOMUIEventK a) => - a -- _obj - -> m CLong -- result -dOMUIEventGetLayerX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_ui_event_get_layer_x _obj' - touchManagedPtr _obj - return result - -data DOMUIEventGetLayerXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetLayerXMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetLayerX - --- method DOMUIEvent::get_layer_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMUIEventGetLayerY :: - (MonadIO m, DOMUIEventK a) => - a -- _obj - -> m CLong -- result -dOMUIEventGetLayerY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_ui_event_get_layer_y _obj' - touchManagedPtr _obj - return result - -data DOMUIEventGetLayerYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetLayerYMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetLayerY - --- method DOMUIEvent::get_page_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMUIEventGetPageX :: - (MonadIO m, DOMUIEventK a) => - a -- _obj - -> m CLong -- result -dOMUIEventGetPageX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_ui_event_get_page_x _obj' - touchManagedPtr _obj - return result - -data DOMUIEventGetPageXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetPageXMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetPageX - --- method DOMUIEvent::get_page_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMUIEventGetPageY :: - (MonadIO m, DOMUIEventK a) => - a -- _obj - -> m CLong -- result -dOMUIEventGetPageY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_ui_event_get_page_y _obj' - touchManagedPtr _obj - return result - -data DOMUIEventGetPageYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetPageYMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetPageY - --- method DOMUIEvent::get_view --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMUIEventGetViewMethodInfo -instance (signature ~ (m DOMDOMWindow), MonadIO m, DOMUIEventK a) => MethodInfo DOMUIEventGetViewMethodInfo a signature where - overloadedMethod _ = dOMUIEventGetView - --- method DOMUIEvent::init_ui_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- detail : TBasicType TLong - IO () - - -dOMUIEventInitUiEvent :: - (MonadIO m, DOMUIEventK a, DOMDOMWindowK b) => - a -- _obj - -> T.Text -- type_ - -> Bool -- canBubble - -> Bool -- cancelable - -> b -- view - -> CLong -- detail - -> m () -- result -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 () - -data DOMUIEventInitUiEventMethodInfo -instance (signature ~ (T.Text -> Bool -> Bool -> b -> CLong -> m ()), MonadIO m, DOMUIEventK a, DOMDOMWindowK b) => MethodInfo DOMUIEventInitUiEventMethodInfo a signature where - overloadedMethod _ = dOMUIEventInitUiEvent - - diff --git a/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMUIEvent where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMUIEventGetCharCodeMethodInfo -data DOMUIEventGetDetailMethodInfo -data DOMUIEventGetKeyCodeMethodInfo -data DOMUIEventGetLayerXMethodInfo -data DOMUIEventGetLayerYMethodInfo -data DOMUIEventGetPageXMethodInfo -data DOMUIEventGetPageYMethodInfo -data DOMUIEventGetViewMethodInfo -data DOMUIEventInitUiEventMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs b/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs +++ /dev/null @@ -1,531 +0,0 @@ - - -{- | -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 - DOMWheelEventGetWheelDeltaMethodInfo , - dOMWheelEventGetWheelDelta , - - --- ** dOMWheelEventGetWheelDeltaX - DOMWheelEventGetWheelDeltaXMethodInfo , - dOMWheelEventGetWheelDeltaX , - - --- ** dOMWheelEventGetWheelDeltaY - DOMWheelEventGetWheelDeltaYMethodInfo , - dOMWheelEventGetWheelDeltaY , - - --- ** dOMWheelEventInitWheelEvent - DOMWheelEventInitWheelEventMethodInfo , - dOMWheelEventInitWheelEvent , - - - - - -- * Properties --- ** DeltaMode - DOMWheelEventDeltaModePropertyInfo , - dOMWheelEventDeltaMode , - getDOMWheelEventDeltaMode , - - --- ** DeltaX - DOMWheelEventDeltaXPropertyInfo , - dOMWheelEventDeltaX , - getDOMWheelEventDeltaX , - - --- ** DeltaY - DOMWheelEventDeltaYPropertyInfo , - dOMWheelEventDeltaY , - getDOMWheelEventDeltaY , - - --- ** DeltaZ - DOMWheelEventDeltaZPropertyInfo , - dOMWheelEventDeltaZ , - getDOMWheelEventDeltaZ , - - --- ** WebkitDirectionInvertedFromDevice - DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo, - dOMWheelEventWebkitDirectionInvertedFromDevice, - getDOMWheelEventWebkitDirectionInvertedFromDevice, - - --- ** WheelDelta - DOMWheelEventWheelDeltaPropertyInfo , - dOMWheelEventWheelDelta , - getDOMWheelEventWheelDelta , - - --- ** WheelDeltaX - DOMWheelEventWheelDeltaXPropertyInfo , - dOMWheelEventWheelDeltaX , - getDOMWheelEventWheelDeltaX , - - --- ** WheelDeltaY - DOMWheelEventWheelDeltaYPropertyInfo , - dOMWheelEventWheelDeltaY , - getDOMWheelEventWheelDeltaY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMWheelEventMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMWheelEventMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMWheelEventMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMWheelEventMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMWheelEventMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMWheelEventMethod "initEvent" o = DOMEventInitEventMethodInfo - ResolveDOMWheelEventMethod "initMouseEvent" o = DOMMouseEventInitMouseEventMethodInfo - ResolveDOMWheelEventMethod "initUiEvent" o = DOMUIEventInitUiEventMethodInfo - ResolveDOMWheelEventMethod "initWheelEvent" o = DOMWheelEventInitWheelEventMethodInfo - ResolveDOMWheelEventMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMWheelEventMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMWheelEventMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMWheelEventMethod "preventDefault" o = DOMEventPreventDefaultMethodInfo - ResolveDOMWheelEventMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMWheelEventMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMWheelEventMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMWheelEventMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMWheelEventMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMWheelEventMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMWheelEventMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMWheelEventMethod "stopPropagation" o = DOMEventStopPropagationMethodInfo - ResolveDOMWheelEventMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMWheelEventMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMWheelEventMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMWheelEventMethod "getAltKey" o = DOMMouseEventGetAltKeyMethodInfo - ResolveDOMWheelEventMethod "getBubbles" o = DOMEventGetBubblesMethodInfo - ResolveDOMWheelEventMethod "getButton" o = DOMMouseEventGetButtonMethodInfo - ResolveDOMWheelEventMethod "getCancelBubble" o = DOMEventGetCancelBubbleMethodInfo - ResolveDOMWheelEventMethod "getCancelable" o = DOMEventGetCancelableMethodInfo - ResolveDOMWheelEventMethod "getCharCode" o = DOMUIEventGetCharCodeMethodInfo - ResolveDOMWheelEventMethod "getClientX" o = DOMMouseEventGetClientXMethodInfo - ResolveDOMWheelEventMethod "getClientY" o = DOMMouseEventGetClientYMethodInfo - ResolveDOMWheelEventMethod "getCtrlKey" o = DOMMouseEventGetCtrlKeyMethodInfo - ResolveDOMWheelEventMethod "getCurrentTarget" o = DOMEventGetCurrentTargetMethodInfo - ResolveDOMWheelEventMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMWheelEventMethod "getDetail" o = DOMUIEventGetDetailMethodInfo - ResolveDOMWheelEventMethod "getEventPhase" o = DOMEventGetEventPhaseMethodInfo - ResolveDOMWheelEventMethod "getEventType" o = DOMEventGetEventTypeMethodInfo - ResolveDOMWheelEventMethod "getFromElement" o = DOMMouseEventGetFromElementMethodInfo - ResolveDOMWheelEventMethod "getKeyCode" o = DOMUIEventGetKeyCodeMethodInfo - ResolveDOMWheelEventMethod "getLayerX" o = DOMUIEventGetLayerXMethodInfo - ResolveDOMWheelEventMethod "getLayerY" o = DOMUIEventGetLayerYMethodInfo - ResolveDOMWheelEventMethod "getMetaKey" o = DOMMouseEventGetMetaKeyMethodInfo - ResolveDOMWheelEventMethod "getOffsetX" o = DOMMouseEventGetOffsetXMethodInfo - ResolveDOMWheelEventMethod "getOffsetY" o = DOMMouseEventGetOffsetYMethodInfo - ResolveDOMWheelEventMethod "getPageX" o = DOMUIEventGetPageXMethodInfo - ResolveDOMWheelEventMethod "getPageY" o = DOMUIEventGetPageYMethodInfo - ResolveDOMWheelEventMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMWheelEventMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMWheelEventMethod "getRelatedTarget" o = DOMMouseEventGetRelatedTargetMethodInfo - ResolveDOMWheelEventMethod "getReturnValue" o = DOMEventGetReturnValueMethodInfo - ResolveDOMWheelEventMethod "getScreenX" o = DOMMouseEventGetScreenXMethodInfo - ResolveDOMWheelEventMethod "getScreenY" o = DOMMouseEventGetScreenYMethodInfo - ResolveDOMWheelEventMethod "getShiftKey" o = DOMMouseEventGetShiftKeyMethodInfo - ResolveDOMWheelEventMethod "getSrcElement" o = DOMEventGetSrcElementMethodInfo - ResolveDOMWheelEventMethod "getTarget" o = DOMEventGetTargetMethodInfo - ResolveDOMWheelEventMethod "getTimeStamp" o = DOMEventGetTimeStampMethodInfo - ResolveDOMWheelEventMethod "getToElement" o = DOMMouseEventGetToElementMethodInfo - ResolveDOMWheelEventMethod "getView" o = DOMUIEventGetViewMethodInfo - ResolveDOMWheelEventMethod "getWheelDelta" o = DOMWheelEventGetWheelDeltaMethodInfo - ResolveDOMWheelEventMethod "getWheelDeltaX" o = DOMWheelEventGetWheelDeltaXMethodInfo - ResolveDOMWheelEventMethod "getWheelDeltaY" o = DOMWheelEventGetWheelDeltaYMethodInfo - ResolveDOMWheelEventMethod "getX" o = DOMMouseEventGetXMethodInfo - ResolveDOMWheelEventMethod "getY" o = DOMMouseEventGetYMethodInfo - ResolveDOMWheelEventMethod "setCancelBubble" o = DOMEventSetCancelBubbleMethodInfo - ResolveDOMWheelEventMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMWheelEventMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMWheelEventMethod "setReturnValue" o = DOMEventSetReturnValueMethodInfo - ResolveDOMWheelEventMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMWheelEventMethod t DOMWheelEvent, MethodInfo info DOMWheelEvent p) => IsLabelProxy t (DOMWheelEvent -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMWheelEventMethod t DOMWheelEvent, MethodInfo info DOMWheelEvent p) => IsLabel t (DOMWheelEvent -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "delta-mode" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMWheelEventDeltaMode :: (MonadIO m, DOMWheelEventK o) => o -> m CULong -getDOMWheelEventDeltaMode obj = liftIO $ getObjectPropertyULong obj "delta-mode" - -data DOMWheelEventDeltaModePropertyInfo -instance AttrInfo DOMWheelEventDeltaModePropertyInfo where - type AttrAllowedOps DOMWheelEventDeltaModePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventDeltaModePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventDeltaModePropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventDeltaModePropertyInfo = CULong - type AttrLabel DOMWheelEventDeltaModePropertyInfo = "delta-mode" - attrGet _ = getDOMWheelEventDeltaMode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "delta-x" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "delta-x" - attrGet _ = getDOMWheelEventDeltaX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "delta-y" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "delta-y" - attrGet _ = getDOMWheelEventDeltaY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "delta-z" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "delta-z" - attrGet _ = getDOMWheelEventDeltaZ - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "webkit-direction-inverted-from-device" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "webkit-direction-inverted-from-device" - attrGet _ = getDOMWheelEventWebkitDirectionInvertedFromDevice - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "wheel-delta" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMWheelEventWheelDelta :: (MonadIO m, DOMWheelEventK o) => o -> m CLong -getDOMWheelEventWheelDelta obj = liftIO $ getObjectPropertyLong obj "wheel-delta" - -data DOMWheelEventWheelDeltaPropertyInfo -instance AttrInfo DOMWheelEventWheelDeltaPropertyInfo where - type AttrAllowedOps DOMWheelEventWheelDeltaPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaPropertyInfo = CLong - type AttrLabel DOMWheelEventWheelDeltaPropertyInfo = "wheel-delta" - attrGet _ = getDOMWheelEventWheelDelta - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "wheel-delta-x" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMWheelEventWheelDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m CLong -getDOMWheelEventWheelDeltaX obj = liftIO $ getObjectPropertyLong obj "wheel-delta-x" - -data DOMWheelEventWheelDeltaXPropertyInfo -instance AttrInfo DOMWheelEventWheelDeltaXPropertyInfo where - type AttrAllowedOps DOMWheelEventWheelDeltaXPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaXPropertyInfo = CLong - type AttrLabel DOMWheelEventWheelDeltaXPropertyInfo = "wheel-delta-x" - attrGet _ = getDOMWheelEventWheelDeltaX - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "wheel-delta-y" - -- Type: TBasicType TLong - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDOMWheelEventWheelDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m CLong -getDOMWheelEventWheelDeltaY obj = liftIO $ getObjectPropertyLong obj "wheel-delta-y" - -data DOMWheelEventWheelDeltaYPropertyInfo -instance AttrInfo DOMWheelEventWheelDeltaYPropertyInfo where - type AttrAllowedOps DOMWheelEventWheelDeltaYPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = DOMWheelEventK - type AttrGetType DOMWheelEventWheelDeltaYPropertyInfo = CLong - type AttrLabel DOMWheelEventWheelDeltaYPropertyInfo = "wheel-delta-y" - attrGet _ = getDOMWheelEventWheelDeltaY - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMWheelEvent = DOMWheelEventAttributeList -type DOMWheelEventAttributeList = ('[ '("altKey", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("clientX", DOMMouseEventClientXPropertyInfo), '("clientY", DOMMouseEventClientYPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("ctrlKey", DOMMouseEventCtrlKeyPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("defaultPrevented", DOMEventDefaultPreventedPropertyInfo), '("deltaMode", DOMWheelEventDeltaModePropertyInfo), '("deltaX", DOMWheelEventDeltaXPropertyInfo), '("deltaY", DOMWheelEventDeltaYPropertyInfo), '("deltaZ", DOMWheelEventDeltaZPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("fromElement", DOMMouseEventFromElementPropertyInfo), '("isTrusted", DOMEventIsTrustedPropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("metaKey", DOMMouseEventMetaKeyPropertyInfo), '("movementX", DOMMouseEventMovementXPropertyInfo), '("movementY", DOMMouseEventMovementYPropertyInfo), '("offsetX", DOMMouseEventOffsetXPropertyInfo), '("offsetY", DOMMouseEventOffsetYPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("relatedTarget", DOMMouseEventRelatedTargetPropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("screenX", DOMMouseEventScreenXPropertyInfo), '("screenY", DOMMouseEventScreenYPropertyInfo), '("shiftKey", DOMMouseEventShiftKeyPropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("toElement", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkitDirectionInvertedFromDevice", DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo), '("wheelDelta", DOMWheelEventWheelDeltaPropertyInfo), '("wheelDeltaX", DOMWheelEventWheelDeltaXPropertyInfo), '("wheelDeltaY", DOMWheelEventWheelDeltaYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)]) - -dOMWheelEventDeltaMode :: AttrLabelProxy "deltaMode" -dOMWheelEventDeltaMode = AttrLabelProxy - -dOMWheelEventDeltaX :: AttrLabelProxy "deltaX" -dOMWheelEventDeltaX = AttrLabelProxy - -dOMWheelEventDeltaY :: AttrLabelProxy "deltaY" -dOMWheelEventDeltaY = AttrLabelProxy - -dOMWheelEventDeltaZ :: AttrLabelProxy "deltaZ" -dOMWheelEventDeltaZ = AttrLabelProxy - -dOMWheelEventWebkitDirectionInvertedFromDevice :: AttrLabelProxy "webkitDirectionInvertedFromDevice" -dOMWheelEventWebkitDirectionInvertedFromDevice = AttrLabelProxy - -dOMWheelEventWheelDelta :: AttrLabelProxy "wheelDelta" -dOMWheelEventWheelDelta = AttrLabelProxy - -dOMWheelEventWheelDeltaX :: AttrLabelProxy "wheelDeltaX" -dOMWheelEventWheelDeltaX = AttrLabelProxy - -dOMWheelEventWheelDeltaY :: AttrLabelProxy "wheelDeltaY" -dOMWheelEventWheelDeltaY = AttrLabelProxy - -type instance SignalList DOMWheelEvent = DOMWheelEventSignalList -type DOMWheelEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMWheelEvent::get_wheel_delta --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMWheelEventGetWheelDelta :: - (MonadIO m, DOMWheelEventK a) => - a -- _obj - -> m CLong -- result -dOMWheelEventGetWheelDelta _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_wheel_event_get_wheel_delta _obj' - touchManagedPtr _obj - return result - -data DOMWheelEventGetWheelDeltaMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaMethodInfo a signature where - overloadedMethod _ = dOMWheelEventGetWheelDelta - --- method DOMWheelEvent::get_wheel_delta_x --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMWheelEventGetWheelDeltaX :: - (MonadIO m, DOMWheelEventK a) => - a -- _obj - -> m CLong -- result -dOMWheelEventGetWheelDeltaX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_wheel_event_get_wheel_delta_x _obj' - touchManagedPtr _obj - return result - -data DOMWheelEventGetWheelDeltaXMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaXMethodInfo a signature where - overloadedMethod _ = dOMWheelEventGetWheelDeltaX - --- method DOMWheelEvent::get_wheel_delta_y --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dOMWheelEventGetWheelDeltaY :: - (MonadIO m, DOMWheelEventK a) => - a -- _obj - -> m CLong -- result -dOMWheelEventGetWheelDeltaY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_wheel_event_get_wheel_delta_y _obj' - touchManagedPtr _obj - return result - -data DOMWheelEventGetWheelDeltaYMethodInfo -instance (signature ~ (m CLong), MonadIO m, DOMWheelEventK a) => MethodInfo DOMWheelEventGetWheelDeltaYMethodInfo a signature where - overloadedMethod _ = dOMWheelEventGetWheelDeltaY - --- method DOMWheelEvent::init_wheel_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wheelDeltaX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wheelDeltaY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "view", argType = TInterface "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screenY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientX", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clientY", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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" - CLong -> -- wheelDeltaX : TBasicType TLong - CLong -> -- wheelDeltaY : TBasicType TLong - Ptr DOMDOMWindow -> -- view : TInterface "WebKit2WebExtension" "DOMDOMWindow" - CLong -> -- screenX : TBasicType TLong - CLong -> -- screenY : TBasicType TLong - CLong -> -- clientX : TBasicType TLong - CLong -> -- clientY : TBasicType TLong - 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 - -> CLong -- wheelDeltaX - -> CLong -- wheelDeltaY - -> b -- view - -> CLong -- screenX - -> CLong -- screenY - -> CLong -- clientX - -> CLong -- clientY - -> Bool -- ctrlKey - -> Bool -- altKey - -> Bool -- shiftKey - -> Bool -- metaKey - -> m () -- result -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 () - -data DOMWheelEventInitWheelEventMethodInfo -instance (signature ~ (CLong -> CLong -> b -> CLong -> CLong -> CLong -> CLong -> Bool -> Bool -> Bool -> Bool -> m ()), MonadIO m, DOMWheelEventK a, DOMDOMWindowK b) => MethodInfo DOMWheelEventInitWheelEventMethodInfo a signature where - overloadedMethod _ = dOMWheelEventInitWheelEvent - - diff --git a/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot b/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMWheelEvent where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMWheelEventGetWheelDeltaMethodInfo -data DOMWheelEventGetWheelDeltaXMethodInfo -data DOMWheelEventGetWheelDeltaYMethodInfo -data DOMWheelEventInitWheelEventMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs b/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs +++ /dev/null @@ -1,145 +0,0 @@ - - -{- | -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 - DOMXPathExpressionEvaluateMethodInfo , - dOMXPathExpressionEvaluate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveDOMXPathExpressionMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMXPathExpressionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMXPathExpressionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMXPathExpressionMethod "evaluate" o = DOMXPathExpressionEvaluateMethodInfo - ResolveDOMXPathExpressionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMXPathExpressionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMXPathExpressionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMXPathExpressionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMXPathExpressionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMXPathExpressionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMXPathExpressionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMXPathExpressionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMXPathExpressionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMXPathExpressionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMXPathExpressionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMXPathExpressionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMXPathExpressionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMXPathExpressionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMXPathExpressionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMXPathExpressionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMXPathExpressionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMXPathExpressionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMXPathExpressionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMXPathExpressionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMXPathExpressionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMXPathExpressionMethod t DOMXPathExpression, MethodInfo info DOMXPathExpression p) => IsLabelProxy t (DOMXPathExpression -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMXPathExpressionMethod t DOMXPathExpression, MethodInfo info DOMXPathExpression p) => IsLabel t (DOMXPathExpression -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DOMXPathExpression = DOMXPathExpressionAttributeList -type DOMXPathExpressionAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DOMXPathExpression = DOMXPathExpressionSignalList -type DOMXPathExpressionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMXPathExpression::evaluate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contextNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inResult", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMXPathExpressionEvaluateMethodInfo -instance (signature ~ (b -> Word16 -> c -> m DOMXPathResult), MonadIO m, DOMXPathExpressionK a, DOMNodeK b, DOMXPathResultK c) => MethodInfo DOMXPathExpressionEvaluateMethodInfo a signature where - overloadedMethod _ = dOMXPathExpressionEvaluate - - diff --git a/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot b/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMXPathExpression where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMXPathExpressionEvaluateMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs b/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs +++ /dev/null @@ -1,646 +0,0 @@ - - -{- | -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 - DOMXPathResultGetBooleanValueMethodInfo , - dOMXPathResultGetBooleanValue , - - --- ** dOMXPathResultGetInvalidIteratorState - DOMXPathResultGetInvalidIteratorStateMethodInfo, - dOMXPathResultGetInvalidIteratorState , - - --- ** dOMXPathResultGetNumberValue - DOMXPathResultGetNumberValueMethodInfo , - dOMXPathResultGetNumberValue , - - --- ** dOMXPathResultGetResultType - DOMXPathResultGetResultTypeMethodInfo , - dOMXPathResultGetResultType , - - --- ** dOMXPathResultGetSingleNodeValue - DOMXPathResultGetSingleNodeValueMethodInfo, - dOMXPathResultGetSingleNodeValue , - - --- ** dOMXPathResultGetSnapshotLength - DOMXPathResultGetSnapshotLengthMethodInfo, - dOMXPathResultGetSnapshotLength , - - --- ** dOMXPathResultGetStringValue - DOMXPathResultGetStringValueMethodInfo , - dOMXPathResultGetStringValue , - - --- ** dOMXPathResultIterateNext - DOMXPathResultIterateNextMethodInfo , - dOMXPathResultIterateNext , - - --- ** dOMXPathResultSnapshotItem - DOMXPathResultSnapshotItemMethodInfo , - dOMXPathResultSnapshotItem , - - - - - -- * Properties --- ** BooleanValue - DOMXPathResultBooleanValuePropertyInfo , - dOMXPathResultBooleanValue , - getDOMXPathResultBooleanValue , - - --- ** InvalidIteratorState - DOMXPathResultInvalidIteratorStatePropertyInfo, - dOMXPathResultInvalidIteratorState , - getDOMXPathResultInvalidIteratorState , - - --- ** NumberValue - DOMXPathResultNumberValuePropertyInfo , - dOMXPathResultNumberValue , - getDOMXPathResultNumberValue , - - --- ** ResultType - DOMXPathResultResultTypePropertyInfo , - dOMXPathResultResultType , - getDOMXPathResultResultType , - - --- ** SingleNodeValue - DOMXPathResultSingleNodeValuePropertyInfo, - dOMXPathResultSingleNodeValue , - getDOMXPathResultSingleNodeValue , - - --- ** SnapshotLength - DOMXPathResultSnapshotLengthPropertyInfo, - dOMXPathResultSnapshotLength , - getDOMXPathResultSnapshotLength , - - --- ** StringValue - DOMXPathResultStringValuePropertyInfo , - dOMXPathResultStringValue , - getDOMXPathResultStringValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveDOMXPathResultMethod (t :: Symbol) (o :: *) :: * where - ResolveDOMXPathResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDOMXPathResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDOMXPathResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDOMXPathResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDOMXPathResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDOMXPathResultMethod "iterateNext" o = DOMXPathResultIterateNextMethodInfo - ResolveDOMXPathResultMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDOMXPathResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDOMXPathResultMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDOMXPathResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDOMXPathResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDOMXPathResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDOMXPathResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDOMXPathResultMethod "snapshotItem" o = DOMXPathResultSnapshotItemMethodInfo - ResolveDOMXPathResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDOMXPathResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDOMXPathResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDOMXPathResultMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDOMXPathResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDOMXPathResultMethod "getBooleanValue" o = DOMXPathResultGetBooleanValueMethodInfo - ResolveDOMXPathResultMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDOMXPathResultMethod "getInvalidIteratorState" o = DOMXPathResultGetInvalidIteratorStateMethodInfo - ResolveDOMXPathResultMethod "getNumberValue" o = DOMXPathResultGetNumberValueMethodInfo - ResolveDOMXPathResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDOMXPathResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDOMXPathResultMethod "getResultType" o = DOMXPathResultGetResultTypeMethodInfo - ResolveDOMXPathResultMethod "getSingleNodeValue" o = DOMXPathResultGetSingleNodeValueMethodInfo - ResolveDOMXPathResultMethod "getSnapshotLength" o = DOMXPathResultGetSnapshotLengthMethodInfo - ResolveDOMXPathResultMethod "getStringValue" o = DOMXPathResultGetStringValueMethodInfo - ResolveDOMXPathResultMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDOMXPathResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDOMXPathResultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDOMXPathResultMethod t DOMXPathResult, MethodInfo info DOMXPathResult p) => IsLabelProxy t (DOMXPathResult -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDOMXPathResultMethod t DOMXPathResult, MethodInfo info DOMXPathResult p) => IsLabel t (DOMXPathResult -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "boolean-value" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "boolean-value" - attrGet _ = getDOMXPathResultBooleanValue - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "invalid-iterator-state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "invalid-iterator-state" - attrGet _ = getDOMXPathResultInvalidIteratorState - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "number-value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "number-value" - attrGet _ = getDOMXPathResultNumberValue - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "result-type" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMXPathResultResultType :: (MonadIO m, DOMXPathResultK o) => o -> m Word32 -getDOMXPathResultResultType obj = liftIO $ getObjectPropertyUInt32 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 = "result-type" - attrGet _ = getDOMXPathResultResultType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "single-node-value" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMXPathResultSingleNodeValue :: (MonadIO m, DOMXPathResultK o) => o -> m (Maybe DOMNode) -getDOMXPathResultSingleNodeValue obj = liftIO $ getObjectPropertyObject obj "single-node-value" DOMNode - -data DOMXPathResultSingleNodeValuePropertyInfo -instance AttrInfo DOMXPathResultSingleNodeValuePropertyInfo where - type AttrAllowedOps DOMXPathResultSingleNodeValuePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultSingleNodeValuePropertyInfo = (Maybe DOMNode) - type AttrLabel DOMXPathResultSingleNodeValuePropertyInfo = "single-node-value" - attrGet _ = getDOMXPathResultSingleNodeValue - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "snapshot-length" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMXPathResultSnapshotLength :: (MonadIO m, DOMXPathResultK o) => o -> m CULong -getDOMXPathResultSnapshotLength obj = liftIO $ getObjectPropertyULong obj "snapshot-length" - -data DOMXPathResultSnapshotLengthPropertyInfo -instance AttrInfo DOMXPathResultSnapshotLengthPropertyInfo where - type AttrAllowedOps DOMXPathResultSnapshotLengthPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultSnapshotLengthPropertyInfo = CULong - type AttrLabel DOMXPathResultSnapshotLengthPropertyInfo = "snapshot-length" - attrGet _ = getDOMXPathResultSnapshotLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "string-value" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDOMXPathResultStringValue :: (MonadIO m, DOMXPathResultK o) => o -> m (Maybe T.Text) -getDOMXPathResultStringValue obj = liftIO $ getObjectPropertyString obj "string-value" - -data DOMXPathResultStringValuePropertyInfo -instance AttrInfo DOMXPathResultStringValuePropertyInfo where - type AttrAllowedOps DOMXPathResultStringValuePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DOMXPathResultStringValuePropertyInfo = (~) () - type AttrBaseTypeConstraint DOMXPathResultStringValuePropertyInfo = DOMXPathResultK - type AttrGetType DOMXPathResultStringValuePropertyInfo = (Maybe T.Text) - type AttrLabel DOMXPathResultStringValuePropertyInfo = "string-value" - attrGet _ = getDOMXPathResultStringValue - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DOMXPathResult = DOMXPathResultAttributeList -type DOMXPathResultAttributeList = ('[ '("booleanValue", DOMXPathResultBooleanValuePropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("invalidIteratorState", DOMXPathResultInvalidIteratorStatePropertyInfo), '("numberValue", DOMXPathResultNumberValuePropertyInfo), '("resultType", DOMXPathResultResultTypePropertyInfo), '("singleNodeValue", DOMXPathResultSingleNodeValuePropertyInfo), '("snapshotLength", DOMXPathResultSnapshotLengthPropertyInfo), '("stringValue", DOMXPathResultStringValuePropertyInfo)] :: [(Symbol, *)]) - -dOMXPathResultBooleanValue :: AttrLabelProxy "booleanValue" -dOMXPathResultBooleanValue = AttrLabelProxy - -dOMXPathResultInvalidIteratorState :: AttrLabelProxy "invalidIteratorState" -dOMXPathResultInvalidIteratorState = AttrLabelProxy - -dOMXPathResultNumberValue :: AttrLabelProxy "numberValue" -dOMXPathResultNumberValue = AttrLabelProxy - -dOMXPathResultResultType :: AttrLabelProxy "resultType" -dOMXPathResultResultType = AttrLabelProxy - -dOMXPathResultSingleNodeValue :: AttrLabelProxy "singleNodeValue" -dOMXPathResultSingleNodeValue = AttrLabelProxy - -dOMXPathResultSnapshotLength :: AttrLabelProxy "snapshotLength" -dOMXPathResultSnapshotLength = AttrLabelProxy - -dOMXPathResultStringValue :: AttrLabelProxy "stringValue" -dOMXPathResultStringValue = AttrLabelProxy - -type instance SignalList DOMXPathResult = DOMXPathResultSignalList -type DOMXPathResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DOMXPathResult::get_boolean_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -dOMXPathResultGetBooleanValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ webkit_dom_xpath_result_get_boolean_value _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data DOMXPathResultGetBooleanValueMethodInfo -instance (signature ~ (m ()), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetBooleanValueMethodInfo a signature where - overloadedMethod _ = dOMXPathResultGetBooleanValue - --- method DOMXPathResult::get_invalid_iterator_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DOMXPathResultGetInvalidIteratorStateMethodInfo -instance (signature ~ (m Bool), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetInvalidIteratorStateMethodInfo a signature where - overloadedMethod _ = dOMXPathResultGetInvalidIteratorState - --- method DOMXPathResult::get_number_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMXPathResultGetNumberValueMethodInfo -instance (signature ~ (m Double), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetNumberValueMethodInfo a signature where - overloadedMethod _ = dOMXPathResultGetNumberValue - --- method DOMXPathResult::get_result_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dOMXPathResultGetResultType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_dom_xpath_result_get_result_type _obj' - touchManagedPtr _obj - return result - -data DOMXPathResultGetResultTypeMethodInfo -instance (signature ~ (m Word16), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetResultTypeMethodInfo a signature where - overloadedMethod _ = dOMXPathResultGetResultType - --- method DOMXPathResult::get_single_node_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMXPathResultGetSingleNodeValueMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetSingleNodeValueMethodInfo a signature where - overloadedMethod _ = dOMXPathResultGetSingleNodeValue - --- method DOMXPathResult::get_snapshot_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- 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 CULong - - -dOMXPathResultGetSnapshotLength :: - (MonadIO m, DOMXPathResultK a) => - a -- _obj - -> m CULong -- result -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 () - ) - -data DOMXPathResultGetSnapshotLengthMethodInfo -instance (signature ~ (m CULong), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetSnapshotLengthMethodInfo a signature where - overloadedMethod _ = dOMXPathResultGetSnapshotLength - --- method DOMXPathResult::get_string_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMXPathResultGetStringValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultGetStringValueMethodInfo a signature where - overloadedMethod _ = dOMXPathResultGetStringValue - --- method DOMXPathResult::iterate_next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data DOMXPathResultIterateNextMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultIterateNextMethodInfo a signature where - overloadedMethod _ = dOMXPathResultIterateNext - --- method DOMXPathResult::snapshot_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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" - CULong -> -- index : TBasicType TULong - Ptr (Ptr GError) -> -- error - IO (Ptr DOMNode) - - -dOMXPathResultSnapshotItem :: - (MonadIO m, DOMXPathResultK a) => - a -- _obj - -> CULong -- index - -> m DOMNode -- result -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 () - ) - -data DOMXPathResultSnapshotItemMethodInfo -instance (signature ~ (CULong -> m DOMNode), MonadIO m, DOMXPathResultK a) => MethodInfo DOMXPathResultSnapshotItemMethodInfo a signature where - overloadedMethod _ = dOMXPathResultSnapshotItem - - diff --git a/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot b/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.WebKit2WebExtension.Objects.DOMXPathResult where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DOMXPathResultGetBooleanValueMethodInfo -data DOMXPathResultGetInvalidIteratorStateMethodInfo -data DOMXPathResultGetNumberValueMethodInfo -data DOMXPathResultGetResultTypeMethodInfo -data DOMXPathResultGetSingleNodeValueMethodInfo -data DOMXPathResultGetSnapshotLengthMethodInfo -data DOMXPathResultGetStringValueMethodInfo -data DOMXPathResultIterateNextMethodInfo -data DOMXPathResultSnapshotItemMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/Frame.hs b/GI/WebKit2WebExtension/Objects/Frame.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/Frame.hs +++ /dev/null @@ -1,239 +0,0 @@ - - -{- | -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 - FrameGetJavascriptContextForScriptWorldMethodInfo, - frameGetJavascriptContextForScriptWorld , - - --- ** frameGetJavascriptGlobalContext - FrameGetJavascriptGlobalContextMethodInfo, - frameGetJavascriptGlobalContext , - - --- ** frameGetUri - FrameGetUriMethodInfo , - frameGetUri , - - --- ** frameIsMainFrame - FrameIsMainFrameMethodInfo , - frameIsMainFrame , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveFrameMethod (t :: Symbol) (o :: *) :: * where - ResolveFrameMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFrameMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFrameMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFrameMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFrameMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFrameMethod "isMainFrame" o = FrameIsMainFrameMethodInfo - ResolveFrameMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFrameMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFrameMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFrameMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFrameMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFrameMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFrameMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFrameMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFrameMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFrameMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFrameMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFrameMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFrameMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFrameMethod "getJavascriptContextForScriptWorld" o = FrameGetJavascriptContextForScriptWorldMethodInfo - ResolveFrameMethod "getJavascriptGlobalContext" o = FrameGetJavascriptGlobalContextMethodInfo - ResolveFrameMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFrameMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFrameMethod "getUri" o = FrameGetUriMethodInfo - ResolveFrameMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFrameMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFrameMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFrameMethod t Frame, MethodInfo info Frame p) => IsLabelProxy t (Frame -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFrameMethod t Frame, MethodInfo info Frame p) => IsLabel t (Frame -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Frame = FrameAttributeList -type FrameAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Frame = FrameSignalList -type FrameSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Frame::get_javascript_context_for_script_world --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "world", argType = TInterface "WebKit2WebExtension" "ScriptWorld", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 - result' <- (newPtr JavaScriptCore.GlobalContext) result - touchManagedPtr _obj - touchManagedPtr world - return result' - -data FrameGetJavascriptContextForScriptWorldMethodInfo -instance (signature ~ (b -> m JavaScriptCore.GlobalContext), MonadIO m, FrameK a, ScriptWorldK b) => MethodInfo FrameGetJavascriptContextForScriptWorldMethodInfo a signature where - overloadedMethod _ = frameGetJavascriptContextForScriptWorld - --- method Frame::get_javascript_global_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -frameGetJavascriptGlobalContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_frame_get_javascript_global_context _obj' - checkUnexpectedReturnNULL "webkit_frame_get_javascript_global_context" result - result' <- (newPtr JavaScriptCore.GlobalContext) result - touchManagedPtr _obj - return result' - -data FrameGetJavascriptGlobalContextMethodInfo -instance (signature ~ (m JavaScriptCore.GlobalContext), MonadIO m, FrameK a) => MethodInfo FrameGetJavascriptGlobalContextMethodInfo a signature where - overloadedMethod _ = frameGetJavascriptGlobalContext - --- method Frame::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data FrameGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FrameK a) => MethodInfo FrameGetUriMethodInfo a signature where - overloadedMethod _ = frameGetUri - --- method Frame::is_main_frame --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -frameIsMainFrame _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_frame_is_main_frame _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FrameIsMainFrameMethodInfo -instance (signature ~ (m Bool), MonadIO m, FrameK a) => MethodInfo FrameIsMainFrameMethodInfo a signature where - overloadedMethod _ = frameIsMainFrame - - diff --git a/GI/WebKit2WebExtension/Objects/Frame.hs-boot b/GI/WebKit2WebExtension/Objects/Frame.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/Frame.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.WebKit2WebExtension.Objects.Frame where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data FrameGetJavascriptContextForScriptWorldMethodInfo -data FrameGetJavascriptGlobalContextMethodInfo -data FrameGetUriMethodInfo -data FrameIsMainFrameMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/HitTestResult.hs b/GI/WebKit2WebExtension/Objects/HitTestResult.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/HitTestResult.hs +++ /dev/null @@ -1,708 +0,0 @@ - - -{- | -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 - HitTestResultContextIsEditableMethodInfo, - hitTestResultContextIsEditable , - - --- ** hitTestResultContextIsImage - HitTestResultContextIsImageMethodInfo , - hitTestResultContextIsImage , - - --- ** hitTestResultContextIsLink - HitTestResultContextIsLinkMethodInfo , - hitTestResultContextIsLink , - - --- ** hitTestResultContextIsMedia - HitTestResultContextIsMediaMethodInfo , - hitTestResultContextIsMedia , - - --- ** hitTestResultContextIsScrollbar - HitTestResultContextIsScrollbarMethodInfo, - hitTestResultContextIsScrollbar , - - --- ** hitTestResultContextIsSelection - HitTestResultContextIsSelectionMethodInfo, - hitTestResultContextIsSelection , - - --- ** hitTestResultGetContext - HitTestResultGetContextMethodInfo , - hitTestResultGetContext , - - --- ** hitTestResultGetImageUri - HitTestResultGetImageUriMethodInfo , - hitTestResultGetImageUri , - - --- ** hitTestResultGetLinkLabel - HitTestResultGetLinkLabelMethodInfo , - hitTestResultGetLinkLabel , - - --- ** hitTestResultGetLinkTitle - HitTestResultGetLinkTitleMethodInfo , - hitTestResultGetLinkTitle , - - --- ** hitTestResultGetLinkUri - HitTestResultGetLinkUriMethodInfo , - hitTestResultGetLinkUri , - - --- ** hitTestResultGetMediaUri - HitTestResultGetMediaUriMethodInfo , - hitTestResultGetMediaUri , - - - - - -- * Properties --- ** Context - HitTestResultContextPropertyInfo , - constructHitTestResultContext , - getHitTestResultContext , - hitTestResultContext , - - --- ** ImageUri - HitTestResultImageUriPropertyInfo , - constructHitTestResultImageUri , - getHitTestResultImageUri , - hitTestResultImageUri , - - --- ** LinkLabel - HitTestResultLinkLabelPropertyInfo , - constructHitTestResultLinkLabel , - getHitTestResultLinkLabel , - hitTestResultLinkLabel , - - --- ** LinkTitle - HitTestResultLinkTitlePropertyInfo , - constructHitTestResultLinkTitle , - getHitTestResultLinkTitle , - hitTestResultLinkTitle , - - --- ** LinkUri - HitTestResultLinkUriPropertyInfo , - constructHitTestResultLinkUri , - getHitTestResultLinkUri , - hitTestResultLinkUri , - - --- ** MediaUri - HitTestResultMediaUriPropertyInfo , - constructHitTestResultMediaUri , - getHitTestResultMediaUri , - hitTestResultMediaUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveHitTestResultMethod (t :: Symbol) (o :: *) :: * where - ResolveHitTestResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveHitTestResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveHitTestResultMethod "contextIsEditable" o = HitTestResultContextIsEditableMethodInfo - ResolveHitTestResultMethod "contextIsImage" o = HitTestResultContextIsImageMethodInfo - ResolveHitTestResultMethod "contextIsLink" o = HitTestResultContextIsLinkMethodInfo - ResolveHitTestResultMethod "contextIsMedia" o = HitTestResultContextIsMediaMethodInfo - ResolveHitTestResultMethod "contextIsScrollbar" o = HitTestResultContextIsScrollbarMethodInfo - ResolveHitTestResultMethod "contextIsSelection" o = HitTestResultContextIsSelectionMethodInfo - ResolveHitTestResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveHitTestResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveHitTestResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveHitTestResultMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveHitTestResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveHitTestResultMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveHitTestResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveHitTestResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveHitTestResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveHitTestResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveHitTestResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveHitTestResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveHitTestResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveHitTestResultMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveHitTestResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveHitTestResultMethod "getContext" o = HitTestResultGetContextMethodInfo - ResolveHitTestResultMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveHitTestResultMethod "getImageUri" o = HitTestResultGetImageUriMethodInfo - ResolveHitTestResultMethod "getLinkLabel" o = HitTestResultGetLinkLabelMethodInfo - ResolveHitTestResultMethod "getLinkTitle" o = HitTestResultGetLinkTitleMethodInfo - ResolveHitTestResultMethod "getLinkUri" o = HitTestResultGetLinkUriMethodInfo - ResolveHitTestResultMethod "getMediaUri" o = HitTestResultGetMediaUriMethodInfo - ResolveHitTestResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveHitTestResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveHitTestResultMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveHitTestResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveHitTestResultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabelProxy t (HitTestResult -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHitTestResultMethod t HitTestResult, MethodInfo info HitTestResult p) => IsLabel t (HitTestResult -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "context" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m Word32 -getHitTestResultContext obj = liftIO $ getObjectPropertyUInt32 obj "context" - -constructHitTestResultContext :: Word32 -> IO ([Char], GValue) -constructHitTestResultContext val = constructObjectPropertyUInt32 "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 = "context" - attrGet _ = getHitTestResultContext - attrSet _ = undefined - attrConstruct _ = constructHitTestResultContext - attrClear _ = undefined - --- VVV Prop "image-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultImageUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultImageUri" $ getObjectPropertyString obj "image-uri" - -constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" (Just val) - -data HitTestResultImageUriPropertyInfo -instance AttrInfo HitTestResultImageUriPropertyInfo where - type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultImageUriPropertyInfo = T.Text - type AttrLabel HitTestResultImageUriPropertyInfo = "image-uri" - attrGet _ = getHitTestResultImageUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultImageUri - attrClear _ = undefined - --- VVV Prop "link-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultLinkLabel :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkLabel obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkLabel" $ getObjectPropertyString obj "link-label" - -constructHitTestResultLinkLabel :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" (Just val) - -data HitTestResultLinkLabelPropertyInfo -instance AttrInfo HitTestResultLinkLabelPropertyInfo where - type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text - type AttrLabel HitTestResultLinkLabelPropertyInfo = "link-label" - attrGet _ = getHitTestResultLinkLabel - attrSet _ = undefined - attrConstruct _ = constructHitTestResultLinkLabel - attrClear _ = undefined - --- VVV Prop "link-title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultLinkTitle :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkTitle obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkTitle" $ getObjectPropertyString obj "link-title" - -constructHitTestResultLinkTitle :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" (Just val) - -data HitTestResultLinkTitlePropertyInfo -instance AttrInfo HitTestResultLinkTitlePropertyInfo where - type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text - type AttrLabel HitTestResultLinkTitlePropertyInfo = "link-title" - attrGet _ = getHitTestResultLinkTitle - attrSet _ = undefined - attrConstruct _ = constructHitTestResultLinkTitle - attrClear _ = undefined - --- VVV Prop "link-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultLinkUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultLinkUri" $ getObjectPropertyString obj "link-uri" - -constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" (Just val) - -data HitTestResultLinkUriPropertyInfo -instance AttrInfo HitTestResultLinkUriPropertyInfo where - type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text - type AttrLabel HitTestResultLinkUriPropertyInfo = "link-uri" - attrGet _ = getHitTestResultLinkUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultLinkUri - attrClear _ = undefined - --- VVV Prop "media-uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text -getHitTestResultMediaUri obj = liftIO $ checkUnexpectedNothing "getHitTestResultMediaUri" $ getObjectPropertyString obj "media-uri" - -constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue) -constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" (Just val) - -data HitTestResultMediaUriPropertyInfo -instance AttrInfo HitTestResultMediaUriPropertyInfo where - type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK - type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text - type AttrLabel HitTestResultMediaUriPropertyInfo = "media-uri" - attrGet _ = getHitTestResultMediaUri - attrSet _ = undefined - attrConstruct _ = constructHitTestResultMediaUri - attrClear _ = undefined - -type instance AttributeList HitTestResult = HitTestResultAttributeList -type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)]) - -hitTestResultContext :: AttrLabelProxy "context" -hitTestResultContext = AttrLabelProxy - -hitTestResultImageUri :: AttrLabelProxy "imageUri" -hitTestResultImageUri = AttrLabelProxy - -hitTestResultLinkLabel :: AttrLabelProxy "linkLabel" -hitTestResultLinkLabel = AttrLabelProxy - -hitTestResultLinkTitle :: AttrLabelProxy "linkTitle" -hitTestResultLinkTitle = AttrLabelProxy - -hitTestResultLinkUri :: AttrLabelProxy "linkUri" -hitTestResultLinkUri = AttrLabelProxy - -hitTestResultMediaUri :: AttrLabelProxy "mediaUri" -hitTestResultMediaUri = AttrLabelProxy - -type instance SignalList HitTestResult = HitTestResultSignalList -type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HitTestResult::context_is_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultContextIsEditableMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsEditableMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsEditable - --- method HitTestResult::context_is_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultContextIsImageMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsImageMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsImage - --- method HitTestResult::context_is_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultContextIsLinkMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsLinkMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsLink - --- method HitTestResult::context_is_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultContextIsMediaMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsMediaMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsMedia - --- method HitTestResult::context_is_scrollbar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultContextIsScrollbarMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsScrollbarMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsScrollbar - --- method HitTestResult::context_is_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultContextIsSelectionMethodInfo -instance (signature ~ (m Bool), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultContextIsSelectionMethodInfo a signature where - overloadedMethod _ = hitTestResultContextIsSelection - --- method HitTestResult::get_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -hitTestResultGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_hit_test_result_get_context _obj' - touchManagedPtr _obj - return result - -data HitTestResultGetContextMethodInfo -instance (signature ~ (m Word32), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetContextMethodInfo a signature where - overloadedMethod _ = hitTestResultGetContext - --- method HitTestResult::get_image_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultGetImageUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetImageUriMethodInfo a signature where - overloadedMethod _ = hitTestResultGetImageUri - --- method HitTestResult::get_link_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultGetLinkLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkLabelMethodInfo a signature where - overloadedMethod _ = hitTestResultGetLinkLabel - --- method HitTestResult::get_link_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultGetLinkTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkTitleMethodInfo a signature where - overloadedMethod _ = hitTestResultGetLinkTitle - --- method HitTestResult::get_link_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultGetLinkUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetLinkUriMethodInfo a signature where - overloadedMethod _ = hitTestResultGetLinkUri - --- method HitTestResult::get_media_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data HitTestResultGetMediaUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, HitTestResultK a) => MethodInfo HitTestResultGetMediaUriMethodInfo a signature where - overloadedMethod _ = hitTestResultGetMediaUri - - diff --git a/GI/WebKit2WebExtension/Objects/HitTestResult.hs-boot b/GI/WebKit2WebExtension/Objects/HitTestResult.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/HitTestResult.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.WebKit2WebExtension.Objects.HitTestResult where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data HitTestResultContextIsEditableMethodInfo -data HitTestResultContextIsImageMethodInfo -data HitTestResultContextIsLinkMethodInfo -data HitTestResultContextIsMediaMethodInfo -data HitTestResultContextIsScrollbarMethodInfo -data HitTestResultContextIsSelectionMethodInfo -data HitTestResultGetContextMethodInfo -data HitTestResultGetImageUriMethodInfo -data HitTestResultGetLinkLabelMethodInfo -data HitTestResultGetLinkTitleMethodInfo -data HitTestResultGetLinkUriMethodInfo -data HitTestResultGetMediaUriMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/ScriptWorld.hs b/GI/WebKit2WebExtension/Objects/ScriptWorld.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/ScriptWorld.hs +++ /dev/null @@ -1,211 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveScriptWorldMethod (t :: Symbol) (o :: *) :: * where - ResolveScriptWorldMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScriptWorldMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScriptWorldMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScriptWorldMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScriptWorldMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScriptWorldMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScriptWorldMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScriptWorldMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScriptWorldMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScriptWorldMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScriptWorldMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScriptWorldMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScriptWorldMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScriptWorldMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScriptWorldMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScriptWorldMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScriptWorldMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScriptWorldMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScriptWorldMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScriptWorldMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScriptWorldMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScriptWorldMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScriptWorldMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScriptWorldMethod t ScriptWorld, MethodInfo info ScriptWorld p) => IsLabelProxy t (ScriptWorld -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScriptWorldMethod t ScriptWorld, MethodInfo info ScriptWorld p) => IsLabel t (ScriptWorld -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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), '("windowObjectCleared", ScriptWorldWindowObjectClearedSignalInfo)] :: [(Symbol, *)]) - --- method ScriptWorld::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -scriptWorldGetDefault = liftIO $ do - result <- webkit_script_world_get_default - checkUnexpectedReturnNULL "webkit_script_world_get_default" result - result' <- (newObject ScriptWorld) result - return result' - - diff --git a/GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot b/GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.WebKit2WebExtension.Objects.ScriptWorld where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 diff --git a/GI/WebKit2WebExtension/Objects/URIRequest.hs b/GI/WebKit2WebExtension/Objects/URIRequest.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/URIRequest.hs +++ /dev/null @@ -1,307 +0,0 @@ - - -{- | -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 - URIRequestGetHttpHeadersMethodInfo , - uRIRequestGetHttpHeaders , - - --- ** uRIRequestGetHttpMethod - URIRequestGetHttpMethodMethodInfo , - uRIRequestGetHttpMethod , - - --- ** uRIRequestGetUri - URIRequestGetUriMethodInfo , - uRIRequestGetUri , - - --- ** uRIRequestNew - uRIRequestNew , - - --- ** uRIRequestSetUri - URIRequestSetUriMethodInfo , - uRIRequestSetUri , - - - - - -- * Properties --- ** Uri - URIRequestUriPropertyInfo , - constructURIRequestUri , - getURIRequestUri , - setURIRequestUri , - uRIRequestUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveURIRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveURIRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveURIRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveURIRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveURIRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveURIRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveURIRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveURIRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveURIRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveURIRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveURIRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveURIRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveURIRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveURIRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveURIRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveURIRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveURIRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveURIRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveURIRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveURIRequestMethod "getHttpHeaders" o = URIRequestGetHttpHeadersMethodInfo - ResolveURIRequestMethod "getHttpMethod" o = URIRequestGetHttpMethodMethodInfo - ResolveURIRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveURIRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveURIRequestMethod "getUri" o = URIRequestGetUriMethodInfo - ResolveURIRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveURIRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveURIRequestMethod "setUri" o = URIRequestSetUriMethodInfo - ResolveURIRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabelProxy t (URIRequest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveURIRequestMethod t URIRequest, MethodInfo info URIRequest p) => IsLabel t (URIRequest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getURIRequestUri :: (MonadIO m, URIRequestK o) => o -> m T.Text -getURIRequestUri obj = liftIO $ checkUnexpectedNothing "getURIRequestUri" $ getObjectPropertyString obj "uri" - -setURIRequestUri :: (MonadIO m, URIRequestK o) => o -> T.Text -> m () -setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) - -constructURIRequestUri :: T.Text -> IO ([Char], GValue) -constructURIRequestUri val = constructObjectPropertyString "uri" (Just 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 = "uri" - attrGet _ = getURIRequestUri - attrSet _ = setURIRequestUri - attrConstruct _ = constructURIRequestUri - attrClear _ = undefined - -type instance AttributeList URIRequest = URIRequestAttributeList -type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)]) - -uRIRequestUri :: AttrLabelProxy "uri" -uRIRequestUri = AttrLabelProxy - -type instance SignalList URIRequest = URIRequestSignalList -type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method URIRequest::new --- method type : Constructor --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIRequestGetHttpHeadersMethodInfo -instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpHeadersMethodInfo a signature where - overloadedMethod _ = uRIRequestGetHttpHeaders - --- method URIRequest::get_http_method --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_uri_request_get_http_method" webkit_uri_request_get_http_method :: - Ptr URIRequest -> -- _obj : TInterface "WebKit2WebExtension" "URIRequest" - IO CString - - -uRIRequestGetHttpMethod :: - (MonadIO m, URIRequestK a) => - a -- _obj - -> m T.Text -- result -uRIRequestGetHttpMethod _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_uri_request_get_http_method _obj' - checkUnexpectedReturnNULL "webkit_uri_request_get_http_method" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data URIRequestGetHttpMethodMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetHttpMethodMethodInfo a signature where - overloadedMethod _ = uRIRequestGetHttpMethod - --- method URIRequest::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIRequestGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIRequestK a) => MethodInfo URIRequestGetUriMethodInfo a signature where - overloadedMethod _ = uRIRequestGetUri - --- method URIRequest::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -uRIRequestSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - webkit_uri_request_set_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - -data URIRequestSetUriMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, URIRequestK a) => MethodInfo URIRequestSetUriMethodInfo a signature where - overloadedMethod _ = uRIRequestSetUri - - diff --git a/GI/WebKit2WebExtension/Objects/URIRequest.hs-boot b/GI/WebKit2WebExtension/Objects/URIRequest.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/URIRequest.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2WebExtension.Objects.URIRequest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data URIRequestGetHttpHeadersMethodInfo -data URIRequestGetHttpMethodMethodInfo -data URIRequestGetUriMethodInfo -data URIRequestSetUriMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/URIResponse.hs b/GI/WebKit2WebExtension/Objects/URIResponse.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/URIResponse.hs +++ /dev/null @@ -1,479 +0,0 @@ - - -{- | -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 - URIResponseGetContentLengthMethodInfo , - uRIResponseGetContentLength , - - --- ** uRIResponseGetHttpHeaders - URIResponseGetHttpHeadersMethodInfo , - uRIResponseGetHttpHeaders , - - --- ** uRIResponseGetMimeType - URIResponseGetMimeTypeMethodInfo , - uRIResponseGetMimeType , - - --- ** uRIResponseGetStatusCode - URIResponseGetStatusCodeMethodInfo , - uRIResponseGetStatusCode , - - --- ** uRIResponseGetSuggestedFilename - URIResponseGetSuggestedFilenameMethodInfo, - uRIResponseGetSuggestedFilename , - - --- ** uRIResponseGetUri - URIResponseGetUriMethodInfo , - uRIResponseGetUri , - - - - - -- * Properties --- ** ContentLength - URIResponseContentLengthPropertyInfo , - getURIResponseContentLength , - uRIResponseContentLength , - - --- ** HttpHeaders - URIResponseHttpHeadersPropertyInfo , - getURIResponseHttpHeaders , - uRIResponseHttpHeaders , - - --- ** MimeType - URIResponseMimeTypePropertyInfo , - getURIResponseMimeType , - uRIResponseMimeType , - - --- ** StatusCode - URIResponseStatusCodePropertyInfo , - getURIResponseStatusCode , - uRIResponseStatusCode , - - --- ** SuggestedFilename - URIResponseSuggestedFilenamePropertyInfo, - getURIResponseSuggestedFilename , - uRIResponseSuggestedFilename , - - --- ** Uri - URIResponseUriPropertyInfo , - getURIResponseUri , - uRIResponseUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveURIResponseMethod (t :: Symbol) (o :: *) :: * where - ResolveURIResponseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveURIResponseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveURIResponseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveURIResponseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveURIResponseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveURIResponseMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveURIResponseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveURIResponseMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveURIResponseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveURIResponseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveURIResponseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveURIResponseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveURIResponseMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveURIResponseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveURIResponseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveURIResponseMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveURIResponseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveURIResponseMethod "getContentLength" o = URIResponseGetContentLengthMethodInfo - ResolveURIResponseMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveURIResponseMethod "getHttpHeaders" o = URIResponseGetHttpHeadersMethodInfo - ResolveURIResponseMethod "getMimeType" o = URIResponseGetMimeTypeMethodInfo - ResolveURIResponseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveURIResponseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveURIResponseMethod "getStatusCode" o = URIResponseGetStatusCodeMethodInfo - ResolveURIResponseMethod "getSuggestedFilename" o = URIResponseGetSuggestedFilenameMethodInfo - ResolveURIResponseMethod "getUri" o = URIResponseGetUriMethodInfo - ResolveURIResponseMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveURIResponseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveURIResponseMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabelProxy t (URIResponse -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveURIResponseMethod t URIResponse, MethodInfo info URIResponse p) => IsLabel t (URIResponse -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "content-length" - -- Type: TBasicType TUInt64 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "content-length" - attrGet _ = getURIResponseContentLength - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "http-headers" - -- Type: TInterface "Soup" "MessageHeaders" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m (Maybe Soup.MessageHeaders) -getURIResponseHttpHeaders obj = liftIO $ getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders - -data URIResponseHttpHeadersPropertyInfo -instance AttrInfo URIResponseHttpHeadersPropertyInfo where - type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK - type AttrGetType URIResponseHttpHeadersPropertyInfo = (Maybe Soup.MessageHeaders) - type AttrLabel URIResponseHttpHeadersPropertyInfo = "http-headers" - attrGet _ = getURIResponseHttpHeaders - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "mime-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseMimeType :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseMimeType obj = liftIO $ checkUnexpectedNothing "getURIResponseMimeType" $ getObjectPropertyString obj "mime-type" - -data URIResponseMimeTypePropertyInfo -instance AttrInfo URIResponseMimeTypePropertyInfo where - type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK - type AttrGetType URIResponseMimeTypePropertyInfo = T.Text - type AttrLabel URIResponseMimeTypePropertyInfo = "mime-type" - attrGet _ = getURIResponseMimeType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "status-code" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseStatusCode :: (MonadIO m, URIResponseK o) => o -> m Word32 -getURIResponseStatusCode obj = liftIO $ getObjectPropertyUInt32 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 = "status-code" - attrGet _ = getURIResponseStatusCode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "suggested-filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseSuggestedFilename :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseSuggestedFilename obj = liftIO $ checkUnexpectedNothing "getURIResponseSuggestedFilename" $ getObjectPropertyString obj "suggested-filename" - -data URIResponseSuggestedFilenamePropertyInfo -instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where - type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK - type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text - type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "suggested-filename" - attrGet _ = getURIResponseSuggestedFilename - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getURIResponseUri :: (MonadIO m, URIResponseK o) => o -> m T.Text -getURIResponseUri obj = liftIO $ checkUnexpectedNothing "getURIResponseUri" $ getObjectPropertyString obj "uri" - -data URIResponseUriPropertyInfo -instance AttrInfo URIResponseUriPropertyInfo where - type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) () - type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK - type AttrGetType URIResponseUriPropertyInfo = T.Text - type AttrLabel URIResponseUriPropertyInfo = "uri" - attrGet _ = getURIResponseUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList URIResponse = URIResponseAttributeList -type URIResponseAttributeList = ('[ '("contentLength", URIResponseContentLengthPropertyInfo), '("httpHeaders", URIResponseHttpHeadersPropertyInfo), '("mimeType", URIResponseMimeTypePropertyInfo), '("statusCode", URIResponseStatusCodePropertyInfo), '("suggestedFilename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)]) - -uRIResponseContentLength :: AttrLabelProxy "contentLength" -uRIResponseContentLength = AttrLabelProxy - -uRIResponseHttpHeaders :: AttrLabelProxy "httpHeaders" -uRIResponseHttpHeaders = AttrLabelProxy - -uRIResponseMimeType :: AttrLabelProxy "mimeType" -uRIResponseMimeType = AttrLabelProxy - -uRIResponseStatusCode :: AttrLabelProxy "statusCode" -uRIResponseStatusCode = AttrLabelProxy - -uRIResponseSuggestedFilename :: AttrLabelProxy "suggestedFilename" -uRIResponseSuggestedFilename = AttrLabelProxy - -uRIResponseUri :: AttrLabelProxy "uri" -uRIResponseUri = AttrLabelProxy - -type instance SignalList URIResponse = URIResponseSignalList -type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method URIResponse::get_content_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -uRIResponseGetContentLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_uri_response_get_content_length _obj' - touchManagedPtr _obj - return result - -data URIResponseGetContentLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetContentLengthMethodInfo a signature where - overloadedMethod _ = uRIResponseGetContentLength - --- method URIResponse::get_http_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIResponseGetHttpHeadersMethodInfo -instance (signature ~ (m Soup.MessageHeaders), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetHttpHeadersMethodInfo a signature where - overloadedMethod _ = uRIResponseGetHttpHeaders - --- method URIResponse::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIResponseGetMimeTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetMimeTypeMethodInfo a signature where - overloadedMethod _ = uRIResponseGetMimeType - --- method URIResponse::get_status_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -uRIResponseGetStatusCode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_uri_response_get_status_code _obj' - touchManagedPtr _obj - return result - -data URIResponseGetStatusCodeMethodInfo -instance (signature ~ (m Word32), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetStatusCodeMethodInfo a signature where - overloadedMethod _ = uRIResponseGetStatusCode - --- method URIResponse::get_suggested_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIResponseGetSuggestedFilenameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetSuggestedFilenameMethodInfo a signature where - overloadedMethod _ = uRIResponseGetSuggestedFilename - --- method URIResponse::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIResponseGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, URIResponseK a) => MethodInfo URIResponseGetUriMethodInfo a signature where - overloadedMethod _ = uRIResponseGetUri - - diff --git a/GI/WebKit2WebExtension/Objects/URIResponse.hs-boot b/GI/WebKit2WebExtension/Objects/URIResponse.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/URIResponse.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.WebKit2WebExtension.Objects.URIResponse where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data URIResponseGetContentLengthMethodInfo -data URIResponseGetHttpHeadersMethodInfo -data URIResponseGetMimeTypeMethodInfo -data URIResponseGetStatusCodeMethodInfo -data URIResponseGetSuggestedFilenameMethodInfo -data URIResponseGetUriMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/WebEditor.hs b/GI/WebKit2WebExtension/Objects/WebEditor.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebEditor.hs +++ /dev/null @@ -1,188 +0,0 @@ - - -{- | -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.WebEditor - ( - --- * Exported types - WebEditor(..) , - WebEditorK , - toWebEditor , - noWebEditor , - - - -- * Methods --- ** webEditorGetPage - WebEditorGetPageMethodInfo , - webEditorGetPage , - - - - - -- * Signals --- ** SelectionChanged - WebEditorSelectionChangedCallback , - WebEditorSelectionChangedCallbackC , - WebEditorSelectionChangedSignalInfo , - afterWebEditorSelectionChanged , - mkWebEditorSelectionChangedCallback , - noWebEditorSelectionChangedCallback , - onWebEditorSelectionChanged , - webEditorSelectionChangedCallbackWrapper, - webEditorSelectionChangedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 WebEditor = WebEditor (ForeignPtr WebEditor) -foreign import ccall "webkit_web_editor_get_type" - c_webkit_web_editor_get_type :: IO GType - -type instance ParentTypes WebEditor = WebEditorParentTypes -type WebEditorParentTypes = '[GObject.Object] - -instance GObject WebEditor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_webkit_web_editor_get_type - - -class GObject o => WebEditorK o -instance (GObject o, IsDescendantOf WebEditor o) => WebEditorK o - -toWebEditor :: WebEditorK o => o -> IO WebEditor -toWebEditor = unsafeCastTo WebEditor - -noWebEditor :: Maybe WebEditor -noWebEditor = Nothing - -type family ResolveWebEditorMethod (t :: Symbol) (o :: *) :: * where - ResolveWebEditorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebEditorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebEditorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebEditorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebEditorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebEditorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebEditorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebEditorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebEditorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebEditorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebEditorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebEditorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebEditorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebEditorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebEditorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebEditorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebEditorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebEditorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebEditorMethod "getPage" o = WebEditorGetPageMethodInfo - ResolveWebEditorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebEditorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebEditorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebEditorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebEditorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebEditorMethod t WebEditor, MethodInfo info WebEditor p) => IsLabelProxy t (WebEditor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebEditorMethod t WebEditor, MethodInfo info WebEditor p) => IsLabel t (WebEditor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal WebEditor::selection-changed -type WebEditorSelectionChangedCallback = - IO () - -noWebEditorSelectionChangedCallback :: Maybe WebEditorSelectionChangedCallback -noWebEditorSelectionChangedCallback = Nothing - -type WebEditorSelectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebEditorSelectionChangedCallback :: WebEditorSelectionChangedCallbackC -> IO (FunPtr WebEditorSelectionChangedCallbackC) - -webEditorSelectionChangedClosure :: WebEditorSelectionChangedCallback -> IO Closure -webEditorSelectionChangedClosure cb = newCClosure =<< mkWebEditorSelectionChangedCallback wrapped - where wrapped = webEditorSelectionChangedCallbackWrapper cb - -webEditorSelectionChangedCallbackWrapper :: - WebEditorSelectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -webEditorSelectionChangedCallbackWrapper _cb _ _ = do - _cb - -onWebEditorSelectionChanged :: (GObject a, MonadIO m) => a -> WebEditorSelectionChangedCallback -> m SignalHandlerId -onWebEditorSelectionChanged obj cb = liftIO $ connectWebEditorSelectionChanged obj cb SignalConnectBefore -afterWebEditorSelectionChanged :: (GObject a, MonadIO m) => a -> WebEditorSelectionChangedCallback -> m SignalHandlerId -afterWebEditorSelectionChanged obj cb = connectWebEditorSelectionChanged obj cb SignalConnectAfter - -connectWebEditorSelectionChanged :: (GObject a, MonadIO m) => - a -> WebEditorSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebEditorSelectionChanged obj cb after = liftIO $ do - cb' <- mkWebEditorSelectionChangedCallback (webEditorSelectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "selection-changed" cb' after - -type instance AttributeList WebEditor = WebEditorAttributeList -type WebEditorAttributeList = ('[ ] :: [(Symbol, *)]) - -data WebEditorSelectionChangedSignalInfo -instance SignalInfo WebEditorSelectionChangedSignalInfo where - type HaskellCallbackType WebEditorSelectionChangedSignalInfo = WebEditorSelectionChangedCallback - connectSignal _ = connectWebEditorSelectionChanged - -type instance SignalList WebEditor = WebEditorSignalList -type WebEditorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", WebEditorSelectionChangedSignalInfo)] :: [(Symbol, *)]) - --- method WebEditor::get_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebEditor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "WebPage") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_editor_get_page" webkit_web_editor_get_page :: - Ptr WebEditor -> -- _obj : TInterface "WebKit2WebExtension" "WebEditor" - IO (Ptr WebPage) - - -webEditorGetPage :: - (MonadIO m, WebEditorK a) => - a -- _obj - -> m WebPage -- result -webEditorGetPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_editor_get_page _obj' - checkUnexpectedReturnNULL "webkit_web_editor_get_page" result - result' <- (newObject WebPage) result - touchManagedPtr _obj - return result' - -data WebEditorGetPageMethodInfo -instance (signature ~ (m WebPage), MonadIO m, WebEditorK a) => MethodInfo WebEditorGetPageMethodInfo a signature where - overloadedMethod _ = webEditorGetPage - - diff --git a/GI/WebKit2WebExtension/Objects/WebEditor.hs-boot b/GI/WebKit2WebExtension/Objects/WebEditor.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebEditor.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2WebExtension.Objects.WebEditor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WebEditor = WebEditor (ForeignPtr WebEditor) -instance GObject WebEditor where -class GObject o => WebEditorK o -instance (GObject o, IsDescendantOf WebEditor o) => WebEditorK o -data WebEditorSelectionChangedSignalInfo -data WebEditorGetPageMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/WebExtension.hs b/GI/WebKit2WebExtension/Objects/WebExtension.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebExtension.hs +++ /dev/null @@ -1,194 +0,0 @@ - - -{- | -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 - WebExtensionGetPageMethodInfo , - webExtensionGetPage , - - - - - -- * Signals --- ** PageCreated - WebExtensionPageCreatedCallback , - WebExtensionPageCreatedCallbackC , - WebExtensionPageCreatedSignalInfo , - afterWebExtensionPageCreated , - mkWebExtensionPageCreatedCallback , - noWebExtensionPageCreatedCallback , - onWebExtensionPageCreated , - webExtensionPageCreatedCallbackWrapper , - webExtensionPageCreatedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveWebExtensionMethod (t :: Symbol) (o :: *) :: * where - ResolveWebExtensionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebExtensionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebExtensionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebExtensionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebExtensionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebExtensionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebExtensionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebExtensionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebExtensionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebExtensionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebExtensionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebExtensionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebExtensionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebExtensionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebExtensionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebExtensionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebExtensionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebExtensionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebExtensionMethod "getPage" o = WebExtensionGetPageMethodInfo - ResolveWebExtensionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebExtensionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebExtensionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebExtensionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebExtensionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebExtensionMethod t WebExtension, MethodInfo info WebExtension p) => IsLabelProxy t (WebExtension -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebExtensionMethod t WebExtension, MethodInfo info WebExtension p) => IsLabel t (WebExtension -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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 _ webPage _ = do - webPage' <- (newObject WebPage) webPage - _cb webPage' - -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), '("pageCreated", WebExtensionPageCreatedSignalInfo)] :: [(Symbol, *)]) - --- method WebExtension::get_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- pageId - -> m WebPage -- result -webExtensionGetPage _obj pageId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_extension_get_page _obj' pageId - checkUnexpectedReturnNULL "webkit_web_extension_get_page" result - result' <- (newObject WebPage) result - touchManagedPtr _obj - return result' - -data WebExtensionGetPageMethodInfo -instance (signature ~ (Word64 -> m WebPage), MonadIO m, WebExtensionK a) => MethodInfo WebExtensionGetPageMethodInfo a signature where - overloadedMethod _ = webExtensionGetPage - - diff --git a/GI/WebKit2WebExtension/Objects/WebExtension.hs-boot b/GI/WebKit2WebExtension/Objects/WebExtension.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebExtension.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2WebExtension.Objects.WebExtension where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data WebExtensionGetPageMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs b/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs +++ /dev/null @@ -1,178 +0,0 @@ - - -{- | -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 - WebHitTestResultGetNodeMethodInfo , - webHitTestResultGetNode , - - - - - -- * Properties --- ** Node - WebHitTestResultNodePropertyInfo , - constructWebHitTestResultNode , - getWebHitTestResultNode , - webHitTestResultNode , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveWebHitTestResultMethod (t :: Symbol) (o :: *) :: * where - ResolveWebHitTestResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebHitTestResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebHitTestResultMethod "contextIsEditable" o = HitTestResultContextIsEditableMethodInfo - ResolveWebHitTestResultMethod "contextIsImage" o = HitTestResultContextIsImageMethodInfo - ResolveWebHitTestResultMethod "contextIsLink" o = HitTestResultContextIsLinkMethodInfo - ResolveWebHitTestResultMethod "contextIsMedia" o = HitTestResultContextIsMediaMethodInfo - ResolveWebHitTestResultMethod "contextIsScrollbar" o = HitTestResultContextIsScrollbarMethodInfo - ResolveWebHitTestResultMethod "contextIsSelection" o = HitTestResultContextIsSelectionMethodInfo - ResolveWebHitTestResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebHitTestResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebHitTestResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebHitTestResultMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebHitTestResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebHitTestResultMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebHitTestResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebHitTestResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebHitTestResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebHitTestResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebHitTestResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebHitTestResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebHitTestResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebHitTestResultMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebHitTestResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebHitTestResultMethod "getContext" o = HitTestResultGetContextMethodInfo - ResolveWebHitTestResultMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebHitTestResultMethod "getImageUri" o = HitTestResultGetImageUriMethodInfo - ResolveWebHitTestResultMethod "getLinkLabel" o = HitTestResultGetLinkLabelMethodInfo - ResolveWebHitTestResultMethod "getLinkTitle" o = HitTestResultGetLinkTitleMethodInfo - ResolveWebHitTestResultMethod "getLinkUri" o = HitTestResultGetLinkUriMethodInfo - ResolveWebHitTestResultMethod "getMediaUri" o = HitTestResultGetMediaUriMethodInfo - ResolveWebHitTestResultMethod "getNode" o = WebHitTestResultGetNodeMethodInfo - ResolveWebHitTestResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebHitTestResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebHitTestResultMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebHitTestResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebHitTestResultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebHitTestResultMethod t WebHitTestResult, MethodInfo info WebHitTestResult p) => IsLabelProxy t (WebHitTestResult -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebHitTestResultMethod t WebHitTestResult, MethodInfo info WebHitTestResult p) => IsLabel t (WebHitTestResult -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "node" - -- Type: TInterface "WebKit2WebExtension" "DOMNode" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebHitTestResultNode :: (MonadIO m, WebHitTestResultK o) => o -> m DOMNode -getWebHitTestResultNode obj = liftIO $ checkUnexpectedNothing "getWebHitTestResultNode" $ getObjectPropertyObject obj "node" DOMNode - -constructWebHitTestResultNode :: (DOMNodeK a) => a -> IO ([Char], GValue) -constructWebHitTestResultNode val = constructObjectPropertyObject "node" (Just val) - -data WebHitTestResultNodePropertyInfo -instance AttrInfo WebHitTestResultNodePropertyInfo where - type AttrAllowedOps WebHitTestResultNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebHitTestResultNodePropertyInfo = DOMNodeK - type AttrBaseTypeConstraint WebHitTestResultNodePropertyInfo = WebHitTestResultK - type AttrGetType WebHitTestResultNodePropertyInfo = DOMNode - type AttrLabel WebHitTestResultNodePropertyInfo = "node" - attrGet _ = getWebHitTestResultNode - attrSet _ = undefined - attrConstruct _ = constructWebHitTestResultNode - attrClear _ = undefined - -type instance AttributeList WebHitTestResult = WebHitTestResultAttributeList -type WebHitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo), '("node", WebHitTestResultNodePropertyInfo)] :: [(Symbol, *)]) - -webHitTestResultNode :: AttrLabelProxy "node" -webHitTestResultNode = AttrLabelProxy - -type instance SignalList WebHitTestResult = WebHitTestResultSignalList -type WebHitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WebHitTestResult::get_node --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebHitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebHitTestResultGetNodeMethodInfo -instance (signature ~ (m DOMNode), MonadIO m, WebHitTestResultK a) => MethodInfo WebHitTestResultGetNodeMethodInfo a signature where - overloadedMethod _ = webHitTestResultGetNode - - diff --git a/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot b/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.WebKit2WebExtension.Objects.WebHitTestResult where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data WebHitTestResultGetNodeMethodInfo diff --git a/GI/WebKit2WebExtension/Objects/WebPage.hs b/GI/WebKit2WebExtension/Objects/WebPage.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebPage.hs +++ /dev/null @@ -1,547 +0,0 @@ - - -{- | -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 - WebPageGetDomDocumentMethodInfo , - webPageGetDomDocument , - - --- ** webPageGetEditor - WebPageGetEditorMethodInfo , - webPageGetEditor , - - --- ** webPageGetId - WebPageGetIdMethodInfo , - webPageGetId , - - --- ** webPageGetMainFrame - WebPageGetMainFrameMethodInfo , - webPageGetMainFrame , - - --- ** webPageGetUri - WebPageGetUriMethodInfo , - webPageGetUri , - - - - - -- * Properties --- ** Uri - WebPageUriPropertyInfo , - getWebPageUri , - webPageUri , - - - - - -- * Signals --- ** ConsoleMessageSent - WebPageConsoleMessageSentCallback , - WebPageConsoleMessageSentCallbackC , - WebPageConsoleMessageSentSignalInfo , - afterWebPageConsoleMessageSent , - mkWebPageConsoleMessageSentCallback , - noWebPageConsoleMessageSentCallback , - onWebPageConsoleMessageSent , - webPageConsoleMessageSentCallbackWrapper, - webPageConsoleMessageSentClosure , - - --- ** 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveWebPageMethod (t :: Symbol) (o :: *) :: * where - ResolveWebPageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebPageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebPageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebPageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebPageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebPageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebPageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebPageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebPageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebPageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebPageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebPageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebPageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebPageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebPageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebPageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebPageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebPageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebPageMethod "getDomDocument" o = WebPageGetDomDocumentMethodInfo - ResolveWebPageMethod "getEditor" o = WebPageGetEditorMethodInfo - ResolveWebPageMethod "getId" o = WebPageGetIdMethodInfo - ResolveWebPageMethod "getMainFrame" o = WebPageGetMainFrameMethodInfo - ResolveWebPageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebPageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebPageMethod "getUri" o = WebPageGetUriMethodInfo - ResolveWebPageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebPageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebPageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebPageMethod t WebPage, MethodInfo info WebPage p) => IsLabelProxy t (WebPage -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebPageMethod t WebPage, MethodInfo info WebPage p) => IsLabel t (WebPage -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal WebPage::console-message-sent -type WebPageConsoleMessageSentCallback = - ConsoleMessage -> - IO () - -noWebPageConsoleMessageSentCallback :: Maybe WebPageConsoleMessageSentCallback -noWebPageConsoleMessageSentCallback = Nothing - -type WebPageConsoleMessageSentCallbackC = - Ptr () -> -- object - Ptr ConsoleMessage -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebPageConsoleMessageSentCallback :: WebPageConsoleMessageSentCallbackC -> IO (FunPtr WebPageConsoleMessageSentCallbackC) - -webPageConsoleMessageSentClosure :: WebPageConsoleMessageSentCallback -> IO Closure -webPageConsoleMessageSentClosure cb = newCClosure =<< mkWebPageConsoleMessageSentCallback wrapped - where wrapped = webPageConsoleMessageSentCallbackWrapper cb - -webPageConsoleMessageSentCallbackWrapper :: - WebPageConsoleMessageSentCallback -> - Ptr () -> - Ptr ConsoleMessage -> - Ptr () -> - IO () -webPageConsoleMessageSentCallbackWrapper _cb _ consoleMessage _ = do - consoleMessage' <- (newBoxed ConsoleMessage) consoleMessage - _cb consoleMessage' - -onWebPageConsoleMessageSent :: (GObject a, MonadIO m) => a -> WebPageConsoleMessageSentCallback -> m SignalHandlerId -onWebPageConsoleMessageSent obj cb = liftIO $ connectWebPageConsoleMessageSent obj cb SignalConnectBefore -afterWebPageConsoleMessageSent :: (GObject a, MonadIO m) => a -> WebPageConsoleMessageSentCallback -> m SignalHandlerId -afterWebPageConsoleMessageSent obj cb = connectWebPageConsoleMessageSent obj cb SignalConnectAfter - -connectWebPageConsoleMessageSent :: (GObject a, MonadIO m) => - a -> WebPageConsoleMessageSentCallback -> SignalConnectMode -> m SignalHandlerId -connectWebPageConsoleMessageSent obj cb after = liftIO $ do - cb' <- mkWebPageConsoleMessageSentCallback (webPageConsoleMessageSentCallbackWrapper cb) - connectSignalFunPtr obj "console-message-sent" cb' after - --- 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 _ contextMenu hitTestResult _ = do - contextMenu' <- (newObject ContextMenu) contextMenu - hitTestResult' <- (newObject WebHitTestResult) hitTestResult - result <- _cb contextMenu' hitTestResult' - 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 redirectedResponse _ = do - request' <- (newObject URIRequest) request - redirectedResponse' <- (newObject URIResponse) redirectedResponse - result <- _cb request' redirectedResponse' - 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] - -- Nullable: (Just False,Nothing) - -getWebPageUri :: (MonadIO m, WebPageK o) => o -> m T.Text -getWebPageUri obj = liftIO $ checkUnexpectedNothing "getWebPageUri" $ getObjectPropertyString obj "uri" - -data WebPageUriPropertyInfo -instance AttrInfo WebPageUriPropertyInfo where - type AttrAllowedOps WebPageUriPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebPageUriPropertyInfo = (~) () - type AttrBaseTypeConstraint WebPageUriPropertyInfo = WebPageK - type AttrGetType WebPageUriPropertyInfo = T.Text - type AttrLabel WebPageUriPropertyInfo = "uri" - attrGet _ = getWebPageUri - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList WebPage = WebPageAttributeList -type WebPageAttributeList = ('[ '("uri", WebPageUriPropertyInfo)] :: [(Symbol, *)]) - -webPageUri :: AttrLabelProxy "uri" -webPageUri = AttrLabelProxy - -data WebPageConsoleMessageSentSignalInfo -instance SignalInfo WebPageConsoleMessageSentSignalInfo where - type HaskellCallbackType WebPageConsoleMessageSentSignalInfo = WebPageConsoleMessageSentCallback - connectSignal _ = connectWebPageConsoleMessageSent - -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 = ('[ '("consoleMessageSent", WebPageConsoleMessageSentSignalInfo), '("contextMenu", WebPageContextMenuSignalInfo), '("documentLoaded", WebPageDocumentLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sendRequest", WebPageSendRequestSignalInfo)] :: [(Symbol, *)]) - --- method WebPage::get_dom_document --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebPageGetDomDocumentMethodInfo -instance (signature ~ (m DOMDocument), MonadIO m, WebPageK a) => MethodInfo WebPageGetDomDocumentMethodInfo a signature where - overloadedMethod _ = webPageGetDomDocument - --- method WebPage::get_editor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "WebEditor") --- throws : False --- Skip return : False - -foreign import ccall "webkit_web_page_get_editor" webkit_web_page_get_editor :: - Ptr WebPage -> -- _obj : TInterface "WebKit2WebExtension" "WebPage" - IO (Ptr WebEditor) - - -webPageGetEditor :: - (MonadIO m, WebPageK a) => - a -- _obj - -> m WebEditor -- result -webPageGetEditor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_page_get_editor _obj' - checkUnexpectedReturnNULL "webkit_web_page_get_editor" result - result' <- (newObject WebEditor) result - touchManagedPtr _obj - return result' - -data WebPageGetEditorMethodInfo -instance (signature ~ (m WebEditor), MonadIO m, WebPageK a) => MethodInfo WebPageGetEditorMethodInfo a signature where - overloadedMethod _ = webPageGetEditor - --- method WebPage::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -webPageGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- webkit_web_page_get_id _obj' - touchManagedPtr _obj - return result - -data WebPageGetIdMethodInfo -instance (signature ~ (m Word64), MonadIO m, WebPageK a) => MethodInfo WebPageGetIdMethodInfo a signature where - overloadedMethod _ = webPageGetId - --- method WebPage::get_main_frame --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebPageGetMainFrameMethodInfo -instance (signature ~ (m Frame), MonadIO m, WebPageK a) => MethodInfo WebPageGetMainFrameMethodInfo a signature where - overloadedMethod _ = webPageGetMainFrame - --- method WebPage::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebPageGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebPageK a) => MethodInfo WebPageGetUriMethodInfo a signature where - overloadedMethod _ = webPageGetUri - - diff --git a/GI/WebKit2WebExtension/Objects/WebPage.hs-boot b/GI/WebKit2WebExtension/Objects/WebPage.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Objects/WebPage.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.WebKit2WebExtension.Objects.WebPage where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 WebPageConsoleMessageSentSignalInfo -data WebPageContextMenuSignalInfo -data WebPageDocumentLoadedSignalInfo -data WebPageSendRequestSignalInfo -data WebPageGetDomDocumentMethodInfo -data WebPageGetEditorMethodInfo -data WebPageGetIdMethodInfo -data WebPageGetMainFrameMethodInfo -data WebPageGetUriMethodInfo diff --git a/GI/WebKit2WebExtension/Structs.hs b/GI/WebKit2WebExtension/Structs.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Structs.hs +++ /dev/null @@ -1,31 +0,0 @@ - - -{- | -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.ConsoleMessage, - module GI.WebKit2WebExtension.Structs.ContextMenuItem_, - module GI.WebKit2WebExtension.Structs.ContextMenu_, - - - ) where - -import GI.WebKit2WebExtension.Structs.ConsoleMessage -import GI.WebKit2WebExtension.Structs.ContextMenuItem_ -import GI.WebKit2WebExtension.Structs.ContextMenu_ - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs b/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs +++ /dev/null @@ -1,296 +0,0 @@ - - -{- | -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.ConsoleMessage - ( - --- * Exported types - ConsoleMessage(..) , - noConsoleMessage , - - - -- * Methods --- ** consoleMessageCopy - ConsoleMessageCopyMethodInfo , - consoleMessageCopy , - - --- ** consoleMessageFree - ConsoleMessageFreeMethodInfo , - consoleMessageFree , - - --- ** consoleMessageGetLevel - ConsoleMessageGetLevelMethodInfo , - consoleMessageGetLevel , - - --- ** consoleMessageGetLine - ConsoleMessageGetLineMethodInfo , - consoleMessageGetLine , - - --- ** consoleMessageGetSource - ConsoleMessageGetSourceMethodInfo , - consoleMessageGetSource , - - --- ** consoleMessageGetSourceId - ConsoleMessageGetSourceIdMethodInfo , - consoleMessageGetSourceId , - - --- ** consoleMessageGetText - ConsoleMessageGetTextMethodInfo , - consoleMessageGetText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ConsoleMessage = ConsoleMessage (ForeignPtr ConsoleMessage) -foreign import ccall "webkit_console_message_get_type" c_webkit_console_message_get_type :: - IO GType - -instance BoxedObject ConsoleMessage where - boxedType _ = c_webkit_console_message_get_type - -noConsoleMessage :: Maybe ConsoleMessage -noConsoleMessage = Nothing - - -type instance AttributeList ConsoleMessage = ConsoleMessageAttributeList -type ConsoleMessageAttributeList = ('[ ] :: [(Symbol, *)]) - --- method ConsoleMessage::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ConsoleMessage") --- throws : False --- Skip return : False - -foreign import ccall "webkit_console_message_copy" webkit_console_message_copy :: - Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" - IO (Ptr ConsoleMessage) - - -consoleMessageCopy :: - (MonadIO m) => - ConsoleMessage -- _obj - -> m ConsoleMessage -- result -consoleMessageCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_console_message_copy _obj' - checkUnexpectedReturnNULL "webkit_console_message_copy" result - result' <- (wrapBoxed ConsoleMessage) result - touchManagedPtr _obj - return result' - -data ConsoleMessageCopyMethodInfo -instance (signature ~ (m ConsoleMessage), MonadIO m) => MethodInfo ConsoleMessageCopyMethodInfo ConsoleMessage signature where - overloadedMethod _ = consoleMessageCopy - --- method ConsoleMessage::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "webkit_console_message_free" webkit_console_message_free :: - Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" - IO () - - -consoleMessageFree :: - (MonadIO m) => - ConsoleMessage -- _obj - -> m () -- result -consoleMessageFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - webkit_console_message_free _obj' - touchManagedPtr _obj - return () - -data ConsoleMessageFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ConsoleMessageFreeMethodInfo ConsoleMessage signature where - overloadedMethod _ = consoleMessageFree - --- method ConsoleMessage::get_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ConsoleMessageLevel") --- throws : False --- Skip return : False - -foreign import ccall "webkit_console_message_get_level" webkit_console_message_get_level :: - Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" - IO CUInt - - -consoleMessageGetLevel :: - (MonadIO m) => - ConsoleMessage -- _obj - -> m ConsoleMessageLevel -- result -consoleMessageGetLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_console_message_get_level _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ConsoleMessageGetLevelMethodInfo -instance (signature ~ (m ConsoleMessageLevel), MonadIO m) => MethodInfo ConsoleMessageGetLevelMethodInfo ConsoleMessage signature where - overloadedMethod _ = consoleMessageGetLevel - --- method ConsoleMessage::get_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "webkit_console_message_get_line" webkit_console_message_get_line :: - Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" - IO Word32 - - -consoleMessageGetLine :: - (MonadIO m) => - ConsoleMessage -- _obj - -> m Word32 -- result -consoleMessageGetLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_console_message_get_line _obj' - touchManagedPtr _obj - return result - -data ConsoleMessageGetLineMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo ConsoleMessageGetLineMethodInfo ConsoleMessage signature where - overloadedMethod _ = consoleMessageGetLine - --- method ConsoleMessage::get_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "WebKit2WebExtension" "ConsoleMessageSource") --- throws : False --- Skip return : False - -foreign import ccall "webkit_console_message_get_source" webkit_console_message_get_source :: - Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" - IO CUInt - - -consoleMessageGetSource :: - (MonadIO m) => - ConsoleMessage -- _obj - -> m ConsoleMessageSource -- result -consoleMessageGetSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_console_message_get_source _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ConsoleMessageGetSourceMethodInfo -instance (signature ~ (m ConsoleMessageSource), MonadIO m) => MethodInfo ConsoleMessageGetSourceMethodInfo ConsoleMessage signature where - overloadedMethod _ = consoleMessageGetSource - --- method ConsoleMessage::get_source_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_console_message_get_source_id" webkit_console_message_get_source_id :: - Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" - IO CString - - -consoleMessageGetSourceId :: - (MonadIO m) => - ConsoleMessage -- _obj - -> m T.Text -- result -consoleMessageGetSourceId _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_console_message_get_source_id _obj' - checkUnexpectedReturnNULL "webkit_console_message_get_source_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ConsoleMessageGetSourceIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ConsoleMessageGetSourceIdMethodInfo ConsoleMessage signature where - overloadedMethod _ = consoleMessageGetSourceId - --- method ConsoleMessage::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "ConsoleMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "webkit_console_message_get_text" webkit_console_message_get_text :: - Ptr ConsoleMessage -> -- _obj : TInterface "WebKit2WebExtension" "ConsoleMessage" - IO CString - - -consoleMessageGetText :: - (MonadIO m) => - ConsoleMessage -- _obj - -> m T.Text -- result -consoleMessageGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- webkit_console_message_get_text _obj' - checkUnexpectedReturnNULL "webkit_console_message_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ConsoleMessageGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ConsoleMessageGetTextMethodInfo ConsoleMessage signature where - overloadedMethod _ = consoleMessageGetText - -type family ResolveConsoleMessageMethod (t :: Symbol) (o :: *) :: * where - ResolveConsoleMessageMethod "copy" o = ConsoleMessageCopyMethodInfo - ResolveConsoleMessageMethod "free" o = ConsoleMessageFreeMethodInfo - ResolveConsoleMessageMethod "getLevel" o = ConsoleMessageGetLevelMethodInfo - ResolveConsoleMessageMethod "getLine" o = ConsoleMessageGetLineMethodInfo - ResolveConsoleMessageMethod "getSource" o = ConsoleMessageGetSourceMethodInfo - ResolveConsoleMessageMethod "getSourceId" o = ConsoleMessageGetSourceIdMethodInfo - ResolveConsoleMessageMethod "getText" o = ConsoleMessageGetTextMethodInfo - ResolveConsoleMessageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveConsoleMessageMethod t ConsoleMessage, MethodInfo info ConsoleMessage p) => IsLabelProxy t (ConsoleMessage -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveConsoleMessageMethod t ConsoleMessage, MethodInfo info ConsoleMessage p) => IsLabel t (ConsoleMessage -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs-boot b/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Structs/ConsoleMessage.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.WebKit2WebExtension.Structs.ConsoleMessage where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ConsoleMessage = ConsoleMessage (ForeignPtr ConsoleMessage) -instance BoxedObject ConsoleMessage where -data ConsoleMessageCopyMethodInfo -data ConsoleMessageFreeMethodInfo -data ConsoleMessageGetLevelMethodInfo -data ConsoleMessageGetLineMethodInfo -data ConsoleMessageGetSourceMethodInfo -data ConsoleMessageGetSourceIdMethodInfo -data ConsoleMessageGetTextMethodInfo diff --git a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs b/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs +++ /dev/null @@ -1,109 +0,0 @@ - - -{- | -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_(..) , - newZeroContextMenuItem_ , - noContextMenuItem_ , - - - -- * Properties --- ** Parent - contextMenuItem_ClearParent , - contextMenuItem_Parent , - contextMenuItem_ReadParent , - contextMenuItem_WriteParent , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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_) -instance WrappedPtr ContextMenuItem_ where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ContextMenuItem_` struct initialized to zero. -newZeroContextMenuItem_ :: MonadIO m => m ContextMenuItem_ -newZeroContextMenuItem_ = liftIO $ wrappedPtrCalloc >>= wrapPtr ContextMenuItem_ - -instance tag ~ 'AttrSet => Constructible ContextMenuItem_ tag where - new _ attrs = do - o <- newZeroContextMenuItem_ - GI.Attributes.set o attrs - return o - - -noContextMenuItem_ :: Maybe ContextMenuItem_ -noContextMenuItem_ = Nothing - -contextMenuItem_ReadParent :: MonadIO m => ContextMenuItem_ -> m (Maybe GObject.InitiallyUnowned) -contextMenuItem_ReadParent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr GObject.InitiallyUnowned) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject GObject.InitiallyUnowned) val' - return val'' - return result - -contextMenuItem_WriteParent :: MonadIO m => ContextMenuItem_ -> Ptr GObject.InitiallyUnowned -> m () -contextMenuItem_WriteParent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr GObject.InitiallyUnowned) - -contextMenuItem_ClearParent :: MonadIO m => ContextMenuItem_ -> m () -contextMenuItem_ClearParent s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr GObject.InitiallyUnowned) - -data ContextMenuItem_ParentFieldInfo -instance AttrInfo ContextMenuItem_ParentFieldInfo where - type AttrAllowedOps ContextMenuItem_ParentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ContextMenuItem_ParentFieldInfo = (~) (Ptr GObject.InitiallyUnowned) - type AttrBaseTypeConstraint ContextMenuItem_ParentFieldInfo = (~) ContextMenuItem_ - type AttrGetType ContextMenuItem_ParentFieldInfo = Maybe GObject.InitiallyUnowned - type AttrLabel ContextMenuItem_ParentFieldInfo = "parent" - attrGet _ = contextMenuItem_ReadParent - attrSet _ = contextMenuItem_WriteParent - attrConstruct = undefined - attrClear _ = contextMenuItem_ClearParent - -contextMenuItem_Parent :: AttrLabelProxy "parent" -contextMenuItem_Parent = AttrLabelProxy - - - - -type instance AttributeList ContextMenuItem_ = ContextMenuItem_AttributeList -type ContextMenuItem_AttributeList = ('[ '("parent", ContextMenuItem_ParentFieldInfo)] :: [(Symbol, *)]) - -type family ResolveContextMenuItem_Method (t :: Symbol) (o :: *) :: * where - ResolveContextMenuItem_Method l o = MethodResolutionFailed l o - -instance (info ~ ResolveContextMenuItem_Method t ContextMenuItem_, MethodInfo info ContextMenuItem_ p) => IsLabelProxy t (ContextMenuItem_ -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContextMenuItem_Method t ContextMenuItem_, MethodInfo info ContextMenuItem_ p) => IsLabel t (ContextMenuItem_ -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot b/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.WebKit2WebExtension.Structs.ContextMenuItem_ where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 WrappedPtr ContextMenuItem_ where diff --git a/GI/WebKit2WebExtension/Structs/ContextMenu_.hs b/GI/WebKit2WebExtension/Structs/ContextMenu_.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Structs/ContextMenu_.hs +++ /dev/null @@ -1,109 +0,0 @@ - - -{- | -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_(..) , - newZeroContextMenu_ , - noContextMenu_ , - - - -- * Properties --- ** Parent - contextMenu_ClearParent , - contextMenu_Parent , - contextMenu_ReadParent , - contextMenu_WriteParent , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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_) -instance WrappedPtr ContextMenu_ where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ContextMenu_` struct initialized to zero. -newZeroContextMenu_ :: MonadIO m => m ContextMenu_ -newZeroContextMenu_ = liftIO $ wrappedPtrCalloc >>= wrapPtr ContextMenu_ - -instance tag ~ 'AttrSet => Constructible ContextMenu_ tag where - new _ attrs = do - o <- newZeroContextMenu_ - GI.Attributes.set o attrs - return o - - -noContextMenu_ :: Maybe ContextMenu_ -noContextMenu_ = Nothing - -contextMenu_ReadParent :: MonadIO m => ContextMenu_ -> m (Maybe GObject.Object) -contextMenu_ReadParent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr GObject.Object) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject GObject.Object) val' - return val'' - return result - -contextMenu_WriteParent :: MonadIO m => ContextMenu_ -> Ptr GObject.Object -> m () -contextMenu_WriteParent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr GObject.Object) - -contextMenu_ClearParent :: MonadIO m => ContextMenu_ -> m () -contextMenu_ClearParent s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr GObject.Object) - -data ContextMenu_ParentFieldInfo -instance AttrInfo ContextMenu_ParentFieldInfo where - type AttrAllowedOps ContextMenu_ParentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ContextMenu_ParentFieldInfo = (~) (Ptr GObject.Object) - type AttrBaseTypeConstraint ContextMenu_ParentFieldInfo = (~) ContextMenu_ - type AttrGetType ContextMenu_ParentFieldInfo = Maybe GObject.Object - type AttrLabel ContextMenu_ParentFieldInfo = "parent" - attrGet _ = contextMenu_ReadParent - attrSet _ = contextMenu_WriteParent - attrConstruct = undefined - attrClear _ = contextMenu_ClearParent - -contextMenu_Parent :: AttrLabelProxy "parent" -contextMenu_Parent = AttrLabelProxy - - - - -type instance AttributeList ContextMenu_ = ContextMenu_AttributeList -type ContextMenu_AttributeList = ('[ '("parent", ContextMenu_ParentFieldInfo)] :: [(Symbol, *)]) - -type family ResolveContextMenu_Method (t :: Symbol) (o :: *) :: * where - ResolveContextMenu_Method l o = MethodResolutionFailed l o - -instance (info ~ ResolveContextMenu_Method t ContextMenu_, MethodInfo info ContextMenu_ p) => IsLabelProxy t (ContextMenu_ -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContextMenu_Method t ContextMenu_, MethodInfo info ContextMenu_ p) => IsLabel t (ContextMenu_ -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot b/GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot deleted file mode 100644 --- a/GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.WebKit2WebExtension.Structs.ContextMenu_ where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 WrappedPtr ContextMenu_ where diff --git a/GI/WebKit2WebExtension/Types.hs b/GI/WebKit2WebExtension/Types.hs deleted file mode 100644 --- a/GI/WebKit2WebExtension/Types.hs +++ /dev/null @@ -1,238 +0,0 @@ -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.WebEditor, - module GI.WebKit2WebExtension.Objects.WebExtension, - module GI.WebKit2WebExtension.Objects.WebHitTestResult, - module GI.WebKit2WebExtension.Objects.WebPage, - module GI.WebKit2WebExtension.Structs.ConsoleMessage, - 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.WebEditor -import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebExtension -import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebHitTestResult -import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebPage -import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ConsoleMessage -import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ContextMenuItem_ -import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ContextMenu_ - -import GI.WebKit2WebExtension.Enums -import GI.WebKit2WebExtension.Flags - diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "WebKit2WebExtension" + version = "4.0" + verbose = False + overridesFile = Nothing + outputDir = Nothing diff --git a/gi-webkit2webextension.cabal b/gi-webkit2webextension.cabal --- a/gi-webkit2webextension.cabal +++ b/gi-webkit2webextension.cabal @@ -1,152 +1,35 @@ --- Autogenerated, do not edit. name: gi-webkit2webextension -version: 0.2.12.15 -synopsis: WebKit2WebExtension bindings -description: Bindings for WebKit2WebExtension, autogenerated by haskell-gi. +version: 4.0.1 +synopsis: WebKit2-WebExtension bindings +description: Bindings for WebKit2-WebExtension, 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 +build-type: Custom +cabal-version: >= 1.24 +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms 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.WebEditor - GI.WebKit2WebExtension.Objects.WebExtension - GI.WebKit2WebExtension.Objects.WebHitTestResult - GI.WebKit2WebExtension.Objects.WebPage - GI.WebKit2WebExtension.Structs - GI.WebKit2WebExtension.Structs.ConsoleMessage - GI.WebKit2WebExtension.Structs.ContextMenuItem_ - GI.WebKit2WebExtension.Structs.ContextMenu_ - pkgconfig-depends: webkit2gtk-web-extension-4.0 >= 2.12 + + pkgconfig-depends: webkit2gtk-web-extension-4.0 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-gobject >= 0.2.46.15 && < 0.2.47, - gi-gtk >= 0.3.18.15 && < 0.3.19, - gi-javascriptcore >= 0.2.12.15 && < 0.2.13, - gi-soup >= 0.2.52.15 && < 0.2.53, + gi-gobject == 2.0.*, + gi-gtk == 3.0.*, + gi-javascriptcore == 4.0.*, + gi-soup == 2.4.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5